Koneksi Database Access Dengan Visual Basic 6

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 :

view source

print?

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 :

view source

print?

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]