Contoh program ini dimaksudkan untuk memberikan landasan latihan bagi pemula dalam menggunakan DataGrid, ADO DataControl. Contoh meliputi bagaimana menampilkan record ke TextBox, Record aktif dan jumlah record ke DataControl caption, beserta bagaimana mencari data didalam DataGrid melalui TextBox berdasarkan huruf yang di ketik. Semoga contoh program ini dapat memberikan sumbangsih didalam kemajuan pemula programmer Indonesia.
Pencarian data pada recordset memang mudah dilakukan, tetapi bagaimana jika pencarian tersebut mempengaruhi tampilan record/data pada datagird? dan bagaimana juga jika pencarian dilakukan dengan mengetikkan teks pada textbox dan record/data pada DataGrid berubah sesuai dengan teks yg kita masukkan?
Untuk memberikan wawasan pengetahuan didalam masalah ini, kami menyediakan satu contoh program yang bisa anda pakai untuk latihan.
Contoh program ini dimaksudkan untuk memberikan landasan latihan bagi pemula dalam menggunakan DataGrid, ADO DataControl.
Contoh meliputi bagaimana menampilkan record ke TextBox, Record aktif dan jumlah record ke DataControl caption, beserta bagaimana mencari data didalam DataGrid melalui TextBox berdasarkan huruf yang di ketik.
Sebelum melangkah menjalankan contoh program yg telah Anda download, lebih baik Anda mengetahui penjelasan dibawah ini, coba lihat Gambar 1 dibawah ini. Pada form1, terdapat object Adodc1.
Gambar 1
Klik object tsb, dan lihat pada properties-nya, disana ada ConnectionString, lihat Gambar 2 dibawah ini:
Gambar 2
double-click, dan akan muncul kotak dialog seperti dibawah ini:
Gambar 3
Pada bagian Use Connection String, carilah teks: Data Source=D:\DokumenKu\Source Code\VB60\Grid\DataGrid\FindData\coba.mdb, data source ini merupakan folder dimana file dengan nama coba.mdb (yang disertakan dalam contoh program) diletakkan disana, untuk agar contoh program tidak mengalami error, gantilah folder tsb sesuai dengan folder yang Anda gunakan.
Setelah itu, jika tidak ada error, tampilan contoh program tsb akan tampak seperti Gambar 4 dibawah ini:
Gambar 4
Semoga contoh program ini dapat memberikan sumbangsih didalam ikut memajukan pemula programmer Indonesia.
Selamat mencoba dan semoga bermanfaat.
sebelumnya trima kasih sekali kpd pengelola situs wahana ini , saya senang bisa menemukan situs ini, semoga terus eksis dan berjaya…, HIdup wahana
. thanks, tapi kalau koneksinya pk adodb gmn?
Coba kode ini:
Private Sub Form_Load()
Dim oRs As New ADODB.Recordset
Dim adoConn As ADODB.Connection
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source = ” & App.Path & “/Nwind.mdb”
adoConn.Open
oRs.CursorLocation = adUseClient
oRs.Open “select * from customers”, adoConn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = oRs
DataGrid1.Refresh
End Sub
pak, tidak mau ditampilkan dan error pake adodb connnection pak..
saya mau tnya pak klo filter tgl bln tahun pake datapicker listing di formnya bagaimana pak..??saya lagi mau buat laporan tapi lgsg dari form tdk pake data reports…..Mohon Bantuannya pak….
ambil langsung saja nilai dari dtpicker, dan masukkan dalam parameter WHERE Query-nya.
Maaf pak msh krg ngert….bisa dikasi contohnya pak..??
di dtpicker, itu ada tgl, bln, thn, kamu ambil satu persatu dan masukkan kedalam kondisi WHERE-nya, misal tgl=DAY(dtpicker.value), bln=MONTH(dtpicker.value), thn=YEAR(dtpicker.value).
klo mau nampilin data yang sesuai kriteria di datagrid tuh gmana pak..??
sekalian ma contohnya pak, maklum pemula…
di querynya kamu tambahkan kondisi WHERE …
File nya ga bisa di download pak..bisa minta source code nya saja??
file masih bisa untuk di download.
makasih banyak pak,, sangat membantu..
Ok. Semoga bermanfaat.
Terima Kasih Tas Bantuannya Akan Saya Kembangkan……………………..
sangat membantu… Terima Kasih atas tutorialnya,
terima kasih pak atas codingnya..sangat bermanfaat sekali buat saya
Akhirnya nemu juga pencarian data dalam datagrid…
Saya mau bertanya pak, gimana caranya kalau Adodc1 merupakan hasil query.
Query-nya seperti ini.
SELECT apbd.id_kontrak_apbd, apbd.no_kontrak_apbd, apbd.nama_proyek_apbd, pemberi_proyek.pemberi_proyek, apbd.nilai_kontrak_apbd, apbd.tanggal_kontrak_apbd, apbd.tahun_anggaran, status_proyek.status_proyek, provinsi.provinsi, apbd.selesai_kontrak_apbd, uspas.nama_pengguna
FROM status_proyek INNER JOIN (provinsi INNER JOIN (pemberi_proyek INNER JOIN ((apbd INNER JOIN input_apbd ON apbd.id_kontrak_apbd = input_apbd.id_kontrak_apbd) INNER JOIN uspas ON apbd.id_user = uspas.id_user) ON pemberi_proyek.id_pemberi_proyek = apbd.id_pemberi_proyek) ON provinsi.id_provinsi = apbd.id_provinsi) ON status_proyek.id_status_proyek = apbd.id_status_proyek;
Query diciptakan dari tabel: apbd, pemberi_proyek, provinsi, uspas, status_proyek.
Mohon bantuannya…
terimakasih mas
Pak, kalau saat datagrid di double klik muncul “System.Argument.OutOfRangeException: Index was out of range. bla bla bla” kenapa ya?