Access 2007 升级 DAO 引用冲突

Question

我正在将带有 VBA 代码的 Access 97 DB 更新到 Access 2007。当我转换数据库文件（首先从 97 到 2002，然后到 2007）时，VBA 代码使用 Access 2007 引用的 DAO 对象。我的问题具体在于两个引用：“Microsoft DAO 3.6 对象库”和“Microsoft Office 12.0 Access 数据库引擎对象库”。我在网上读到的内容说 ADE 12.0 应该取代 DAO 3.6 参考，并且只需选中 ADE 12.0 框，一切就应该可以工作。由于它们都提供对同名对象的引用，因此不能同时检查这两个引用。但是，当选中 DAO 3.6 框且未选中 ADE 12.0 框时，Access 找不到存在的“frmLogin”表单。如果我取消选中 DAO 3.6 框并选中 ADE 12.0 框，则会收到运行时错误 13：Visual Basic“Err”对象的“类型不匹配”：

Public Function basGetString(ByVal lngStringID As Long, ParamArray varStringArgs() _
      As Variant) As String
     Dim intTokenCount As Integer
     Dim strResString As String

On Error GoTo err_basGetString

    strResString = basLoadString(lngStringID)

    If Not IsMissing(varStringArgs) Then
        intTokenCount = 0

         Do While intTokenCount <= UBound(varStringArgs)
              strResString = basReplaceToken(strResString, _
              m_cstrArgToken, varStringArgs (LBound(varStringArgs) + intTokenCount),_   
              1, 1)

              intTokenCount = intTokenCount + 1
         Loop
    End If

    strResString = basReplaceToken(strResString, m_cstrVBCRLFToken, vbCrLf, -1, 1)
    basGetString = strResString

 exit_basGetString:
      Exit Function
 err_basGetString:
      Err.Raise Err.Number, "basGetString", Err.Description

 End Function

调试器指向倒数第二行：

Err.Raise Err.Number, "basGetString", Err.Description

我有已成功消除记录集对象的歧义，解决了代码中的许多其他引用冲突：Dim rs As DAO.Recordset 或 Dim rs As ADODB.Recordset，但这不适用于 Err 对象。 - 也就是说，我尝试将 Err 对象重写为 DAO Error 对象。我也无法在 VB 编辑器中找到另一个参考来解决此引用错误，但也不会与其他 ADE 12.0 参考发生冲突。所以，我不明白为什么检查 ADE 12.0 框并不能解决我的所有问题。我无法弄清楚如何重写代码以使其引用 ADE 12.0 库。最后，ADE 12.0 参考实际上指向以下文件夹中的 ACEDAO.DLL：C:\Program Files\Common Files\Microsoft Shared\OFFICE12。任何建议将不胜感激。

Answer 1

如果您在 A2007 中运行，则需要使用 ADE 参考（其中
只是 DAO 的下一个版本 - 如果您有兴趣，请查看 DLL 名称
不信）。如果此时仍然出现编译错误
检查，那么这意味着它要么没有注册（你可以
使用 regsvr32 手动注册）或者您有不同的参考
问题。请发布您的参考文献列表。我的赌注是几个
它们完全没有必要。另外，如果您正在运行多个
Access版本，您需要让每个版本都完成注册
（即安装）在打开任何文件之前。

– 大卫-W-芬顿 2010 年 8 月 5 日 20:13