MS ACCESS MAILING LIST: Re: [belajar-access] Koneksi ODBC Access

Monday, April 18, 2011

Re: [belajar-access] Koneksi ODBC Access

Coba gunakan script ini (taruh di module karena digunakan dibanyak form):

Public Kon As ADODB.Connection
Public Function KonAC(Optional ByVal serverName As String = "", _
Optional ByVal userName As String = "", Optional ByVal userPass As String = "", _
Optional ByVal dbPath As String = "", Optional ByVal dbName As String = "") As Boolean

Dim strCon As String

On Error GoTo errHandle

        If Len(userPass) > 0 Then
           strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbPath & "\" & dbName & ";" & _
           "Jet OLEDB:Database Password=" & userPass & ""
        Else
           strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbPath & "\" & dbName & ""
        End If

   Set Kon = New ADODB.Connection
   Kon.ConnectionString = strCon
   Kon.Open

KonAC = True

Exit Function
errHandle:
KonAC = False
End Function

Cara penggunaannya:

buat fungsi:

Function ToACC()

dim tt1, tt2 as variant

Dim result As Boolean

result = KonAC(, , "'" & pass & "'", tt2, tt1)

'tt2 = path tanpa diakhiri \, krn sudah masuk di module

'tt1 = nama database (misal contoh.mdb)
End Function

Gunakan:

       If Kon.State <> 0 Then
            MsgBox "Koneksi sukses"
        Else
            MsgBox "Gagal"
        End If

Kon.Close
Set Kon = Nothing

Semoga bisa membantu dan memberi semangat...

Hariyanto (Surabaya)

--- On Mon, 18/4/11, him mah <himmah.mlg@gmail.com> wrote:

From: him mah <himmah.mlg@gmail.com>
Subject: [belajar-access] Koneksi ODBC Access
To: "belajar-access" <belajar-access@yahoogroups.com>
Date: Monday, 18 April, 2011, 9:04 AM

Assalamu'alaikum Wr. Wb
Mau tannya tentang koneksi ODBC access

biasanya kalau kita buat koneksi langkahnya seperti ini

1. Buka icon Administrative Tools pada Control Panel anda.
2. Double-click pada icon disi Data Sources (ODBC).
3. Pilih Tab System DSN.
4. Klik pada Add dalam Tab System DSN.
5. Pilih Microsoft Access Driver. Click Finish.
6. Pada Layar Berikut, click Select ke lokasi database.
7. Beri nama Data Source Name (DSN).
8. Click OK.

bisa ngga langkah-langkah tersebut dibuat di VBA Access (tanpa harus
masuk kontrol panel)
misal kita akan buat Data Source Name (master) yang lokasi database
nya ada di c:\master\master.accdb

terima kasih