--- In [email protected], Liung Hartono <[EMAIL PROTECTED]> wrote:
>
> Karena pada saat anda membuka recordset, data yang dibaca selalu
record pertama. Kalau anda mau
> semua record dibaca, pakai do while :
> do while not rs.eof
> if text1=rs!nomor then
> msgbox "data ada"
> else
> msgbox "tidak ada"
> endif
> rs.movenext
> loop
>
> atau ada cara kedua, yaitu recordset dibuka sudah menunjuk ke nomor
yg kita cari :
> pilih="select * from table1 where nomor='" & text1.text & "'"
> set rs=cnn.execute (pilih)
> if not rs.bof and not rs.eof then
> msgbox "data ada"
> else
> msgbox "tidak ada"
> endif
>
> salam,
> Liung's
>
> Frangky wrote:
> >
> >
> > Teman-teman yang terhormat!
> >
> > Didalam Field Database *NOMOR *terdiri dari:
> > 100
> > 101
> > 102
> > 103
> > dan seterusnya.
> >
> >
> > Pada Form1 ada text1, kalau saya input angka *100* akan muncul
textbox
> > dengan pesan "Data ada" (Selalu membaca Data *rs.moveFirst)*
> > Dengan menggunakan code dibawah ini:
> >
> > Dim pilih As String
> > pilih = "select * from table1"
> > Set rs = cnn.Execute(pilih)
> > If Text1 = rs!nomor Then
> > MsgBox "data ada"
> > Else
> > MsgBox "data tidak ada"
> > End If
> >
> > *Permasalahan:*
> > **
> > kalau saya input angka *101 *atau *102 *dan seterusnya, Selalu muncul
> > Msgbox "Data tidak ada" (TIdak *rs.MoveNext*)
> > Padahal yang saya harapkan membaca keselurahan data.
> >
> > *Pertanyaannya:*
> > **
> > *Bagaimana code yang benar agar bisa membaca keselurah record yang
ada
> > pada sebuah field.*
> > **
> > *Terima kasih, bagi teman-teman yang akan mereply email saya.*
> >
>
ya saya setuju dengan cara seperti ini
> pilih="select * from table1 where nomor='" & text1.text & "'"
> set rs=cnn.execute (pilih)
> if not rs.bof and not rs.eof then
> msgbox "data ada"
> else
> msgbox "tidak ada"
> endif
karena dibandingkan dengan cara looping, cara ini relatif lebih cepat
loadingnya...
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
