Cara Membuat Form Pencarian Data di Datagrid

Pada tutorial visual basic 6.0 kali akan kami bahas mengenai cara Membuat Form Pencarian Data di Datagrid. Fungsi ini banyak digunakan oleh para Programmer VB untuk medapatkan hasil pencarian data pada sebuah Form VB 6.0. Bayangkan jika data sudah banyak dan kita menggunakan scroll pada mouse untuk mencarinya, maka akan sangat ribet, oleh karena itu kita bisa membuat sebuah text pencarian data agar lebih mudah dan cepat.

Berikut langkahnya :
Buatlah sebuah folder dengan nama "VB6 Pencarian Data"
Buatlah sebuah database dengan nama DBJNM.mdb dan masukan kedalam folder tersebut
Buatlah Tabel dengan nama TBL_SUPPLIER dan design tabel tersebut seperti gambar dibawah ini :

Kemudian untuk sample data, silahkan masukan data seperti gambar dibawah ini :

Jika sudah, silahkan buka program Visual Basic 6.0 di komputer anda
Buatlah design form1 seperti gambar dibawah ini :

Pada gambar diatas terdapat : adodc1, DataGrid1, Text1, Button1
Note : Jangan lupa simpan di dalam folder yang sama diatas "VB6 Pencarian Data"

Jika sudah semua, silahkan masukan koding dibawah ini :

 
Dim Koneksi As New ADODB.Connection
Dim RSSUPPLIER As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSSUPPLIER = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "TBL_SUPPLIER"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Command1_Click()
Call BukaDB
RSSUPPLIER.Open "select * from tbl_supplier where NamaSupplier like '%" & Text1 & "%'", Koneksi
        If Not RSSUPPLIER.EOF Then
                Adodc1.RecordSource = "select * from tbl_supplier where NamaSupplier like '%" & Text1 & "%'"
                Adodc1.Refresh
                Set DataGrid1.DataSource = Adodc1
        End If
End Sub

Kemudian yang terakhir, jalankan project VB 6.0 anda
Hasilnya adalah seperti ini:

Jika memasukan data di pencarian :

Demikian Cara Membuat Form Pencarian Data di Datagrid VB 6.0, semoga bermanfaat