klo ga salah seperti ini for each dr as datarow in Ds.Tables(0).rows txtNama.text = cstr(dr(0)) next
Salam, Agus Pradikta --- In [email protected], "Frangky" <[EMAIL PROTECTED]> wrote: > > Mas Ajoe, terima kasih karena sudah jawab email saya. Tapi masih > membingungkan saya Mas. > > Mohon diperjelas. Atau lebih detailnya gimana. > > > > _____ > > From: [email protected] [mailto:[EMAIL PROTECTED] > On Behalf Of Ajoe > Sent: 13 Juli 2008 15:00 > To: [email protected] > Subject: Bls: [Programmer-VB] Bagaimana menampilkan hasil query di Text box > pada VB .NET > > > > > 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! Toolbar kini dilengkapi dengan Search Assist. Download > <http://sg.rd.yahoo.com/id/search/toolbar/mail/signature/*http:/id.toolbar.y > ahoo.com/> sekarang juga. > > No virus found in this incoming message. > Checked by AVG - http://www.avg.com > Version: 8.0.138 / Virus Database: 270.4.10/1549 - Release Date: 7/12/2008 > 4:31 PM >
