Private Sub Command1_Click()
Dim db As Database
Dim tbl As TableDef
Set db = OpenDatabase("D:\NDMS1.accdb") ' 本地要建立連結的資料庫路徑和名稱
Set tbl = db.CreateTableDef("OMS") '本地資料庫要建成的連結 table name
tbl.SourceTableName = "OMS" '遠端要建立連結的 table name
tbl.Connect = ";database=C:\Program Files\NDMS.accdb" '遠端資料庫路徑
db.TableDefs.Append tbl
End Sub
請先 登入 以發表留言。