☰

在 Access 2013 中我可以在哪里更改与 SQL 数据库的连接？

tag-icon • tag-icon microsoft-access
在 Access 2013 中我可以在哪里更改与 SQL 数据库的连接？

我似乎找不到允许我更改 Access 2013 中链接表的连接的地方。我的连接当前指向测试数据库，我想将其更改为生产数据库。

链接表管理器中的所有表都显示“DSN = MyDsn;Database=MyDataTest”，我想将其更改为“DSN=MyDSN;Database=MyData”。而且我想在不移除并重新链接每个表的情况下执行此操作。如果我必须重新链接每个表，那么我必须返回并重命名每个链接，因为它总是在表名前面加上架构名称。

答案1

您可以尝试以下 VBA 代码，我尚未对其进行全面测试。

Public Sub RefreshLinks()
Dim tdf As DAO.TableDef
Dim db As Database
Set db = CurrentDb()
For Each tdf In db.TableDefs
    If VBA.Left$(tdf.Name, 4) <> "MSys" 
        If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
            tdf.Connect = "DSN=MyDSN;Database=MyData"
            tdf.RefreshLink
        End If
    End If
Next tdf
End Sub

相关内容