Koneksi Database Access Dengan Visual Basic 6

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 :

01 Public Conn As New ADODB.Connection
02
03 Public Sub koneksi()
04 On Error GoTo konekErr
05
06 If Conn.State = 1 Then Conn.Close
07
08 'sesuaikan database .mdb nya dengan database anda
09 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db_tes.mdb;Persist Security Info=False"
10 Exit Sub
11
12 konekErr:
13 MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
14 End Sub

Untuk penggunaannya dengan Adodc dan DataGrid, seperti contoh berikut :

1 Private Sub Form_Load()
2 koneksi 'pemanggilan koneksi database
3
4 Adodc1.ConnectionString = Conn.ConnectionString
5 Adodc1.RecordSource = "select * from contoh"
6 Adodc1.Refresh
7 Set DataGrid1.DataSource = Adodc1
8 End Sub

Untuk lebih jelasnya, [Download Source Code]

Posted in: Access,Visual Basic 6