for each dr as datarow in Ds.Tables(0) .rows txtNama.text = dr(0).ToString() next
--- Pada Sen, 14/7/08, aguspradikta <[EMAIL PROTECTED]> menulis: Dari: aguspradikta <[EMAIL PROTECTED]> Topik: [Programmer-VB] Re: Bagaimana menampilkan hasil query di Text box pada VB .NET Kepada: [email protected] Tanggal: Senin, 14 Juli, 2008, 8:03 AM 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 Programmer-VB@ yahoogroups. com, "Frangky" <franklin.id@ ...> wrote: > > Mas Ajoe, terima kasih karena sudah jawab email saya. Tapi masih > membingungkan saya Mas. > > Mohon diperjelas. Atau lebih detailnya gimana. > > > > _____ > > From: Programmer-VB@ yahoogroups. com [mailto:Programmer-VB@ yahoogroups. com] > On Behalf Of Ajoe > Sent: 13 Juli 2008 15:00 > To: Programmer-VB@ yahoogroups. com > 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 <franklin.id@ ...> menulis: > > Dari: Frangky <franklin.id@ ...> > Topik: [Programmer- VB] Bagaimana menampilkan hasil query di Text box pada VB > .NET > Kepada: Programmer-VB@ yahoogroups. com > 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 > ___________________________________________________________________________ Dapatkan alamat Email baru Anda! Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/
