连接代码如下:
Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb
For Each tbl In db.TableDefs
If tbl.Attributes = 536870912 Then
'打开数据库密码为8888888
tbl.C
tbl.RefreshLink
' '打开数据库密码为空
' tbl.C
' tbl.RefreshLink
End If
Next
[ 本帖最后由 xingzhihao 于 2008-11-5 11:09 编辑 ]作者: xingzhihao 时间: 2008-11-5 11:09
连接代码如下:
Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb
For Each tbl In db.TableDefs
If tbl.Attributes = 536870912 Then
'打开数据库密码为8888888
tbl.Connect = "DSN=JJMDB;UID=saWD=888888;WSID=;DATABASE=sys;Network=DBMSSOCN"
tbl.RefreshLink
' '打开数据库密码为空
' tbl.Connect = "DSN=JJMDB;UID=saWD=;WSID=;DATABASE=sys;Network=DBMSSOCN"
' tbl.RefreshLink
End If
Next作者: xingzhihao 时间: 2008-11-5 13:46
请各位老大,指点一二。谢谢了 !作者: tmtony 时间: 2008-11-5 13:59
两个都是链接表,还是一个是本地表?
现在用你的代码会出现什么问题?作者: xingzhihao 时间: 2008-11-5 20:42
tmtony 站长