Fungsi Untuk Mendapatkan String Koneksi ke Database Access (DAO)

Pada aplikasi Access untuk server dan client tanpa menggunakan linked table, kita harus membuat koneksi dari komputer client ke komputer server agar data dari server dapat dikirim ke client. Untuk menentukan koneksi database Access itu, kita bisa membuat fungsi sendiri yang disimpan dalam aplikasi Access di komputer client. Dengan demikian, bila aplikasi Access di client dikonversi ke accde, koneksi dapat dilakukan dengan aman. Kita dapat memberi nama fungsi itu, misalnya cariDbsConString seperti akan dijelaskan berikut ini.

Fungsi cariDbsConString digunakan untuk menentukan string koneksi database yang akan dibuka. Dalam hal ini, kita menggunakan libary Data Access Object (DAO), library yang menjadi default di Access. Minimal, ada dua macam variabel yang digunakan untuk menentukan string koneksi, yaitu variabel strAppProvider dan strPassword. Variabel strAppProvider digunakan untuk menentukan aplikasi apakah yang akan digunakan. Misalnya, MS Access untuk database Access. Bila string koneksi ke suatu database juga menggunakan password, maka strPassword juga harus diisi. Hasil fungsi getDbsConString berupa string. Berikut ini adalah fungsi lengkap dari cariDbsConString:

Function cariDbsConString() As String
  Dim strAppProvider As String
  Dim strPassword, strPWD As String
On Error GoTo Err_Msg
' Isikan di sini
  strAppProvider = "MS ACCESS"
  strPassword = "abcd"

  If strPassword <> "" Then strPWD = ";PWD=" & strPassword Else strPWD = ""
  cariDbsConString = strAppProvider & strPWD
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function cariDbsConString, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.description
  Resume Exit_Function
End Function

Implementasi:

Isikan variabel strAppProvider dan strPassword sebagai berikut:

strAppProvider = "MS ACCESS"
strPassword = "abcd"

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

cariDbsConString = strProvider & strPWD
cariDbsConString = "MS ACCESS;PWD=abcd"