see insertion...
On 5/11/05, fahroni_hasyim <[EMAIL PROTECTED]> wrote:
> mohon bantuan dan pencerahanya
> coba lihat coding di bawah ini, kok nggak jalan ya..ada yang salah nggak.
> seharusnya yang diinginkan adalah setelah diklik tombol CommandCari
> maka akan
> ditampilkan data sesuai berdasarkan kategori dan katakunci?
>
> Private Sub CommandCari_Click()
>
> AdoAmbil.RecordSource = "Select *From datakhusus Where " & _
> jenisfield.Text & " like ' " & "%" &
> keyword.Text & "%" & " "
*From >> bukannya harus dipisah dengan spasi?
like ' " >> jangan dikasih spasi sblm persen, kalo pake spasi,
logikanya dia akan cari semua yang ada spasi didepannya, trus dibagian
akhirnya kayaknya belum dikasih ' (single quote)
AdoAmbil.RecordSource = "Select * From datakhusus Where " & _
jenisfield.Text & " like '%" & keyword.Text & "%'"
regards
>
> If Not AdoAmbil.Recordset.EOF Then
> Call displaykhusus
> ElseIf Not AdoAmbil.Recordset.BOF Then
> Call displaykhusus
> Else
>
> MsgBox "Data yang di cari tidak ada...?", vbCritical, "Informasi"
>
> End If
> End Sub
>
> atas pencerahannya saya
> ucapkan terimakasih
>
> roni
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/
