Dear All,
Saya punya syntax berikut :
With GridCari
Set Rs = New ADODB.Recordset
find = LTrim(cString(txtCari)) & "*"
s = "SELECT Pasien.NoPasien, Pasien.Nama, Pasien.Alamat,
Pasien.NoTelepon" _
& " From Pasien WHERE Pasien.Nama Like '" & find & "'"
Rs.Open s, OpenCon, adOpenDynamic, adLockOptimistic
i = 1
Do While Not Rs.EOF
WriteCell GridCari, i, 1, Rs!NoPasien
WriteCell GridCari, i, 2, Rs!Nama
WriteCell GridCari, i, 3, Rs!Alamat
WriteCell GridCari, i, 4, Rs!NoTelepon
i = i + i
.Rows = .Rows + 1
Rs.MoveNext
Loop
End With
Pada waktu program di run, nilai Recordset RS selalu EOF, sehingga
tidak menjalankan looping.
Tapi kalau query s :
SELECT Pasien.NoPasien, Pasien.Nama, Pasien.Alamat, Pasien.NoTelepon
>From Pasien WHERE Pasien.Nama Like 'K*'
saya jalankan di Access datanya ada(tidak EOF).
Apa kesalahan ada di variabel find ? atau dimana ya ? bingung nih
mohon pencerahannya rekans...
Terima kasiihh banyaaaaakk sebelumnya
Best Regards,
Kennis
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
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/
