sebenarnya sih ga perlu looping, kita tetap bisa menggunakan cara pertamanya mas frangky, dg sedikit tambahan kode menggunakan property filternya object recordset
'buka database
> > Dim pilih As String
> > pilih = "select * from table1"
> > Set rs = cnn.Execute(pilih)
> > pilih = "select * from table1"
> > Set rs = cnn.Execute(pilih)
'filter data pada waktu mau validasi text yg ada di textbox, bisa di event validate, keypress, change, etc
rs.filter = "namafieldnyatextboxybs = " & text1.text
> > If Text1 = rs!nomor Then
> > MsgBox "data ada"
> > Else
> > MsgBox "data tidak ada"
> > End If
> >
> > If Text1 = rs!nomor Then
> > MsgBox "data ada"
> > Else
> > MsgBox "data tidak ada"
> > End If
> >
kelebihan cara ini bila dibandingkan cara keduanya mas liung adalah kita tidak perlu melakukan query ke database tiap kali mau memvalidasi isi text1 tadi.
rgds
[poer]
On 9/11/06, toviconline <[EMAIL PROTECTED]> wrote:
__._,_.___
--- 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
SPONSORED LINKS
| Indonesia phone card | Programmer | Indonesia tour |
| Indonesia travel | Indonesia flower |
Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
__,_._,___
