带有 VBA 的 MS 访问链接表

Question

如何将一个 MS Access 数据库（*.mdb 或 *.accdb）中的表链接到 VBA 中的另一个 Access 数据库？

基本上我只是使用 VBA 来复制外部数据向导所做的事情。

我用谷歌搜索了这个，我看到了很多关于如何更新或重新链接表的例子以及链接到 SQL 数据库的许多例子，但很少有 Access 数据库之间的简单链接表。

Answer 1

您可以使用DoCmd.TransferDatabase方法创建指向另一个Access数据库中的表的链接。

DoCmd.TransferDatabase TransferType:=acLink, _
        DatabaseType:="Microsoft Access", _
        DatabaseName:="C:\share\Access\Example Database.accdb", _
        ObjectType:=acTable, _
        Source:="Addresses", _
        Destination:="Addresses_link"

我包含了选项名称，希望能够更容易地跟踪哪个选项。 但如果这看起来过于冗长，您可以省略选项名称并在一行中完成所有操作：

DoCmd.TransferDatabase acLink, "Microsoft Access", "C:\share\Access\Example Database.accdb", acTable , "Addresses", "Addresses_link"

Answer 2

它实际上非常简单 - 您只需创建一个新的tabledef并将其.connect属性设置为链接到其他Access数据库的ODBC连接字符串。

Private Function LinkTable(LinkedTableName As String, TableToLink As String, connectString As String) As Boolean

    Dim tdf As New dao.TableDef

    On Error GoTo LinkTable_Error

    With CurrentDb

        .TableDefs.Refresh

        Set tdf = .CreateTableDef(LinkedTableName)
        tdf.Connect = connectString
        tdf.SourceTableName = TableToLink
        .TableDefs.Append tdf
        .TableDefs.Refresh


    End With

    Set tdf = Nothing
End Function

连接字符串看起来像这样（取自connectionstrings.com ）：

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;Persist Security Info=False;

Answer 3

DataWriter，你不是把 DAO 和 ADO 混在一起了吗？ 就像水和油一样。 连接字符串是 OLEDB（即 ADO），而TableDef来自CurrentDb （即 DAO）。

TableDef的 Connect 属性采用以下形式：

;DATABASE=[Db 的完整路径]\\[Db 名称]