Tutorial VB6 : Cara Filter Datagrid Menggunakan Textbox
Luminosidad sobat sourcecodeaplikasi, melanjutkan postingan kami sebelumnya mengenai Cara menampilkan data dari database dalam combobox pada vb6, kali ini saya akan berbagi cara memfilter data di Datagrid menggunakan Textbox di VB6.
Bahan yang akan saya contohkan disini masih menggunakan Program mendasar yang sebelumnya telah saya berikan. jadi, seketika buka raja program dasarnya, Add form…dan desain seperti ini.
Langkah ke dua…buka halaman kode… masukkan kode / Copas kode dibawah ini :
1 2 3 4 5 6 7 8 9 10 11 |
Private Sub Form_Load() Call BukaDB RSBarang.CursorLocation = adUseClient RSBarang.Open " Select * from barang", Conn, 3, 1 With DataGrid1 Set .DataSource = RSBarang .Refresh End With End Sub |
Penjelasan singkat Script di atas…”Dikala form di load…program akan me-load data-data yang terdapat di database ke Datagrid” …. yap…kira-kira semacam itu.
Langkah berikutnya, kita bikin kode bagi mem-filter data yang terdapat di Datagrid tersebut. Tambahkan Koding dibawah ini :
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Private Sub Text1_Change() Call BukaDB RSBarang.CursorLocation = adUseClient RSBarang.Open "Select * from barang where NamaBrg like '%" & Text1 & "%'", Conn If Not RSBarang.EOF Then With RSBarang With DataGrid1 Set .DataSource = RSBarang .Refresh End With End With End If End Sub |
Disitu, Saya menggunakan Command Like bagi mencari data menurut nama barang. Dikala di Run…Tampilan Seperti ini.
Dan Saya Coba ketik “Kopi”… tampilan akan seperti ini.
Bila Dihapus, atau Textbox di kosongkan, otomatis Datagrid akan kembali seperti ketika pertama-tama kali Form di load..
Demikianlah tahapan panduan di postingan ini mengenai Filter Datagrid Menggunakan Textbox di VB6, semoga bermanfaat.