Membuat Pencarian Dinamis Menggunakan Class Database Pada VB.NET

Setelah sekian lama tidak ngeblog, akhirnya hatiku berkata menulislah, habisnya daftar adsen blog tidak diterima-terima oleh mbah google, hingga membuatku tidak semangat lagi untuk menulis. Okelah kita lanjutkan saja pembahasan kita, lanjutan dari crud database vb.net. Pastikan anda sudah membaca postingan saya yang sebelumnya, supaya mudah untuk dipahami.
1. Buatlah desain seperti gambar dibawah ini :

2. Tambahkan fungsi untuk pencarian data seperti dibawah ini :

Sub Cari()
        Dim dr As DataRow
        Dim lv As ListViewItem
        Dim strTable As String = "tbldata"
        Dim dtFields(3) As String
        Dim strWhere As String
        Dim i As Integer

        dtFields(0) = "kodebarang"
        dtFields(1) = "nama"
        dtFields(2) = "warna"
        dtFields(3) = "banyak"

        With myDB
            If cboCari.Text = "Kode Barang" Then
                strWhere = "kodebarang LIKE '%" & Me.txtCari.Text & "%'"
                .rs = .QuerySelect(dtFields, strTable, strWhere).Tables(0)
            ElseIf cboCari.Text = "Nama" Then
                strWhere = "nama LIKE '%" & Me.txtCari.Text & "%'"
                .rs = .QuerySelect(dtFields, strTable, strWhere).Tables(0)
            End If
            lvwData.Items.Clear()
            For i = 0 To .rs.Rows.Count - 1
                dr = .rs.Rows(i)
                lv = lvwData.Items.Add(lvwData.Items.Count + 1 & ".")
                lv.SubItems.Add(dr(dtFields(0)))
                lv.SubItems.Add(dr(dtFields(1)))
                lv.SubItems.Add(dr(dtFields(2)))
                lv.SubItems.Add(dr(dtFields(3)))
            Next i
        End With
    End Sub

3. Panggil fungsi Cari diatas pada Textbox Cari di Event Change, seperti dibawah ini :

 Private Sub txtCari_TextChanged(sender As Object, e As System.EventArgs) Handles txtCari.TextChanged
        Cari()
    End Sub

4. Silahkan coba dijalankan projectnya, mudah bukan ? semoga bermanfaat.
Terima kasih

Share this post