MS Access：从 MySQL 下载表的宏按钮答案

【问题标题】：MS Access : Macro Button to download Table from MySQLMS Access：从 MySQL 下载表的宏按钮
【发布时间】：2016-03-19 18:00:46
【问题描述】：

我正在尝试创建一个连接到 MySQL 数据库并下载表的按钮（单击时）。我创建了以下宏：

Sub ADO_conn_Click()
Dim conn As New Connection
Dim rs As New Recordset

    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=test1.server.net:63306" & _
    "User Id=admin;Password=test"

    conn.Open (strcon)

    qry = "SELECT * FROM Employee"
    rs.Open qry, conn, adOpenKeyset

    rs.Close
    conn.Close
End Sub

来源：http://www.learnexcelmacro.com/wp/2011/12/how-to-connect-to-access-database-excel-macro/ - 我也做了先决条件。当我尝试运行宏时，我收到以下错误：“编译错误 - 新关键字的使用无效”。关于我做错了什么的任何想法？感谢您的帮助。

【问题讨论】：

您尝试将Dim conn As New Connection 替换为Dim conn As New ADODB.Connection 并且对于记录集也是如此？
您正在使用 MS Access 的 OLEDB 连接来连接到 MySQL。您需要使用 MySQL 驱动程序连接。安装 MySQL ODBC driver 并连接到 ADO。 MS Access 是一个文件级数据库（数据源指向一个目录文件路径）。 MySQL 是服务器级数据库（源指向服务器）。

标签： mysql vba ms-access ms-access-2010 ado

【解决方案1】：

在您的第二行和第三行之间的strcon 中没有空格。 “用户”这个词是否意味着像... Source=test1.server.net:63306User 中的数据源的一部分？

我认为您需要分号，因此请尝试以下操作... 我还认为您可能必须将strcon 声明为字符串变量。

dim strcon as string

strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=test1.server.net:63306;" & _
"User Id=admin;Password=test"

编辑

我注意到qry 也没有声明为字符串，您可能需要按照我对strconn 的建议执行相同的操作。

dim qry as string

【讨论】：