Source code berikut untuk mengoneksikan VB 6 dengan database Access.
Agar aplikasi bisa di running dimana saja, dengan menggunakan fungsi
App.Path, dan database Access disimpan dalam satu folder yang sama
dengan project VB nya.
Source code simpan di Module :
Public Conn As New ADODB.Connection Public Sub koneksi() On Error GoTo konekErr If Conn.State = 1 Then Conn.Close 'sesuaikan database .mdb nya dengan database anda Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db_tes.mdb;Persist Security Info=False" Exit Sub konekErr: MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan" End Sub
Untuk penggunaannya dengan Adodc dan DataGrid, seperti contoh berikut :
Private Sub Form_Load() koneksi 'pemanggilan koneksi database Adodc1.ConnectionString = Conn.ConnectionString Adodc1.RecordSource = "select * from contoh" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub