Dasar 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 (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 dan Penjelasannya :

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

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