ms-access - 将 DAO 转换为 ADO

Question

我正在使用一个 Access 2003 数据库，该数据库有一个使用 DAO 代码的子例程。此代码循环遍历表定义并刷新 ODBC 连接字符串。我想将其转换为 ADO，这样我就不必引用 DAO 对象库。这是代码...

Public Sub RefreshODBCLinks(newConnectionString As String)

    Dim db As DAO.Database
    Dim tb As DAO.TableDef
    Set db = CurrentDb
    For Each tb In db.TableDefs
        If Left(tb.Connect, 4) = "ODBC" Then
            tb.Connect = newConnectionString
            tb.RefreshLink
            Debug.Print "Refreshed ODBC table " & tb.Name
        End If
    Next tb
    Set db = Nothing

    MsgBox "New connection string is " & newConnectionString, vbOKOnly, "ODBC Links refreshed"

End Sub

我不确定的部分是如何循环遍历表并获取/设置它们的连接字符串。

Answer 1

DAO 确实是最好的选择，您无法使用 ADO 刷新链接，而是需要使用 ADOX(一些相关代码 here )。

您可以通过Jet OLEDB:Link Provider String Access 连接字符串