Skip to main content

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:
  1. Function cariDbsConString() As String  
  2.   Dim strAppProvider As String  
  3.   Dim strPassword, strPWD As String  
  4. On Error GoTo Err_Msg  
  5. ' Isikan di sini  
  6.   strAppProvider = "MS ACCESS"  
  7.   strPassword = "abcd"  
  8.   
  9.   If strPassword <> "" Then strPWD = ";PWD=" & strPassword Else strPWD = ""  
  10.   cariDbsConString = strAppProvider & strPWD  
  11. Exit_Function:  
  12.   Exit Function  
  13. Err_Msg:  
  14.   MsgBox "Function cariDbsConString, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
  15.   Chr(13) & Err.description  
  16.   Resume Exit_Function  
  17. 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"

Comments

Posting Terpopuler

Cara Mengatur dan Menggunakan ODBC untuk Mengakses Data Eksternal

Memahami Referential Integrity Saat Membuat Relasi di Access

Format Untuk Field Dengan Tipe Data Number dan Currency di MS Access