Koneksi Access dengan ADODB

Langkah membuat koneksi ADODB sebagai berikut :

1. Pilih Refereces dengan cara klik menu Project –

References, kemudian pilih Microsoft Activex Data Object 2.1 Library

Klik Ok

2. Lalu kita buat Script koneksinya di Module

yaitu klik kana pada Project explorer

kemudian Pilih Add - Module

Lalu ketik script dibawah ini :

Global conn As ADODB.Connection

Global As ADODB.Recordset

Sub Koneksi()

Set conn = New ADODB.Connection

conn.Provider = "microsoft.jet.oledb.4.0"

conn.CursorLocation = adUseClient

conn.Open App.Path & "\

End Sub

Contoh

Global conn As ADODB.Connection

Global rstabel_login As ADODB.Recordset

Global rstabelentry_gaji As ADODB.Recordset

Global rstabelinput_karyawan As ADODB.Recordset

Global rstabelsettingnik As ADODB.Recordset

Global rstabelupah As ADODB.Recordset

Sub Koneksi()

Set conn = New ADODB.Connection

conn.Provider = "microsoft.jet.oledb.4.0"

conn.CursorLocation = adUseClient

conn.Open App.Path & "\gaji.mdb"

End Sub

1. Yang terakhir kita tinggal memanggil Koneksi

Dengan mengetikan nama Procedure yang kita buat

Contoh procedure yang saya buat disini yaitu

Sub Koneksi()

Maka ketik Koneksi pada Form – Form yang akan

Memeanggil databases.