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 '--------------------- |
__._,_.___
No comments:
Post a Comment