ACCESS FEED: Re: [belajar-access] Re: Aplikasi via LAN [1 Attachment]

Minggu, 10 Juli 2011

Re: [belajar-access] Re: Aplikasi via LAN [1 Attachment]

[Attachment(s) from hari yanto included below]

Eh... Iya... lupa... Ini...

--- On Mon, 11/7/11, Ahmad Qomaruddin <ud13en@gmail.com> wrote:

From: Ahmad Qomaruddin <ud13en@gmail.com>
Subject: Re: [belajar-access] Re: Aplikasi via LAN
To: belajar-access@yahoogroups.com
Date: Monday, 11 July, 2011, 11:29 AM

lampirannya mana mas?

2011/7/11 hari yanto <har_i20002000@yahoo.com>

Terlampir adalah contoh mdbnya. Cara menggunakan:

1. Ekstrak dulu ODBC_MDB.zip. Berisi 2 file

2. Buka sirkulasi_santri.mdb

3. Masuk ke form.

3. Buka form IKI_ACCES

4. Klik pilih database. Pilih DATA.mdb

5. Klik konek

6. Piilih awal/akhir tahun.

7. Akan muncul rekapitulasi data

Semoga bisa membantu dan memberi semangat...

Hariyanto (Surabaya)

--- On Sun, 10/7/11, Bozz <hermawan_b29@yahoo.com.au> wrote:

From: Bozz <hermawan_b29@yahoo.com.au>

Subject: [belajar-access] Re: Aplikasi via LAN
To: belajar-access@yahoogroups.com
Date: Sunday, 10 July, 2011, 1:55 PM

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..
>

--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia
email : ud13en@gmail.com
blog : ud13en.blogspot.com