for each dr as datarow in Ds.Tables(0).rows next --- Pada Jum, 11/7/08, Frangky <[EMAIL PROTECTED]> menulis:
Dari: Frangky <[EMAIL PROTECTED]> Topik: [Programmer-VB] Bagaimana menampilkan hasil query di Text box pada VB .NET Kepada: [email protected] Tanggal: Jumat, 11 Juli, 2008, 7:16 PM Hallo Expert VB.NET Biasanya kalau saya lakukan query di VB 6, dan hasil querynya tampilkan di Text box txtNama, saya gunakan contoh code seperti dibawah ini: Rs.open “Select nama from tabel1 where NomorInduk=’240401’” If not rs.eof then txtNama= rs!nama else msgbox “Data tidak ditemukan” End if Yang mau saya tanyakan: Bagaimana menampilkan hasil query di Text box pada VB .NET. Saya menggunakan code seperti dibawah ini: Dim sqlstring = "select Nama from tabel1 where NomorInduk = '240401'" Dim da As New MySqlDataAdapter( sqlstring, cnn) da.Fill(ds, "tabel1") If ds.Tables("tabel1").Rows.Count > 0 Then ‘ txtNama= ???????? ‘disini saya tidak tahu harus ketik code apa disini. Untuk menampilkan di txtNama Else MsgBox("Data tidak ditemukan") ds.Clear() ds.Dispose() End If ___________________________________________________________________________ Yahoo! sekarang memiliki alamat Email baru. Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/
