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.*
>
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/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/Programmer-VB/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> 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/
