VB 6.0 - 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.

VB 6.0 - Membuat Form Pencarian Data di Datagrid


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:
VB 6.0 - Cara Membuat Form Pencarian Data di Datagrid

Jika memasukan data di pencarian :
VB 6.0 - Cara Membuat Form Pencarian Data di Datagrid

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

Silahkan KLIK DISINI untuk download Project diatas

5 Responses to "VB 6.0 - Cara Membuat Form Pencarian Data di Datagrid"

  1. Replies
    1. Terima kasih, Jangan lupa, like, komen, share :)

      Delete
  2. min mau tanya ana kalo RSSUPPLIER apaan itu ana ga tau

    ReplyDelete
  3. min ana mau nanya itu yg RSSUPPLIER apaan ya?

    ReplyDelete
    Replies
    1. Dear Miftah,
      Untuk RSSupplier ada RS dan Supplier
      RS sendiri singkatan Record Source dan Supplier ya supplier.
      Itu hanya sebuah variable yang saya buat sendiri.
      Jika mau diganti dengan kata yang lain tidak masalah. Yang pasti itu untuk mengkoneksikan dan mengambil data yang ada di tabel.
      Mudah2an bisa dimengerti

      Salam
      JNM

      Delete