/* */

Tuesday, April 26, 2011

[belajar-access] relink mysql table >> size FE tambah besar



dear master Access,
mohon petunjuknya,
saya coba2 menggunakan BE mysql dgn FE access, strateginya setiap membuka aplikasi mengharuskan relink dulu dengan mysql table, yang jadi masalah ketika proses relink selesai size frontend menjadi besar (dua kali lipat), apakah ada yang salah didalam VBA nya ? harap maklum berhubung baru coba2 menggunakan BE mysql (biasanya menggunakan BE access/accdb).

berikut VBA-nya (kopas juga), mohon koreksinya jika ada yang salah

terima kasih

' --------------
'start
Function relink_mysql_tables(mysql_connection As String)

    Dim db As Database
    Set db = CurrentDb()
    Dim tbldef As TableDef
    For Each tbldef In db.TableDefs
        If (tbldef.Attributes And TableDefAttributeEnum.dbAttachedODBC) Then
            tbldef.Connect = mysql_connection
            tbldef.RefreshLink
        End If
    Next
End Function

Sub teskonek()
Dim strlink  As String
strlink = "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;Database=mydb;Uid=sqlid;Pwd=sqlpassword;Option=3"

relink_mysql_tables (strlink)

End Sub

'finish
'---------------------


__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

No comments:

Post a Comment