Belajar Visual Basic Dasar Bagian 14

Belajar Visual Basic Dasar Bagian 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 Belajar Visual Basic Dasar Bagian 1 (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 :

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".


 Hasil Syntax yang kita buat