Office中国论坛/Access中国论坛

标题: 老问题，还是带密码的链接数据库刷新的事 [打印本页]

作者: lv321 时间: 2005-12-17 20:17
标题: 老问题，还是带密码的链接数据库刷新的事
我在论坛上搜了半天，看了几百条旧的帖子，但是没有能解决我的问题的，所以只能再发一个。

是这样，我的mde 和数据库的链接，数据库带密码，平时都没问题，但是当数据库文件的名字或路径改变是，就需要在程序里写RefreshLinks 去刷新这些链接表。但是好像他不支持带密码的数据库（没有密码时，可以刷新链接）。大家救救我，谢谢了

作者: lv321 时间: 2005-12-17 20:27
哦，我找到海里先生的解答了，再次感谢！

Public Function RefLinck()
Dim db As Database
   Dim t As TableDef
   Set db = CurrentDb
   Set t = db.TableDefs("±í1")

   t.Connect = "

WD=123;DATABASE=" & CurrentProject.Path & "\Êý¾Ý¿â.mdb" 'ACCESSÊý¾Ý¿â
t.RefreshLink

End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)