Tjoba Ane djawab ye, mudahan ndak salah
> Dim pilih As String
> pilih = "select * from table1"
> Set rs = cnn.Execute(pilih)
if not rs.eof then
do while not rs.eof
> If Text1 = rs!nomor Then
> MsgBox "data ada"
> Else
> MsgBox "data tidak ada"
> End If
rs.movenext
if re.eof then
exit sub
end if
loop
end if
Intinya lakukan pembacaan data keseluruhan dulu, trus
pengulangan untuk cari no yang diminta.
Mohon maaf kalo salah dah agak lupa, mungkin yang lain
ada yang lebih simple?
Met nyoba n Sukses
Regards
Gege Nugroho
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
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/
