data yg mas punya pake spasi gak ? misal Masim Vavai atau MasimVavai ?
dan coba tambahin if trim(text10.text) then di atas RSQuiz.Find . coba tanda
( + ) ganti pake ( & ), klo gak bisa juga, akalin pake ADODC aja. mungkin ada
yg mau nambahin. ???
"Masim \"Vavai\" Sugianto" <[EMAIL PROTECTED]> wrote:
Kalau pakai database Access, pakai *, sedangkan kalau pakai SQL
Server pakai % mas. jadi seperti ini :
"Select * From TblMhs Where nama Like 'Vavai%'"
Vavai
http://blog.vavai.com
ERIS RISO wrote:
Terus terang saya belum pernah pake cara pencarian kayak gini, tapi kalo
betul syntax cari nya coba ubah If RSQUIZ.EOF Then
Menjadi If NOT RSQUIZ.EOF Then
Logikanya, jika kamu menyatakan If RSQUIZ.EOF Then berarti menganggap jika
tidak ada data ditemukan, sementara perintah dibawahnya menunjukan jika ada data
Semoga membantu
---------------------------------
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of
wawan setiawan
Sent: 17 Januari 2007 8:44
To: [email protected]
Subject: [Programmer-VB] Pencarian menggunakan sintax "like"
Dear Alll Progrrammer mania
hallo saya masih awam dalam pemograman VB saya pengen banyak tanya untuk
pencarian data yang menggunakan "Like" kalo saya coba selalu gagal terus ini
sintaxnya semoga teman tau jawabannya thenks
Sub CARINAMA()
On Error Resume Next
Select Case Cmb
Case "NAMA"
RSQUIZ.Find "NAMA LIKE'*" + Text10 + "*'", , adSearchForward, 1
End Select
If Text10.Text = "" Then
MsgBox "Masukan Nama Yang Dicari", vbOKOnly + vbInformation, "Cari Nama"
Text10.SetFocus
Else
If RSQUIZ.EOF Then
MsgBox "Data Ditemukan", vbCritical + vbOKOnly, "Cari"
RSQUIZ.Filter = ""
Call tampil
End If
On Error GoTo 0
End If
End Sub
saya udah coba tapi program blm bsa jalan sesuai dengan yang di harapkan
semoga programmer mania dapat membantu menemukan solusinya
thenks
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
