Vb 6.0 - Cara Menciptakan 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 dipakai oleh para Programmer VB untuk medapatkan hasil pencarian data pada sebuah Form VB 6.0. Bayangkan jikalau data sudah banyak dan kita memakai scroll pada mouse untuk mencarinya, maka akan sangat ribet, oleh alasannya yakni itu kita sanggup menciptakan sebuah text pencarian data semoga lebih gampang 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 menyerupai gambar dibawah ini :

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

Jika sudah, silahkan buka aktivitas Visual Basic 6.0 di komputer anda
Buatlah design form1 menyerupai 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 yakni menyerupai ini:

Jika memasukan data di pencarian :

Demikian Cara Membuat Form Pencarian Data di Datagrid VB 6.0, semoga bermanfaat untuk anda yang sedang berguru Visual Basic 6.0 :)

Silahkan KLIK DISINI untuk download Project diatas

Share this post