Belajar Visual Basic Dasar Bagian 15

Belajar Visual Basic Dasar Bagian 15 : Pencarian 2 (dengan Click atau Command Button)

Dengan pencarian ini anda dapat mencari data dengan cara mengetikan kode data yang dicari secara lengkap kemudian anda harus menekan tombol cari yang ada disitu.
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
CmdCari	Cari	Command Button

4. Listing Program :

Private Sub CMDCARI_Click()
Data1.RecordSource = "SELECT*FROM Table_Barang WHERE Kode=’" & 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 sama persis dengan yang ditulis di TXTCARI.
- Jika data tidak ditemukan, maka akan muncul pesan "DATA TIDAK ADA".


  Hasil syntax yang kita buat