Filter Data Mshflexgrid Menggunakan Textbox (VB6)

Halo sobat, pada postingan kali ini saya akan mengulas tentang metode Pencarian Data Menggunakan Textbox dan Mshflexgrid. Apa itu Mshflexgrid?, Mshflexgrid ialah sebuah control mengolah data dalam bentuk tabel. Jika sebelumnya saya telah mengulas mengenai cara 'Menampilkan Database ke Mshflexgrid'. Tanpa panjang lebar, yuk kita buka program Visual Basic 6 nya.

• Tambahkan 1 Form : Form1 (default)
• Tambahkan Microsoft Hierarchical Flexgrid Control 6.0 (OLEDB)
  Caranya : Klik menu Project => Component , lalu centang Microsoft Hierarchical Flexgrid Control 6.0 (OLEDB), lalu klik OK
• Letakkan Mshflexgrid ke dalam Form1
• Tambahkan textbox ke dalam Form1

maka tampilan tersebut akan seperti di bawah ini (namun desain sobat jangan terpaku oleh gambar yang saya tampilkan disini)

Database yang saya gunakan masih tetap sama dengan postingan sebelumnya yaitu menggunakan 'TBL_USER' dan data yang akan kita cari ialah field 'UserID'. Bagaimana cara penerapan codingnya? yuk kita simak di bawah ini

Private Rs As New ADODB.Recordset
Private Con As New ADODB.Connection
Private Sql As String

Private Sub Form_Load()
'Membuka Koneksi
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./DBgrid.mdb;Persist Security Info=False"
End Sub

Private Sub Text1_Change()
Set Rs = New ADODB.Recordset
    Sql = "select *from tbl_user where userid like '" & Text1.Text & "%' order by userid"
    Rs.Open Sql, Con, adOpenStatic
Set MSHFlexGrid1.Recordset = Rs
    Rs.Close
   
'Mengatur lebar Kolom Mshflexgrid
    MSHFlexGrid1.ColWidth(0) = 0
    MSHFlexGrid1.ColWidth(1) = 1200
    MSHFlexGrid1.ColWidth(2) = 1200
    MSHFlexGrid1.ColWidth(3) = 1200
End Sub

Download Source Code

Semoga Bermanfaat ...

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

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