Dasar 14. Pencarian 1 (dengan Change)

Dengan pencarian ini anda dapat mencari data hanya dengan mengetikan kode data yang anda cari tanpa harus mengetik seluruh hurufnya dan secara otomatis program akan langsung mencari data tersebut tanpa harus menekan tombol yang lainnya.
1. Buat sebuah form baru.
2. Untuk database gunakanlah database yang ada pada Tutorial (DBBarang / Table_Barang).
3. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
Data1	-	Data
DBGrid1	-	DBGrid1
TxtCari	-	TextBox
Label1	Masukan Kode Barang	Label

4. Listing Program dengan Penjelasannya:

Private Sub TXTCARI_Change()
Data1.RecordSource = "SELECT*FROM Table_Barang WHERE Kode LIKE’*" & TXTCARI.Text & "*’"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "DATA TIDAK ADA !"
End If
End Sub

'KETERANGAN :

'- Akan terjadi pencarian data dari Table_Barang yang ada di database yang field Kode nya seperti yang ditulis di TXTCARI.

'- Jika data tidak ditemukan, maka akan muncul pesan "DATA TIDAK ADA". 
    

Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....

Print this page

Posted in: Visual Basic 6.0