Kalau saya, saya memanfaatkan ODBC via VBA (agar tidak mensetting lewat control panel > administrative tools). Saya taruh di Module. Terus, saya panggil via form. Berikut adalah scriptnya: 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
'misal dbPath = D:\DATA 'sedang databasenya = master.mdb Untuk mengujinya, pakai ini: Private Sub Command0_Click() ToACC If Kon.State <> 0 Then MsgBox "Koneksi sukses" 'isi sql selanjutnya end if Kon.Close Set Kon = Nothing End Sub Semoga bisa membantu dan memberi semangat.. Hariyanto (Surabaya) --- On Sun, 10/7/11, Krisna Wibawanto <krisna_wibawanto@yahoo.co.id> wrote:
From: Krisna Wibawanto <krisna_wibawanto@yahoo.co.id> Subject: [belajar-access] Re: Aplikasi via LAN To: belajar-access@yahoogroups.com Date: Sunday, 10 July, 2011, 12:34 AM
Cara yg paling gampang kayaknya di-share aja database-nya deh Bozz..
|
|
Tidak ada komentar:
Posting Komentar