0

一段时间以来，我们一直在从远程 MS Access 数据库中检索数据，并使用简单的 SELECT * INTO 查询将其内容复制到本地 Access DB。但是，我们目前处于迁移过程中，需要从 MySQL 数据库中检索数据并将其复制到本地 Access DB，因此上述查询由于显而易见的原因在这里不起作用。

现在看到我不能使用任何外部程序并且只允许在 VB.NET 中编写，我传输数据的方法是使用数据表。它完成了它的工作，但性能很糟糕。

因此，我的问题是，是否有一种仅使用 VB.NET 将数据从远程 MySQL 数据库传输/复制到本地 MS Access 的快速方法。

我当前的代码：pastebin.com/ELmkVFSc

4

1 回答 1

0

非常粗略：

Imports Microsoft.Office.Interop.Access.Dao

Module Module1

    Sub Main()
        Dim dbEng As New DBEngine()
        Dim ws As Workspace
        Dim db As Database
        ws = dbEng.CreateWorkspace("", "admin", "", WorkspaceTypeEnum.dbUseJet)
        db = ws.OpenDatabase("z:\\docs\\test.accdb", False, False, "")
        db.Execute("SELECT * INTO Newtable From [ODBC;DSN=MySQL;].test")

    End Sub

End Module

您还可以对这些行进行查询：

SELECT * INTO Newtable FROM
[ODBC;Driver={MySQL ODBC 5.1 Driver};Server=127.0.0.1;Database=test;User=usr;Password=pwd;CLIENT_MULTI_RESULTS;Option=3;].test;
于 2012-09-26T00:27:56.677 回答