Menampilkan data yang ada di database kedalam Grid VB6

Hari 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 saja, Mari kita buat Projectnya :). Pertama – tama … Buat Project baru, g’ perlu di desain lah…wong kita cuma ingin menampilkan data saja 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 :