Office中国论坛/Access中国论坛

标题: 链接表能用IP地址吗？ [打印本页]

作者: tz-chf 时间: 2008-4-19 12:51
标题: 链接表能用IP地址吗？
用菜单链的都是\\机器名\共享文件夹名\数据库.mdb。而且系统表无法改链接路径。

但有时（特别是win98和xp联网），网上邻居不通，但ip能ping通。

作者: tz-chf 时间: 2009-1-16 10:43
无人知?

作者: Henry D. Sy 时间: 2009-1-16 10:47
用代码不行吗

作者: tz-chf 时间: 2009-1-16 11:27
没用过代码,我都是用菜单的
这次碰到的是win98打不开网上邻居里的win2000的机器名,可能也能链接表能操作的,再说啦.

[ 本帖最后由 tz-chf 于 2009-1-16 11:31 编辑 ]

作者: Henry D. Sy 时间: 2009-1-16 11:30
Dim db As Database
         Dim tbl As TableDef
         Set db = CurrentDb

         For Each tbl In db.TableDefs
            If tbl.Attributes = dbAttachedTable Then
                  tbl.Connect = "ms access

WD=123;DATABASE=" & CurrentProject.path & "\data\a.mdb"
                  tbl.RefreshLink
            End If
         Next

把 CurrentProject.path & "\data\a.mdb 换成您的绝对路径看看

作者: Henry D. Sy 时间: 2009-1-16 11:31
如果没有密码，就去掉123，留空即可

作者: tz-chf 时间: 2009-1-16 11:37
"ms accessWD=123;里的头像是什么字符

作者: Henry D. Sy 时间: 2009-1-16 11:38
P
pwd

作者: Henry D. Sy 时间: 2009-1-16 11:38
跟前面的access之间有个空格

作者: tz-chf 时间: 2009-1-16 11:49
不是有密码,我用工作组

作者: tz-chf 时间: 2009-1-16 12:11
用代码不合适,我没有给客户这个权限
还是回到标题的问题

作者: wu8313 时间: 2009-1-17 12:04
我想既然系统表 “MSysObjects” 中 connect 列无法修改，使用ip应该不行。

作者: tz-chf 时间: 2009-7-4 10:53
试了一下不成功。
Private Sub Command0_Click()
Dim db As Database
Dim tbl As TableDef

Set db = CurrentDb
For Each tbl In db.TableDefs
      If tbl.Attributes = dbAttachedTable Then
         tbl.Connect = "DATABASE=D:\db2.mdb"
         tbl.RefreshLink
      End If
Next
End Sub

作者: wjkkk 时间: 2009-7-4 13:21
新手上路新手上路

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