coba ganti value dari property cursorlocation di object connection ato di object recordset - nya jadi adUseServer
rgds
[wwn]
On 10/12/05, 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
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
