Cara Membuat Menu Pencarian Data di Listview

Cara Membuat Menu Pencarian Data di Listview - Hi, apa kabar, kali ini saya membagikan sebuah tutorial sederhana, 

mengenai menu pencarian yang sederhana namun tidak terlalu dipusingkan dengan Source kodenya.

Pencarian adalah fasilitas wajib di sebuah aplikasi, 

agar memudahkan pengguna berinteraksi dengan aplikasi dan juga cepat dalam mencari sebuah data.

Berikut gambar menu pencarian di sebuah apalikasi sederhana.

Untuk menu pencarian, saya hanya menggunakan fungsi sql bernama "LIKE" 

dan xCari adalah textbox yang akan digunakan untuk pencarian. Berikut beberapa potong kode sederhana, anda bisa lihat kodenya dibawah ini :

Untuk berpindah antar spasi atau agar listingnya tidak terlalu panjang gunakan tanda & _ seperti contoh diatas.

Dan untuk menampilkan data di Listview, 

yakni LvShipper apabila pencariannya berhasil secara otomatis listview vShipper akan mengenerasi barisnya sesuai instruksi pencarian. 

Berikut potongan kodenya :

Sub Tampil(strSQL As String)

    Call Koneksi
    LvShipper.ListItems.Clear
    Dim Data As ListItem

    If rsSHIPPER.State = 1 Then rsSHIPPER.Close
    rsSHIPPER.Open strSQL, CON, adOpenDynamic, adLockOptimistic
    While Not rsSHIPPER.EOF
    With LvShipper
        'With FlxGd
        '.ListItems.Add , , .ListItems.Count + 1 & "."
        .ListItems.Add , , rsSHIPPER.Fields(0)
        .ListItems(.ListItems.Count).SubItems(1) = rsSHIPPER.Fields(1)
        .ListItems(.ListItems.Count).SubItems(2) = rsSHIPPER.Fields(2)
        .ListItems(.ListItems.Count).SubItems(3) = rsSHIPPER.Fields(3)
        .ListItems(.ListItems.Count).SubItems(4) = rsSHIPPER.Fields(5)
      ' .ListItems(.ListItems.Count).SubItems(5) = rsSHIPPER.Fields(5)
      ' .ListItems(.ListItems.Count).SubItems(1) = rsSHIPPER.Fields(5)
      
        rsSHIPPER.MoveNext
    End With
    Wend

End Sub

Dan Awal Program tepatnya di Form_Load anda wajib meletakan kode berikut, 

lebih jelasnya bisa dilihat pada listing program di bawah ini :

Private Sub Form_Load()
   
    Me.Height = 7590
    Me.Left = 4000
    Me.Top = 200
    Me.Width = 10290
   
    Set CON = New ADODB.Connection
    CON.Open "DSN=gs"
    CON.CursorLocation = adUseClient

    BukaIdDepo
    Call NonAktiv
    Tampil ("SELECT * FROM SHIPPER")

End Sub

Source kode ini masih berhubungan dengan tulisan saya mengenai Membuat Listview Berfungsi Layaknya Combobox. 

Untuk memudahkan anda mengikuti tulisan ini, sudah saya sertakan source kode dan databasenya access, 

anda bisa download di Source Kode Listview Ala Combobox.

Semoga tulisan ini bisa membantu anda mempelajari Visual Basic jadi semakin mudah dan menyenangkan.

Atas perhatiannya diucapkan terima kasih.