Fungsi Untuk Mendapatkan String Koneksi ke Database Access (ADO)

Selain menggunakan Data Access Object (DAO), sebuah string koneksi ke database Access bisa juga dilakukan dengan menggunakan ActiveX Data Object (ADO). Pada koneksi yang menggunakan ADO, kita harus mendefinisikan setidaknya empat konstanta. Keempat konstanta itu adalah:

1. constStrAppProvider: provider dari aplikasi yang digunakan, misalnya MS Access menggunakan Microsoft ACE OLEDB 12.0
2. constStrDataSource: digunakan untuk menentukan path file
3. constStrUserId: digunakan untuk identitas user
4. constStrPassword: digunakan untuk menuliskan password, jika ada.

Dengan menggunakan keempat konstanta di atas, kita bisa membuat fungsi untuk mendapatkan string koneksi ke database Access dengan library ADO. Misalkan fungsi itu diberi nama cariDbsConStringADO, maka kode VBAnya adalah sebagai berikut:

view plainprint?

1. Function cariDbsConStringADO() As String  
2.   Dim strPWD As String, strUserId As String  
3. 'Atur konstanta berikut ini  
4.   Const constStrAppProvider As String = "Microsoft.ACE.OLEDB.12.0" 'Nama provider OLE DB (menggunakan MS Access 2007)  
5.   Const constStrDataSource As String = "D:\Access\Database_be.accdb" 'Nama path file database  
6.   Const constStrUserId As String = "" 'Id user, jika database diatur menggunakan access level  
7.   Const constStrPassword As String = "abcs" 'password, jika ada  
8. On Error GoTo Err_Msg  
9.   If constStrUserId <> "" Then strUserId = ";User ID=" & constStrUserId Else strUserId = ""  
10.   If constStrPassword <> "" Then strPWD = ";JET OLEDB:Database Password=" & constStrPassword Else strPWD = ""  
11.   cariDbsConStringADO = "Provider=" & constStrAppProvider & _  
12.                           ";Data Source=" & constStrDataSource & _  
13.                           strUserId & strPWD  
14. Exit_Function:  
15.   Exit Function  
16. Err_Msg:  
17.   MsgBox "Function cariDbsConStringADO, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
18.   Chr(13) & Err.description  
19.   Resume Exit_Function  
20. End Function  

Function cariDbsConStringADO() As String
  Dim strPWD As String, strUserId As String
'Atur konstanta berikut ini
  Const constStrAppProvider As String = "Microsoft.ACE.OLEDB.12.0" 'Nama provider OLE DB (menggunakan MS Access 2007)
  Const constStrDataSource As String = "D:\Access\Database_be.accdb" 'Nama path file database
  Const constStrUserId As String = "" 'Id user, jika database diatur menggunakan access level
  Const constStrPassword As String = "abcs" 'password, jika ada
On Error GoTo Err_Msg
  If constStrUserId <> "" Then strUserId = ";User ID=" & constStrUserId Else strUserId = ""
  If constStrPassword <> "" Then strPWD = ";JET OLEDB:Database Password=" & constStrPassword Else strPWD = ""
  cariDbsConStringADO = "Provider=" & constStrAppProvider & _
                          ";Data Source=" & constStrDataSource & _
                          strUserId & strPWD
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function cariDbsConStringADO, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.description
  Resume Exit_Function
End Function

Implementasi:

Bila fungsi cariDbsConStringADO dieksekusi di immediate window, maka hasilnya akan seperti ini:

view plainprint?

1. ?cariDbsConStringADO  
2. Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Access\Database_be.accdb;JET OLEDB:Database Password=abcs  

?cariDbsConStringADO
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Access\Database_be.accdb;JET OLEDB:Database Password=abcs