Terkadang, data yang kita tampilkan dalam bentuk grid, jika hanya beberapa baris mungkin akan mudah mencarinya, tapi jika data yang di tampilkan berjumlah ratusan bahkan ribuan data, apa kita harus mencarinya satu persatu, pasti akan memakan waktu yang lama dan perlu ketelitian.
Dalam GridControl telah disediakan untuk Search dan Filter melalui grid, berikut akan saya tampilkan fitur bawaan dari gridcontrol dalam hal searching dan filter tanpa code.
Buatlah New Project baru, kemudian tambahkan GridControl kedalam form tersebut, isikan dock dengan fill, sehingga akan memenuhi form tersebut, seperti gambar berikut :
- Masukkan ImageCollection kedalam form
- Masukkan gambar kedalam ImageCollection1
- Pada GridControl1 --> UsedEmbeddedNavigator = True
- Pada Properties GridView1, tambahkan Images= ImageCollections1
- Pada Properties GridView1 tambakan column 5 column
- Pada gridcolumns2-->ColumnEdit -->ImageComboboxEdit
- Pada gridcolumns3 -->ColumnEdit--> DateEdit
- Pada gridcolumns3 -->UnboundType = String
- pada gridcolumns4 --> Visibled = False
Pada properties masing-masing control anda bisa lihat pada source code yang telah di sediakan diakhir posting ini, anda bisa lihat perubahan apa saja di dalam properties GridControl atau GridView.
Pada contoh ini, saya menggunakan database access, sehingga untuk koneksi ke database saya menggunakan oledb sbb:
Public con As New OleDb.OleDbConnection
Dim dtTable As DataTablePublic Sub opencon()TryDim Path As String = Application.StartupPath + "\" + "udinsofyanblogspotcom.accdb"con = New OleDb.OleDbConnectioncon.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Path & ";Jet OLEDB:Database Password=; "If con.State = ConnectionState.Closed Then con.Open()Catch ex As OleDbExceptionThrow exEnd Sub
Pada script di atas saya mengambil databasenya sama dengan direktori dimana program ini di jalankan, jadi pastikan database dalam satu direktory, kecuali anda rubah path database sendiri.
Untuk mengambil data dari database saya menggunakan script berikut :
Sub ConnectionDB()
Try
opencon()Dim cmd As New OleDbCommand("select * from sample", con)Dim ada As New OleDbDataAdapter(cmd)dtTable = New DataTableada.Fill(dtTable)GridControl1.DataSource = NothingGridControl1.DataSource = dtTableCatch ex As ExceptionMessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)Exit SubFinallycon.Close()End TryEnd Sub
Jika Program dijalankan akan seperti ini :
Jika kita ingin Search di No Id dengan awalan dari b maka akan seperti ini :
anda bisa lihat, begitu huruf b di tulis langsung semua data dalam grid akan filter data di column No Id menjadi awalan b semua, anda juga bisa lihat pada garis merah, pada column tersebut anda bisa mencari data berdasarkan No Id, Nama Gender atau Tanggal .... tidak perlu code lagi dan tidak perlu buat script untuk membuat hal tersebut.
sekarang apa saja yang bisa di filter oleh grid
anda bisa perhatikan pada column No Id, coba anda klik tanda filter samping kanan atas column No Id, jika di klik akan seperti itu, sekarang coba klik Edit Filter di kanan bawah seperti pada lingkaran tersebut, maka akan keluar seperti berikut :
anda di berikan custom filter lagi untuk menyaring data yang di perlukan, anda bisa explore lagi untuk edit filter ini. ...... selamat mencoba...
Salam
Download source code:
Search Or Filter Data In GridControl
Terima kasih mas udin, sepertinya hampir sama dgn C1 ( baru tadi pagi saya tanya sekarang ud ada contohnya, sekali lagi terima kasih ). satu lagi mas udin, reportnya terasa belum lengkap tanpa report (XtraReport). Maaf mas udin terlalu banya mintanya, kalau ada yang bisa saya bantu saya bantu deh .... hehh...hee...hee...
ReplyDeletepasti saya akan buatkan mas made, tapi saya harus keluarin yang dasar-dasar dahulu, karena kalau langsung ke report kayak jadi loncat, untuk yang baru belajar jadi bingung...
ReplyDeleteOh yah, bener tuh mas udin saya setuju, saya juga masih baru di vb.net, jadi saya setuju dengan materi yang mas udin sediakan.
ReplyDelete