Membuat Pencarian Dinamis Menggunakan Class Database Pada VB.NET
Wednesday, August 17, 2016
Add Comment
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
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
0 Response to "Membuat Pencarian Dinamis Menggunakan Class Database Pada VB.NET"
Post a Comment