Membuat Filter Data Pencarian SQL Pada Datagrid Visual Basic 6 Dengan Textbox

Pada Umum nya kebanyakan tutorial Filter pencarian data dalam Datagrid menggunakan Adocd1,tapi kali ini saya akan menjelaskan bagaimana memfilter sebuah data pencarian data SQL pada datagrid dalam  textbox pencarian.

Sebelum nya seperti biasa,anda koneksikan terlebih dahulu database SQL anda dengan menggunakan ODBC,setelah terkoneksi tampilkan database pada MySQL tersebut ke dalam datagrid.

Ada Beberapa macam cara atau koneksi String Variabel dalam menampilkan database MySQL ke dalam datagrid, disini saya menggunakan Koneksi untuk menampilkan database MySQL ke dalam Datagrid dengan menggunakan Variabel seperti Source Code di bawah ini.

'Source Code General nya

Private Con As ADODB.Connection

Private RSdata As ADODB.Recordset

'Menghubungkan database SQL ke datagrid

Sub Koneksi()

    Set Con = New ADODB.Connection

    Set RSdata = New ADODB.Recordset

    Con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=transaksi;uid=root;pwd=ibnusabil;"

End Sub

   'Membuka Koneksi

Private Sub Form_Load()

 Call Koneksi 

    Con.CursorLocation = adUseClient

    RSdata.Open "SELECT * FROM transaksi ORDER BY  `Nm_brang` ASC ", Con

    Set DataGrid1.DataSource = RSdata.DataSource

With DataGrid1

End With

End Sub

Nah Sobat blogger.. inilah Source Code inti dari Judul postingan saya tersebut.

Silahkan anda Masukan Source Code di bawah ini ke dalam Textbox Pencarian Anda.

Private Sub Text1_KeyPress(KeyAscii As Integer)

Text1.SetFocus

If KeyAscii = vbKeyReturn Then Command5.SetFocus

Dim a As Integer

     a = Text1.SelStart

     Text1.Text = StrConv(Text1.Text, vbProperCase)

     Text1.SelStart = a

     

Call Koneksi

    RSdata.CursorLocation = adUseClient

    RSdata.Open "Select * from transaksi where nm_brang like '%" & Text1 & "%'", Con

     Set DataGrid1.DataSource = RSdata.DataSource

With DataGrid1

Silahkan anda ganti teks yang berwarna Merah tersebut dengan Database SQL anda berikut dengan Nama  tabel nya.

Oke Guys.. Selamat Mencoba..