Pencarian Data Pada Listview Di VB Bag 1

Sudahkah anda bisa menampilkan data dari database ke sebuah listview...? Jika belum silahkan buka pastingan saya sebelumnya karena untuk tutorial ini saya tidak akan menjelaskan cara menampilkan datanya.

Saya akan langsung menjelaskan pencarian data pada listview di visual basic. Apakah anda sudah bisa melakukan pencarian data yang datanya tampil dalam sebuah listview...? Jika sudah bisa tidak usah di baca postingan Pencarian Data Pada Listview Di VB Bag 1 ini, jika belum bisa silahkan simak baik-baik tutorial ini.

Pada tutorial Pencarian Data Pada Listview Di VB Bag 1 ini saya menggunakan option button untuk memilih kategori pencarian datanya, seperti pada tutorial pencarian data pada msflexgrid bag 1.
Buatlah  atau desainlah sebuah form seperti gambar berikut ini

Tampilkan Gambar

Pada postingan ini saya memakai database Ms Access dengan nama database DB_MHS.mdb, dengan nama tabel Tbl_Mhs desain tabelnya seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar

Jika sudah kita lanjutkan menulis koding untuk pencariannya, untuk koding menampilkan datanya tidak akan saya bahas di sini silahkan lihat tutorial sebelumnya disini atau download koding lengkapnya di akhir tulisan ini.

Tulislah koding berikut ini pada bagian Text1_Change

Private Sub Text1_Change()
    If Option1.Value = False And Option2.Value = False _
        And Option3.Value = False And Option4.Value = False Then
        
        MsgBox "Silahkan Pilih Salah Satu Opsi Terlebih Dulu!", vbExclamation, "Perhatian"
        Text1.Text = ""
        Exit Sub
    End If
    
    Call Buka
    Set RsMhs = New ADODB.Recordset
    'Option 1
    If Option1.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE nim LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 2
    ElseIf Option2.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE nama LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 3
    ElseIf Option3.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE alamat LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 4
    ElseIf Option4.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE jurusan LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    End If
    
    'menampilkan hasil ke list view
    If Not RsMhs.EOF Then
        i = 1
        ListView1.ListItems.Clear
        While Not RsMhs.EOF
          Set View = ListView1.ListItems.Add
          View.Text = i  'nomor urut
          View.SubItems(1) = RsMhs!Nim
          View.SubItems(2) = RsMhs!Nama
          View.SubItems(3) = RsMhs!alamat
          View.SubItems(4) = RsMhs!jurusan
          i = i + 1
          RsMhs.MoveNext
        Wend
    End If
    RsMhs.Close
End Sub

Jika sudah silahkan simpan dan jalankan jika berhasil maka akan tampil seperti gambar animasi berikut ini.

Contoh atau tutorial Pencarian Data Pada Listview Di VB Bag 1 ini dapat anda terapkan dengan database selain Ms Access seperti MySQL,SQL Server dan lain lain. Jika anda menginginkan koding ( source code ) lengkapnya silahkan download link di bawah ini.

DOWNLOAD

Tags:

Pencarian Data Pada Listview Di VB,Pencarian data di listview,Filter data pada listview,penyaringan data pada listview,Pencarian Data Pada Listview Di VB 6,Pencarian Data Pada Listview Di VB 6.0,Pencarian Data Pada Listview Di VB6