Filter Datagrid menggunakan Textbox di VB6

Bahan yang akan saya contohkan disini masih menggunakan Program dasar yang sebelumnya telah saya berikan. jadi, langsung buka saja 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…”Saat form di load…program akan me-load data-data yang ada di database ke Datagrid” …. yap…kira-kira begitu.

Langkah selanjutnya, kita buat kode untuk mem-filter data yang ada 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 Perintah Like untuk mencari data berdasarkan nama barang. Saat di Run…Tampilan Seperti ini.

Dan Saya Coba ketik “Kopi”… tampilan akan seperti ini.

Jika Dihapus, atau Textbox di kosongkan, otomatis Datagrid akan kembali seperti saat pertama kali Form di load..

Pencarian data melalui Combobox VB6

Melanjutkan tutorial – tutorial sebelumnya di VB6. Kali ini saya akan berbagi cara mengenai pencarian data melalui Combobox di VB6.

Untuk tampilan form saya masih menggunakan tampilan form yang ada pada tutorial sebelumnya yaitu Menampilkan data yang ada pada database di combobox VB6 . Seperti ini gambarnya :

Jadi, Logikanya seperti ini : Saat Combobox di Click … maka akan muncul data – data tentang barang yang ingin dicari.

Klik 2X Combobox nya, masukkan Koding dibawah ini pada event Combobox1_Click

1 2 3 4 5 6 7 8 9 10 11 12 13

Call BukaDB RSBarang.Open "select * from Barang where Kodebrg='" & Left(Combo1, 6) & "'", Conn If Not RSBarang.EOF Then     With RSBarang     If Not RSBarang.EOF Then         Text1 = RSBarang!Kodebrg         Text2 = RSBarang!namabrg         Text3 = RSBarang!HargaBeli         Text4 = RSBarang!HargaJual         Text5 = RSBarang!JumlahBrg     End If     End With End If

Setelah memasukkan koding diatas, Coba Running / Jalankan Programnya. Apakah Muncul ? Atau Error ???