Pencarian Data Pada Listview Di VB Bag 2

Pada pencarian data pada listview bagian ke dua ini saya tidak akan menggunkan option button untuk opsi pencariaannya seperti yang terdapat pada bagian pertama.
Pada bagian ke dua ini mirip dengan pencarian data  pada grid bag 2 yang telah saya posting sebelumnya. 

Apakah anda sudah bisa membuat Pencarian Data Pada Listview Di VB? Jika sudah tidak usah diplototin tulisan ini, bagi yang belum bisa silahkan disimak sampai akhir tulisan ini.

Pada postinga ini saya tidak akan memakai option button untuk opsi pencariannya tapi nanti hasilnya sama dengan memakai option. Kita akan rubah koding pencariaannya sehingga menghasilkan pencarian yang sama seperti pada tutorial pertama dengan hanya memasukan kata kunci pada text box pencariaannya tanpa perlu susah-susah memilih dulu opsi pencariaannya.

Disini akan menggunakan perintah LIKE dalam bahasa SQL, misalnya kita ingin mencari nama agus ketika mengetikan nama agus pada pencarian maka akan tampil semua nama yang mengandung nama agus.Itulah salah satu kelebihan perintah LIKE.

Sebagai contoh buatlah sebuah form dalam vb 6 seperti yang nampak pada gambar berikut ini

Tampilkan Gambar

Saya masih menggunakan database yang sama seperti pada tutorial bagian pertama.
Kodingnya sama seperti pada tutorial bag 1 hanya yang membedakan pada bagian Text1_Change.
Disini saya hanya akan menjelaskan  koding untuk pencariannya saja, untuk koding lengkapnya silahkan download source codenya di akhir tulisan ini.

Berikut koding pencariannya silahkan tulis pada bagian Text1_Change

Private Sub Text1_Change()
    Call Buka
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_Mhs " _
             & "WHERE nim LIKE '%" & Text1.Text & "%' " _
             & "OR nama LIKE '%" & Text1.Text & "%' " _
             & "OR alamat LIKE '%" & Text1.Text & "%' " _
             & "OR jurusan LIKE '%" & Text1.Text & "%'", _
    Conn, adOpenDynamic, adLockOptimistic
    
    ' menampilkan hasil ke list view
    With RsMhs
    If Not .EOF Then
        i = 1
        ListView1.ListItems.Clear
        While Not .EOF
          Set View = ListView1.ListItems.Add
          View.Text = i          'nomor urut
          View.SubItems(1) = !Nim
          View.SubItems(2) = !Nama
          View.SubItems(3) = !alamat
          View.SubItems(4) = !jurusan
          i = i + 1
          .MoveNext
        Wend
    End If
    End With
    RsMhs.Close
End Sub

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

Contoh atau tutorial Pencarian Data Pada Listview Di VB Bag 2 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.


Links Download

• Link 1
• Link 2
• Link 3

Tags:

Pencarian Data Pada Listview Di VB Bag 2, Pencarian data di listview dengan perintah LIKE, Filter data pada listview dengan perintah SQL, 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