Re: [Programmer-VB] Masalah query (Recordset selalu EOF)

Wed, 12 Oct 2005 00:58:51 -0700

Untuk perintah like biasanya ada 2 tanda yang mendukung perintah tersebut :
tanda asterik (*) dan tanda persen(%)...coba ganti tanda * anda dengan tanda %..
semoga membantu..
 
--aL--

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.

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke