Pencarian | Searching Data Items Di Listview Vb6

11 views
Pencarian | Searching Data merupakan hal yang sangat diharapkan 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 menciptakan Pencarian | Searching Data Items di Listview VB6.
Buka Microsoft Visual Basic 6.0 – StandartEXE lalu 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 menyerupai tampilan dibawah ini

Tambahkan juga sebuah module, mdoule disini berfungsi untuk mempublikasikan variabel koneksi ke database dan menciptakan sub koneksi kedatabase dan untuk database yang dipakai ialah 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 dibentuk 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 lalu pilih mekanisme Form_Load lalu 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 memakai Sql pencarian yang nantinya sub ini akan dipanggil pada ketika 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 lalu panggil sub Books_TampilData dengan syntak Call Books_TampilaData. Simpan lalu RUN/F5 inputkan huruf pada textbox lalu klik tombol pencarian, secara otomatis data akan tampil dengan menurut field Kode barang dan nama barang yang mengandung huruf pada textbox.

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

Author: 
    author
    No related post!