将 DAO 转换为 ADO

Question

我正在使用具有使用 DAO 代码的子例程的 Access 2003 数据库。此代码循环遍历表定义并刷新 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访问连接字符串

Answer 2

如果避免对 DAO 的引用是您的目标，您只需修改现有过程以对 DAO 使用后期绑定。例如，这个 sub 应该在没有 DAO 参考集的情况下工作。

Public Sub DAO_without_reference()
    Dim db As Object
    Dim td As Object
    Set db = CurrentDb
    For Each td In db.TableDefs
        Debug.Print td.Name
    Next td
    Set db = Nothing
End Sub

在编写代码时，您不会有 Intellisense 来帮助您处理 DAO 属性、方法和常量，但代码仍然可以使用后期绑定。

如果您决心避免引用 DAO，我认为这将是您最简单的选择。但是，我从来没有开发过没有 DAO 引用的 Access 项目，我不明白你为什么反对添加它。

编辑：此外，如果您使用后期绑定和任何 DAO 常量，您的代码必须使用常量值而不是名称。