Kode Pencarian Data Acces dan Menampilkan ke Datagrid Vb6

Tutorial Visual Basic 6 – Pada Aplikasi database, data yang tersimpan kadangkala sangat banyak dan tentu saja bila kita ingin mencari data yang diinginkan kita bakal kesulitan menemukannya. Pada artikel kali ini, penulis akan membahas Kode Pencarian Data Acces dan Menampilkan Ke datagrid Vb6. Dengan kode tersebut kita bakal dengan cepat menemukan informasi objek data yang kita inginkan.

Hal pertama yang harus diperhatikan yaitu nama File acces nya yaitu DATABASE_ANGGOTA.Accdb dengan Nama Tabel nya Yaitu DATA_ANGGOTA sebagai tempat data yang tersimpan yang akan di tampilkan ke datagrid.

Penulis akan memberikan dua jenis Kode Pencarian Data Acces dan menampilkan ke datagrid yaitu Kode Pencarian Full Keyword dan Kode Pencarian Sebagian Keyword.

Kode Pencarian Data Acces dan menampilkan ke Datagrid Full Keyword

Kode ini bisa digunakan di object commandbutton dengan Procedure Click atau di object textbox dengan Procedure Keypress. Kita akan menggunakan object text1 sebagai tempat pencarian untuk mencari data Nama pada tabel acces DATA_ANGGOTA dan object datagrid1 sebagai tempat hasil proses pencarian text1.  Kode pencarian Data Acces dan menampilkan ke Datagrid Full Keyword seperti di bawah ini :

Private Sub Command1_Click()
Adodc1.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & App.Path & "\DATABASE_FILE.ACCDB"
Adodc1.RecordSource = "select KODE_ANGGOTA, NAMA, ALAMAT from DATA_ANGGOTA WHERE NAMA = '" & Text1 & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Atau  bisa juga Kode pada bagian Adodc1.recordSource diganti menjadi :

Adodc1.RecordSource = "select * from DATA_ANGGOTA WHERE NAMA = '" & Text1 & "'"

Sehingga keseluruhan Kode nya menjadi seperti di bawah ini

Private Sub Command1_Click()
Adodc1.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & App.Path & "\DATABASE_FILE.ACCDB"
Adodc1.RecordSource = "select * from DATA_ANGGOTA WHERE NAMA = '" & Text1 & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Hasil Gambarnya seperti di bawah ini :

Kode Pencarian Data Acces dan menampilkan ke Datagrid Sebagian Keyword

Kode ini digunakan di Object Textbox dengan Procedure Change. Kita akan menggunakan object text1 sebagai tempat pencarian untuk mencari data Nama pada tabel acces DATA_ANGGOTA dan object datagrid1 sebagai tempat hasil proses pencarian text1.  Kode pencarian Data Acces dan menampilkan ke Datagrid Sebagian Keyword seperti di bawah ini :

Private Sub Text1_Change()
Adodc1.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & App.Path & "\DATABASE_FILE.ACCDB"
Adodc1.RecordSource = "select * from DATA_ANGGOTA WHERE NAMA LIKE '%" & Text1 & "%'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Atau bisa juga Kode pada bagian Adodc1.recordSource diganti menjadi :

Adodc1.RecordSource = "select KODE_ANGGOTA, NAMA, ALAMAT from DATA_ANGGOTA WHERE NAMA LIKE '%" & Text1 & "%'"

Sehingga keseluruhan Kode nya menjadi seperti di bawah ini :

Private Sub Text1_Change()
Adodc1.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & App.Path & "\DATABASE_FILE.ACCDB"
Adodc1.RecordSource = "select KODE_ANGGOTA, NAMA, ALAMAT from DATA_ANGGOTA WHERE NAMA LIKE '%" & Text1 & "%'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Kode diatas akan mencari data yang cocok dengan huruf-huruf yang diketik, tidak perlu sampai full keyword, cukup sebagian keyword maka datagrid akan menampilkan data acces sesuai dengan huruf yang ada. Hasil gambarnya seperti di bawah ini :





Sekian Artikel tentang Kode Pencarian Data Acces dan Menampilkan ke Datagrid Vb6, semoga bermanfaat – Tutorial Visual Basic 6.

Share this Kode Pencarian Data Acces dan Menampilkan ke Datagrid Vb6 article :

Facebook Twitter Google+

Artikel Terkait Kode Pencarian Data Acces dan Menampilkan ke Datagrid Vb6

TENTANG PENULIS

Nanang Sugiarto

Penulis seorang Programmer Aplikasi Database Vb6 dan Blogger. Situs Web yang dibuat Penulis yaitu : Nanang Sugiarto WorkShop, Tutorial VB6 Sugiarto, Tutorial Microsoft Office Sugiarto, dan Seputar Pengetahuan Pangan.