Wah.. ini cara baru lagi ya pak..
*tambah pelajaran lagi..
Btw, masih blum bisa tuh pak?
saya cm copy paste soalnya..
maksudnya di panggil via form bgmn ya pak?
data di D:\
database: SimpanPinjam.mdb.
trus untuk mengujinya itu ttp masuk di module ya?
maaf merepotkan,
big thanks
booby
--- In
belajar-access@yahoogroups.com, hari yanto <har_i20002000@...> wrote:
>
> 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@...> wrote:
>
>
> From: Krisna Wibawanto <krisna_wibawanto@...>
> 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