更改链接表源访问 2016

Question

我正在尝试更改 Access 2016 数据库中的链接，但我过去使用的方法无法按要求工作。

我正在使用

 t.connect="new connection"
 t.refreshlink

方法，其中 t 是表。

我在链接表管理器中看到这些表现在按数据源分组。我可以创建新的源并将其链接到所需的表，但我有很多迁移，所以想在代码中执行此操作。

我目前的方式没有错误，但在.refreshlink 之后，表的.connect 仍然相同。

这还有可能吗？

我目前使用表名和现有连接填充字典，但前提是非 ODBC。

然后我在这本字典中循环，获取表格并更改其连接

CurrentDb.TableDefs(strTableName).Connect = strNewConnection
CurrentDb.TableDefs(strTableName).RefreshLink
Debug.Print CurrentDb.TableDefs(strTableName).Connect

现有连接 = ;DATABASE=\\app01\Access\CRM_Data.mdb 新连接=;DATABASE=C:\CRM_TEST\CRM_DATA_BE_2016.accdb

非常感谢

Answer 1

在更改表时不应使用CurrentDb.TableDefs，因为这会在调用之间发生变化，并使更改连接字符串的 tabledef 引用与刷新链接的引用不同。

Dim d As DAO.Database
Set d = CurrentDb
d.TableDefs(strTableName).Connect = strNewConnection
d.TableDefs(strTableName).RefreshLink

AFAIK 这种行为与版本无关，因此您提供的代码不应该工作。

Answer 2

我在 Access 2016 中使用此代码，它工作得很好：

Public Function RelinkTables(environment As Integer)

    On Error Resume Next
    Dim tblDef As DAO.TableDef

    For Each tblDef In CurrentDb.TableDefs    
        If tblDef.Connect <> "" Then
            tblDef.Connect = GetConnectionString(environment)
            tblDef.RefreshLink
        End If    
    Next

End Function

Public Function GetConnectionString(environment As Integer) As String
    Select Case environment
        Case 1 ' connection to Test db
            GetConnectionString = "your connection string to Test"
        Case 2  ' connection to Prod db
            GetConnectionString = "your connection string to Production"
    End Select
End Function

如果这不适用于您的数据库，则可能是路径错误。