ACCESS FEED: Bls: [belajar-access] BAGAIMANA YA, LINK ANTAR APLIKASI DENGAN DATABASE YANG TER-PASSWORD

Kamis, 14 Februari 2013

Bls: [belajar-access] BAGAIMANA YA, LINK ANTAR APLIKASI DENGAN DATABASE YANG TER-PASSWORD

Waalaikumsalam Ambo Upe...
Hehehe apa kabar amboooo.... masih setia di Payakumbuuh yaaaa... kapan move on ke jkt *:) senang

Ambo ... ini aku ada script auto linking semoga bisa bantu case ambo....

script ini taruh di "Modul" pada file aplikasinya (Front End) .... (Copas aja)

Public Sub proclinkdb()
On Error GoTo salah
    Dim ws As Workspace
    Dim odb As DAO.Database
    Dim oTbDef As DAO.TableDef
    Dim spath As String, spwd As String
    Dim arrFileData_Dat() As String
    Dim x, i As Integer

    spath = CurrentProject.Path & "\" & "NamaDatabasemu.mdb" 'Anggap File Backend/External yang akan di link ada dalam folder yang sama

    Set oWs = DBEngine.CreateWorkspace("ws", "Admin", "")
    spwd = "amboupe" ' misal password file external "amboupe"

    Set odb = oWs.OpenDatabase(spath, False, False, ";Pwd=" & spwd)

    'proses linking
    'menginisiasi nama-nama tabel selain yang diawali "MYSYS"
    x = 0
    For Each oTbDef In odb.TableDefs
        If left(UCase(oTbDef.Name), 4) <> "MSYS" Then
            x = x + 1
            ReDim Preserve arrFileData_Dat(x)
            arrFileData_Dat(x) = oTbDef.Name
        End If
    Next
    'proses linking
    For i = 1 To UBound(arrFileData_Dat)
        DoCmd.DeleteObject acTable, arrFileData_Dat(i)
        DoCmd.TransferDatabase acLink, "Microsoft Access", spath, acTable, arrFileData_Dat(i), arrFileData_Dat(i)
    Next i

    Set odb = Nothing
    Set oWs = Nothing

salah:
    If err.Number = 7874 Then
        Resume Next
    End If
End Sub

untuk testing bisa tekan F8...

nah kalo mau dipasang saat buka aplikasi, tempelin aja panggil aja prosedur ini di form yg jadi start up. taruh di event on open bisa...

OK semoga membantu ya... and Tetep Cemungudh .....

Terima Kasih

Salam,

Syarief Nyong

Dari: Ambo Upe <upe_anakogie@yahoo.co.id>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Jumat, 8 Februari 2013 9:39
Judul: [belajar-access] BAGAIMANA YA, LINK ANTAR APLIKASI DENGAN DATABASE YANG TER-PASSWORD

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Dear All,,,

Salam,, BAGAIMANA YA, buat LINK ANTARA APLIKASI DENGAN DATABASE YANG TER-PASSWORD, saya punya aplikasi yang saya LINK-kan dengan database (tabel-tabel), tapi tabel yang ada didalam database terprotect/password, nah ketika saya jalan aplikasi saya, aplikasi tidak bisa jalan karna link pada database-nya terprotect.terpaksa deh dibuang dulu passwordnya dulu.

So... mohon bantuannya semua,, gimana caranya agar aplikasi saya jalan dan link databasenya tetap ada protect-nya/passwordnya.

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Ambo Upe
Asst. Manajemen Data Kota 3
Jln. Rasuna Said No. 102 Kota Payakumbuh
Telp       : +62.752 796408
Mobile   : +62.812.7432.123
Weblog : http://pnpm-payakumbuh.blogspot.com
               http://diaracommunity.blogspot.com

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (2)

Recent Activity: