Terima kasih banyak mas sistanori, solusinya membantu sekali ternyata harus pakai % ya.... find = LTrim(cString(txtCari)) & "%"
--- In [email protected], "sistanori" <[EMAIL PROTECTED]> wrote: > > coba "*" diganti "%" > > find = LTrim(cString(txtCari)) & "%" > ----- Original Message ----- > From: key_nys > To: [email protected] > 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 > > a.. Visit your group "Programmer-VB" on the web. > > b.. To unsubscribe from this group, send an email to: > [EMAIL PROTECTED] > > c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. > > > -------------------------------------------------------------------- ---------- > ------------------------ Yahoo! Groups Sponsor --------------------~--> Fair play? Video games influencing politics. Click and talk back! http://us.click.yahoo.com/T8sf5C/tzNLAA/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/
