s = "SELECT Pasien.NoPasien, Pasien.Nama,
Pasien.Alamat, Pasien.NoTelepon" _
& " From Pasien WHERE " _
& " Pasien.Nama Like '%" & find & "%'"
rgd,
j s
--- key_nys <[EMAIL PROTECTED]> wrote:
> 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! Music Unlimited
Access over 1 million songs. Try it free.
http://music.yahoo.com/unlimited/
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/cd_AJB/QnQLAA/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/
