如何用相对路径链接有密码数据库中的表

koutx

如果db2_be.mdb设有数据库密码
t.C & CurrentProject.Path & "\db2_be.mdb"应该怎么改?谢谢

[ 本帖最后由 Henry D. Sy 于 2008-12-27 14:58 编辑 ]

Henry D. Sy

请不要用这种标题

Henry D. Sy

以后请不要重复发帖，应该在原帖上继续跟贴

这里假设您的后台密码为 abc
   

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

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-27 14:57 编辑 ]

koutx

多谢多谢