Dasar 16. Pencarian 3 (dengan Input Box)

Dengan pencarian ini anda harus memasukan kode data yang anda ingin cari dengan menggunakan sebuah Input Box.
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
CmdCari	Cari	Command Button
TxtKode	-	TextBox
TxtNama	-	TextBox
TxtHarga	-	TextBox
Label1	Kode Barang	Label
Label2	Nama Barang	Label
Label3	Harga Barang	Label

4. PERHATIAN : Pada DATA gantilah RECORDSET TYPE nya menjadi TABLE.
 
4. Listing Program :

Sub TAMPIL()
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub

Private Sub CMDCARI_Click()
Dim Kode As String
Kode = InputBox("masukan kode!", "Cari Data")
If Kode = Empty Then Exit Sub
If Kode <> "" Then
Data1.Recordset.Index = "Kode"
Data1.Recordset.Seek "=", Kode
If Not Data1.Recordset.NoMatch Then
Call TAMPIL
Else
MsgBox "Data Tidak ada"
End If
End If
End Sub
    

KETERANGAN :
- Kode pada tombol CMDCARI menjalankan Procedure TAMPIL.
- Jika Input Box tidak diisi atau kosong maka Input Box akan menghilang.
- Jika Input Box diisi, maka Akan terjadi pencarian data yang ada di database yang field Kode nya sama persis dengan yang ditulis di Input Box.
- Jika data yang dicari ada maka data tersebut akan ditampilkan pada form.
- Jika data yang dicari 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