Pencarian | Searching Data Items di Listview VB6

Pencarian | Searching Data merupakan hal yang sangat diperlukan apalagi data yang ada sudah terlampau banyak, dengan adanya fasilitas Pencarian | Searching Data sangat memudahkan dalam user dalam menemukan data yang diinginkan. Pada kesempata kali ini admin akan menguraikan cara membuat Pencarian | Searching Data Items di Listview VB6.
Buka Microsoft Visual Basic 6.0 - StandartEXE kemudian tambahkan komponen berikut : 
1. Menu Project - References - Microsoft ActiveX Objects 2.6 Library
2. Menu Project - Components - Microsoft Windows Common Control 6.0 (SP6)
Designlah form dengan menambahkan Lisview, TextBox, CommanButton dan Label seperti tampilan dibawah ini

Tambahkan juga sebuah module, mdoule disini berfungsi untuk mempublikasikan variabel koneksi ke database dan membuat sub koneksi kedatabase dan untuk database yang digunakan yaitu MySQL Server dengan nama database dbPencarian dan nama tabel Penjualan.
Script pembuatan database

CREATE DATABASE `dbPencarian`
    CHARACTER SET 'latin1'
    COLLATE 'latin1_swedish_ci';

Script pembuatan tabel

CREATE TABLE `penjualan` (
  `IDBARANG` varchar(16) DEFAULT NULL,
  `NMBARANG` varchar(50) DEFAULT NULL,
  `SATUAN` varchar(10) DEFAULT NULL,
  `HRGJUAL` decimal(20,0) DEFAULT NULL,
  `JUMBRG` int(11) DEFAULT NULL,
  `DISCOUNT` decimal(20,0) DEFAULT NULL,
  `DISCOUNT2` decimal(20,0) DEFAULT NULL,
  `SUBTOTAL` decimal(20,0) DEFAULT NULL,
  `KATEGORI` varchar(20) DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Setelah database dan tabel dibuat copykan syntak koneksi ke database MySQL Server dibawah ini ke Module

Public CN As New ADODB.Connection
Public xRs As New ADODB.Recordset
Sub Koneksi()
Dim NServer, NUser, NPass, NDatabase As String
NServer = "localhost"
NUser = "root"
NPass = ""
NDatabase = "dbpencarian"
                        
CN.CommandTimeout = 0
If CN.State Then
   CN.Close
   CN.CursorLocation = adUseClient
   CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
   "SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _
   "UID=" & NUser & " ;PWD=" & NPass & ";OPTION=3"
   CN.Open
Else
   CN.CursorLocation = adUseClient
   CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
   "SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _
   "UID=" & NUser & " ;PWD=" & NPass & ";OPTION=3"
   CN.Open
End If
End Sub

Double pada form kemudian pilih prosedur Form_Load kemudian copy syntak dibawah ini :

Call Koneksi
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "Kode Barang", 1600
ListView1.ColumnHeaders.Add , , "Nama Barang", 4000
ListView1.ColumnHeaders.Add , , "Satuan", 1200
ListView1.ColumnHeaders.Add , , "Qty", 600, 2
ListView1.ColumnHeaders.Add , , "Kategori", 2000
ListView1.ColumnHeaders.Add , , "Harga Jual", 1500, 1
ListView1.ColumnHeaders.Add , , "Diskon 1", 1000, 1
ListView1.ColumnHeaders.Add , , "Diskon 2", 1000, 1
ListView1.ColumnHeaders.Add , , "Subtotal", 1500, 1

Keterangan dari syntak diatas tertera pada gambar dibawah ini

Kemudian kita buat juga sub untuk menampilkan data dengan menggunakan Sql pencarian yang nantinya sub ini akan dipanggil pada saat tombol pencarian di klik

Sub Books_TampilaData()
Dim LI As ListItem
Dim SQL As String
ListView1.ListItems.Clear
ListView1.Sorted = False
SQL = "select * from penjualan where NMBARANG LIKE '%" & Text1.Text & "%'or IDBARANG LIKE '%" & Text1.Text & "'"
Set xRs = New ADODB.Recordset
xRs.Open SQL, CN, 1, 3
If xRs.RecordCount = 0 Then
   ListView1.ListItems.Clear
Else
   xRs.MoveFirst
   While Not xRs.EOF
   Set LI = ListView1.ListItems.Add(, , xRs.Fields!IDBARANG)
       LI.SubItems(1) = xRs.Fields!NMBARANG
       LI.SubItems(2) = xRs.Fields!SATUAN
       LI.SubItems(3) = xRs.Fields!JUMBRG
       LI.SubItems(4) = xRs.Fields!KATEGORI
       LI.SubItems(5) = Format(xRs.Fields!HRGJUAL, "#,##0")
       LI.SubItems(6) = Format(xRs.Fields!DISCOUNT, "#,##0")
       LI.SubItems(7) = Format(xRs.Fields!DISCOUNT2, "#,##0")
       LI.SubItems(8) = Format(xRs.Fields!HRGJUAL * xRs.Fields!JUMBRG, "#,##0")
   xRs.MoveNext
   Wend
   ListView1.SelectedItem.Selected = False
End If
End Sub

Untuk yang terakhir kalinya double klik pada tombol; pencarian kemudian panggil sub Books_TampilData dengan syntak Call Books_TampilaData. Simpan kemudian RUN/F5 inputkan karakter pada textbox kemudian klik tombol pencarian, secara otomatis data akan tampil dengan berdasarkan field Kode barang dan nama barang yang mengandung karakter pada textbox.

Bagi yang berminat untuk mendownload sourcode dari artikel diatas silahkan download di LINK INI dan semoga artikel ini dapat bermanfaat bagi pembaca