Koneksi Database VB6 dengan Ms Access 2010 dan Cara Menampilkan data Pada Tabel

Sebelum menjadi seorang master, alangkah baiknya kita belajar dari hal yang paling terkcil dulu,

kali ini kita akan belajar tentang bagaimana cara mengkoneksikan database dengan vb 6, kali ini kita menggunakan database ms access 2010.



berikut adalah scriptnya..

Pada modul kita tambahkan,

Public Db As Connection

Public Function Aktif_Koneksi() As Boolean
Set Db = New ADODB.Connection
Db.CursorLocation = adUseClient
Db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\database.accdb;"
End Function


Pada form1

Dim WithEvents rccoba As Recordset

Private Sub Form_Load()
Aktif_Koneksi
Set rccoba = New Recordset
rccoba.Open "select * from table1", Db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rccoba
End Sub

sekian dan terimakasih, semoga bisa bermanfaat.