Tutorial VB6 – Menampilkan Data Dari Database Kedalam Grid
Hai sobat sourcecodeaplikasi semua ….
pada kesempatan ini saya akan berbagi cara bagaimana caranya untuk menampilkan data yang ada pada database melalui DataGrid yang ada pada VB6.
Saya mempunyai tabel seperti ini, Ini database menggunakan MS. Access 2007 :
Oke, Langsung sajadura, Mari kita buat Projectnya :). Pertama – tama … Buat Project baru, g’ perlu di desain lah…wong kita cuma ingin menampilkan data sajadura kok repot.
- Buat Module baru, beri nama dengan modul “koneksi”.
- ketikkan atau Copas kode berikut ini :
1 2 3 4 5 6 7 8 9 10 |
Public conn As New ADODB.Connection Public rstampan As New ADODB.Recordset Public Sub bukadb() Set conn = New ADODB.Connection Set rsbarang = New ADODB.Recordset Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DBbelajar.mdb" End Sub |
Ingat : Koding diatas hanya berlaku apabila anda menggunakan database MS.ACCESS..Untuk database yang lain, Musti ganti lagi kodingnya 🙂
- Lalu Ketikkan Koding dibawah ini pada even Fom_load
1 2 3 4 5 6 7 8 9 |
Call BukaDB Conn.CursorLocation = adUseClient RSBarang.Open "select * from barang", Conn With RSBarang If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If End With Set DataGrid1.DataSource = RSBarang.DataSource |
Setelah itu, Simpan Projectnya 1 folder dengan databasenya. klik file – Save Project As …..
Jika telah selesai melakukan hal – hal yang saya sebutkan di atas .. Coba running / jalankan programnya 🙂 Munculkah ???
ScreenShot :
sumber zoeliandri.wordpress.com