Re: [Programmer-VB] Pencarian Data dengan input pada text dan tampilan data di datagrid tabel

Tue, 21 Mar 2006 22:50:57 -0800

Coba bantu ya....
Kalo pencarian berdasarkan input dari text box biasanya aku buat seperti ini...
 
Private Sub txtCariJudul_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.Source = "Select Judul, * from tbl_DataBuku" & _
               " where Judul like '" & txtCariJudul.Text & "%'"   ' <---  Ini pencarian berdasarkan huruf depan saja
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open
End With
 
Set DatGrid1.DataSource = rs
DataGrid1.Refresh
 
End Sub
 
Pencarian akan mencari semua judul buku dengan awalan huruf yang sesuai dalam text box, dan akan menampilkan ke dalam DataGrid.
Kalo ngak salah seperti itu sih...semoga bisa membantu.
 
Salam,
Lintong
----- Original Message -----
From: SAE
Sent: Tuesday, March 21, 2006 6:16 AM
Subject: [Programmer-VB] Pencarian Data dengan input pada text dan tampilan data di datagrid tabel

salam,
buat rekan rekan yang hebat
 
mohon bantuan untuk membuat program VB pencarian
dengan,
 
data yang di cari adalah yang di input pada textbox
 
data yang muncul ada di table grid sesuai dengan string yang di ketikan pada textbox
 
mohon dengan sangat bila ada rekan yang mempunya source nya boleh kirim ke e-mail saya...
 
(program yang saya ingin buat adalah seperti pada toko buku GRAMEDIA)
 
banyak terimakasih
udienoke

Brings words and photos together (easily) with
PhotoMail - it's free and works with Yahoo! Mail.

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer


YAHOO! GROUPS LINKS



Kirim email ke