表的链接路径问题求助

koutx

链接表的路径如何设成当前路径(相对路径而不是绝对路径)。请高手帮忙。

Henry D. Sy

代码怎么老是发不全啊

1. Dim db As Database
   
2.     Dim t As TableDef
   
3.     Set db = CurrentDb
   
4.     Set t = db.TableDefs("A")
   
5. t.Connect = ";DATABASE=" & CurrentProject.Path & "\db2_be.mdb"
   
6.     t.RefreshLink

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-26 22:07 编辑 ]

koutx

受益受益，谢谢6D版主。再请问版主：是否将此代码作一函数在Autoexec宏中调用？

Henry D. Sy

具体看你如何操作的了，也可以在主窗体加载时运行。（主窗体应该没有数据源的吧）
你一般两个库放在一起吗

koutx

是的，两个库放在一起，并且主窗体没数据源。多谢了，有问题再请教。

koutx

再请教6d版主一个问题：在
t.Connect = ";DATABASE=" & CurrentProject.Path & "\db2_be.mdb"语句中
如果db2_be.mdb设有数据库密码，应该怎么改写？谢谢

Henry D. Sy

1. Dim db As Database
   
2.     Dim t As TableDef
   
3.     Set db = CurrentDb
   
4.     Set t = db.TableDefs("A")
   
5. t.Connect = ";pwd=abc;DATABASE=" & CurrentProject.Path & "\db2_be.mdb"
   
6.     t.RefreshLink

复制代码

koutx

以管理员登录时能够实现，但以用户身份登录时出现无权限错误。见抓图。


[ 本帖最后由 koutx 于 2008-12-29 19:49 编辑 ]