|
coba "*" diganti "%"
find = LTrim(cString(txtCari)) &
"%"
----- Original Message -----
Sent: Wednesday, October 12, 2005 2:45
PM
Subject: [Programmer-VB] Masalah query
(Recordset selalu EOF)
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
|
