Filter Datagrid Menggunakan Textbox (VB6)

Halo sobat, saya akan melanjutkan pembahasan kembali mengenai filter data. Sebelumnya, saya telah membahas mengenai Filter Data Mshflexgrid Menggunakan Textbox. Kali ini, saya akan menggunakan Datagrid untuk menampilkan database. Dengan bantuan textbox untuk pencarian nama.

Langsung saja kita buka program Visual Basic 6 nya.

Tambahkan 1 Form : Form1 (Default)
Tambhkan Microsot ActiveX Data Objects 2.1 LibraryCaranya : Klik Menu Project => References = > Pilih Microsot ActiveX Data Objects 2.1 Library
Tambahkan Microsoft DataGrid Control 6.0 (OLEDB)
Caranya : Klik menu Project => Component , lalu centang Microsoft DataGrid Control 6.0 (OLEDB), lalu klik OK
Tambahkan Textbox : Text1 (Default)
Tambahkan DataGrid : Datagrid1

Sehingga tampilan akan seperti di bawah ini

Masukkan coding di bawah ini ke Form1 caranya Klik Kanan pada Form1 => Pilih View Code

Private Con As ADODB.Connection
Private RSPembiayaan As ADODB.Recordset

Private Sub Form_Load()
    Call Koneksi    'Membuka Koneksi
    Con.CursorLocation = adUseClient
    RSPembiayaan.Open "Select *from TBL_Pembiayaan", Con    'Membuka Tabel Pembiayaan
    Set DataGrid1.DataSource = RSPembiayaan.DataSource    'Menghubungkan Datagrid ke tabel Pembiayaan
End Sub

Sub Koneksi()
    Set Con = New ADODB.Connection
    Set RSPembiayaan = New ADODB.Recordset
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./DBPembiayaan.mdb"
End Sub

Private Sub Text1_Change()
    Call Koneksi    'Membuka Koneksi
    RSPembiayaan.CursorLocation = adUseClient
    RSPembiayaan.Open "Select * from TBL_Pembiayaan where Nama like '%" & Text1 & "%'", Con
    If Not RSPembiayaan.EOF Then
        With RSPembiayaan
            With DataGrid1
                Set .DataSource = RSPembiayaan
                    .Refresh
            End With
        End With
End If
End Sub

Jika sudah memasukkan langkah-langkah di atas, coba sobat jalankan programnya.
untuk Source Code nya silahkan bisa di download << DISINI >>

Semoga Bermanfaat ...

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 2:52:00 PM and have 5 comments

5 comments:

Anonymous29/5/13 5:18 PM
Kalo koneksinya pake MySQL gimana ya?
Admin (Ade Setiadi)30/5/13 8:14 AM
Di asumsikan bahwa driver Mysql sudah terinstal di komputer sobat, disini saya menggunakan driver msyql 5.2w. dengantidak merubah struktur script yang lain, hanya isi dari Sub Koneksi

Sub Koneksi()
Set Con = New ADODB.Connection
Set RSPembiayaan = New ADODB.Recordset
Con.Open "Provider=MSDASQL.1;Persist Security Info=False;DRIVER={MySQL ODBC 5.2w Driver};DATABASE=nama_database;OPTION=0;PORT=3306;SERVER=127.0.0.1;UID=root;"
End Sub

*//SERVER =(Isikan IP Address PC yang digunakan sebagai Sever Database
*//DATABASE = (isikan nama database sobat)

Semoga membantu
.24/7/13 9:51 PM
terima kasih banyak atas ilmu nya semoga share ilmu nya mendapat pahala yang terus mengalir dari Allah SWT, amiin....
Anonymous7/4/14 7:37 PM
TERIMA KASIH BANYAK
KALO MISAL NAMPILIN DARI COMBO BOX BISA GAK???
nowsath19/8/21 8:12 PM
Assalamu alaikum
Thank you so much the code is working very well

Aksara Webs