Assalamu’alaikum..wr..wb..
Sebelum
lanjut membaca postingan ini, mari kita samakan kondisi terlebih dahulu. Yang
perlu dilakukan adalah mempersiapkan koneksi database dengan vb lalu
menampilkan isi database terseut pada sebuah listview. Sebelumnya saya sudah
memposting tentang cara koneksi mySql dengan vb dan cara menampilkan isi tabel database pada listview.
Okey sekarang saya
anggap sobat udah bisa nampilin data di listview. Baiklah sobat, berikut
langkah-langkahnya :
1. Siapkan sebuah
form yang telah terkoneksi dengan database dan sebuah listview untuk
menampilkan isi tabel databasenya.
3. siapkan sebuah
“Combo Box” untuk memberikan pilihan pencarian dan sebuah textbox untuk
mengetik keyword pencarian.
4. Sama seperti
tutorial sebelumnya saya masih menggunakan tabel lagu sebagai contoh yang
berisi 2 field yaitu “judul lagu” dan “penyanyi”. Desain formnya kira-kira
seperti gambar dibawah ini :
5. Tambahkan
keterangan list combo box pada bagian properti-list. Caranya seperti gambar
dibawah ini :
6. klik kanan pada
textbox kemudian ganti procedure menjadi “Keypress” dan masukkan kode dibawah
ini :
Dim Lst As ListItem
If reset.State =
adStateOpen Then reset.Close
If comboCari.Text = "Judul"
Then
reset.Open
"Select * From tb_lagu where judul like '%" & txtCari.Text &
"%'", KonekDatabase, adOpenKeyset
Else
reset.Open
"Select * From tb_lagu where penyanyi like '%" & txtCari.Text
& "%'", KonekDatabase, adOpenKeyset
End If
If reset.RecordCount <> 0 Then
ListView1.ListItems.Clear
Do While Not reset.EOF
Set Lst = ListView1.ListItems.Add(, , ListView1.ListItems.Count + 1
& ".")
With Lst
.SubItems(1) = reset!judul
.SubItems(2) = reset!penyanyi
End With
reset.MoveNext
Loop
Else
ListView1.ListItems.Clear
End If
7. coba jalankan
program, dan ketikkan kata kunci pada kolom cari, maka listview secara otomatis
akan memfilter dirinya sesuai keyword yang sobat ketikkan.
Sekian tutorial kali
ini, semoga bermanfaat.
Sampai ketemu pada
tutorial selanjutnya..
