|
VBScriptではこんな感じでした。
■用意するもの
db1.accdb --- 空っぽ
db2.accdb --- srcテーブル
db3.accdb --- db2.accdbのコピー
■db1.accdbにlinktblリンクテーブルを作成する
Set dbe = CreateObject("DAO.DBEngine.120")
Set db = dbe.Workspaces(0).OpenDatabase("C:\db1.accdb", False)
Set tbl = db.CreateTableDef("linktbl")
tbl.Connect = ";DATABASE=C:\db2.accdb;"
tbl.SourceTableName = "src"
db.TableDefs.Append tbl
db.Close
■db1.accdbのlnktblリンクテーブルのリンク先を変更する
Set dbe = CreateObject("DAO.DBEngine.120")
Set db = dbe.Workspaces(0).OpenDatabase("C:\db1.accdb", False)
set tbl = db.TableDefs("linktbl")
tbl.Connect = ";DATABASE=C:\db3.accdb;"
tbl.RefreshLink
db.Close
|