如何给另一数据库增加链接表

jynj

请问，如何写代码（当前数据库为C），给将A数据库的表做链接表到B数据库？有难度吗？
如果在当前数据库中做链接表代码是：
DoCmd.TransferDatabase acLink, "Microsoft Access", Application.CurrentProject.path & "后台数据库路径名称", acTable, xjb & "链接表", xjb & "链接表", False

tmtony

打开B数据库 取得db.application.docmd.transferdatabase

jynj

看不懂老大提供的代码，能完整些吗？
如当前数据库为c.mdb,需将b.mdb数据库的“表1”做链接到a.mdb，链接表名称也为“表1”
三个数据库在同一文件夹下，请问应该如何写这句代码呢？

tmtony

大致这样:
Dim cc As Access.Application
Set cc = New Access.Application
cc.OpenCurrentDatabase Path
cc.DoCmd.TransferDatabase

jynj

非常谢谢老大，我试试