VB 6.0 - Cara Membuat Form Pencarian Data di Datagrid

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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 untuk anda yang sedang belajar Visual Basic 6.0 :)

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel VB 6.0 - Cara Membuat Form Pencarian Data di Datagrid, Diterbitkan oleh scodeaplikasi pada Sabtu, 27 Februari 2016. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.