VBA刷新带密码的链接表总出错“密码无效”

栢木　发表于：2010-11-14 21:09:29 　

真快疯了。。。。。。

access2007,链接表后端数据库设了密码，第一次链接时，输入了密码，正常导入，但打开表时却提示“密码无效”

同理用VBA刷新链接表也出现这种情况，代码如下：

Dim adoCatalog As New ADOX.Catalog
Dim adoTable As New ADOX.Table
Set adoCatalog.ActiveConnection = CurrentProject.Connection
Set adoTable.ParentCatalog = adoCatalog
For Each adoTable In adoCatalog.Tables
    If adoTable.Type = "LINK" Then
        adoTable.Properties("Jet OLEDB:Link Datasource") = CurrentProject.Path & "\Database.accdb"
        adoTable.Properties("Jet OLEDB:Link Provider String") = "MS Access;PWD=abc&xyz@20100809;"
    End If
Next adoTable
adoCatalog.Tables.Refresh

这段代码以前我在access2003中使用得非常顺畅，今天折腾我一天了。总是出错，密码无效。

注：密码绝对无误，我直接打开后端数据库时用这个密码正常。

Top

栢木发表于：2010-11-14 21:11:49

自我感觉adoTable.Properties对属性设置不起作用。

Top

煮江品茶发表于：2010-11-15 19:29:04

把密码用单引号括起来试试

Top

栢木发表于：2010-11-15 19:52:51

谢谢，但仍然没有用。

adoTable.Properties("Jet OLEDB:Link Datasource") = CurrentProject.Path & "\Database.accdb"