Cara Membuat Filter Pencarian di VisualBasic6.0


Cara Membuat Filter Pencarian di VisualBasic6.0

Pernah mengalami coding visualbasic anda dengan ADODC dan pencarian mengalami error misalnya code tidak ada di database namun saat diinputkan malah code yang keluar sama dengan data yang pertama anda masukkan? mungkin anda salah dalam menuliskan code filter pencarian anda.

pencarian biasanya memiliki logika:
Jika no barcode = text1 maka tampilkan nama barang dan harga di DataGrid
Jika tidak maka keluar pesan Data tidak ditemukan.

Namun dalam penerapannya sering kali buntu dan tidak menemukan bagaimana coding yang sesuai, mungkin karena keterbatasan pengetahuan dan referensi mengenai pemrograman, nah kali ini saya tuliskan saja biar bisa menambah khasanah keilmuan kita.

Codingnya:

Sub cariharga()
On Error Resume Next
Dim item As String
item = Text1.Text
'If Text1.Text = "" Then
Adodc1.Recordset.Find "KodeBarang='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find "KodeBarang=" & item
Text4.Text = Text1.Text
    Text2.Text = Adodc1.Recordset("NamaBarang")
    Text3.Text = Adodc1.Recordset("HargaBarang")
    Text10.Text = Adodc1.Recordset("Qty")
    Text11.Text = Adodc1.Recordset("% Disc")
    Text12.Text = Adodc1.Recordset("RpDisc")
    Text13.Text = Adodc1.Recordset("Jumlah")
    Adodc1.Recordset.MoveFirst
call TambahkeDatabase
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End Sub

 Demikian artikel  Cara Membuat Filter Pencarian di VisualBasic6.0

Jika artikel ini bermanfaat silahkan di share !!!

Jika ada kritik dan saran silahkan tulis di kolom komentar !!!

daftarkan email anda untuk berlangganan artikel dengan gratis !!

0 Response to "Cara Membuat Filter Pencarian di VisualBasic6.0"

Posting Komentar