如何使用 vba 修改对另一个 Access 2010 数据库的 adodb 的引用

Question

我有一个 Access 2010 accdb 数据库，它是从 Access 2003 mdb 数据库转换而来的。
当我在 Access 2003 中运行以下代码时，它会创建一个默认情况下引用 ADODB 的数据库 - “Microsoft ActiveX 数据对象 2.5 库”(msado25.tlb)。

Set dbNewApp = Application.DBEngine.CreateDatabase("Test.mdb", dbLangGeneral)

如果我在 Access 2010 中运行以下（类似）代码，它会成功创建一个 accdb 数据库，但没有像上面那样引用 ADODB 库。

Set dbNewApp = Application.DBEngine.CreateDatabase("Test.accdb", dbLangGeneral)

根据以下链接，创建新数据库时包含的默认引用已在 DAO 和 ADODB 之间更改，并在不同版本的 Access 中再次更改：http://allenbrowne.com/ser-38.html

所以我需要我新创建的数据库来引用 ADODB。

我知道如何更改当前数据库的引用...

Set refNew = References.AddFromGuid("{00000205-0000-0010-8000-00AA006D2EA4}", 2, 5)

但是如何对我刚刚使用 DBEngine.CreateDatabase 创建的另一个访问数据库执行此操作？

Answer 1

创建数据库后，应该可以打开它并添加参考：

Sub CreateDB()
Dim acApp As Access.Application
Dim dppath As String

    dbpath = "z:\docs\newmsmdb.mdb"
    ''http://msdn.microsoft.com/en-us/library/office/ff835033.aspx
    CreateDatabase dbpath, dbLangGeneral, dbVersion40

    ''http://msdn.microsoft.com/en-us/library/office/aa140509(v=office.10).aspx
    Set acApp = New Access.Application
    With acApp
        .OpenCurrentDatabase dbpath
        acApp.References.AddFromFile _
             "c:\program files\common files\system\ado\msado15.dll"
    End With
End Sub