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 file2. Buka sirkulasi_santri.mdb3. Masuk ke form.3. Buka form IKI_ACCES4. Klik pilih database. Pilih DATA.mdb5. Klik konek6. Piilih awal/akhir tahun.7. Akan muncul rekapitulasi dataSemoga bisa membantu dan memberi semangat...
From: Bozz <hermawan_b29@yahoo.com.au>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
__._,_.___
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
Tidak ada komentar:
Posting Komentar