Koneksi database dengan ADODB.Connection melalui data modul

Pada pemrograman VB 6, kita banyak mengenal cara mengkoneksikan database. Dimana, untuk artikel kali ini saya akan mencoba mengkoneksikan database “MSAccess” dengan menggunakan ADODB.Connection yang kita buat pada data modul pada VB 6. Untuk pertama-tama, kita tambahkan ssebuah modul pada  project explorer. Selanjutnya, buat koneksi pada data modul tersebut seperti dibawah ini :

pertama-tama kita harus mensetting Project References dengan menggunakan library yang namanya : “Microsoft ActiveX Data Object 2.8 Library”. Setelah itu, kita mulai bekerja….

ketikkan / Copy-Paste Source code ini pada modul !

Option Explicit
‘deklarasi CnAc sebagai ADODB.Connection
Public CnAc As ADODB.Connection

‘Fungsi untuk megkoneksikan database
Public Function OpenDb()
Set CnAc = Nothing
Set CnAc = New ADODB.Connection
CnAc.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Persist Security Info = False; Data Source=” & _
App.Path & “\namadatabase.mdb; Mode=ReadWrite;Jet OLEDB:”
CnAc.CursorLocation = adUseClient
CnAc.Open
End Function

‘memanggil koneksi di sub main
Private Sub Main()
Call Koneksi ‘Merupakan nama dari fungsi yang sudah kita buat tadi
Form1.Show
End Sub

Setelah itu kita harus mensetting pada project properties bahwa StartUp Object = Sub Main

pada form, kita mulai untuk mengkoneksikan tabel dengan form yang source-code koneksi-nya ditaruh pada event form load, perhatikan contoh dibawah ini :

‘deklarasi Rs sebagai ADODB.Recordset

Dim Rs As ADODB.Recordset

Private Sub Form_Load()
Set Rs = Nothing
Set Rs = New ADODB.Recordset
Rs.Open “select * from Nama_Tabel“, CnAc, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
End Sub

Kelebihan dari kita menggunakan koneksi dari sebuah modul pada VB 6, adalah dapat meringankan sebuah program apalagi yang hubungannya adalah Client-Server.