vba 连接mysql 引用_VBA代码引用ADO的连接（引擎）用法

下面是连接MySQL数据库的VBA代码示例：

首先需要添加对"Microsoft ActiveX Data Objects"的引用：

1.打开VBA编辑器
2.在菜单栏中选择“工具”->“引用”
3.勾选“Microsoft ActiveX Data Objects”并点击“确定”

然后在代码中编写以下内容：

Sub ConnectMySQL()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    
    '连接MySQL数据库
    conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=hostname;PORT=port;DATABASE=database_name;USER=user_name;PASSWORD=password;OPTION=3"
    conn.Open
    
    '执行SQL语句
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    
    rs.Open "SELECT * FROM table_name", conn
    
    '输出查询结果
    Do While Not rs.EOF
        Debug.Print rs.Fields("column_name")
        rs.MoveNext
    Loop
    
    '关闭连接
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

其中，需要根据实际情况修改以下参数：

- DRIVER：使用的驱动程序，这里使用了MySQL ODBC 8.0 Unicode Driver。
- SERVER：MySQL服务器的主机名或IP地址。
- PORT：MySQL服务器的端口号，默认为3306。
- DATABASE：要连接的数据库名称。
- USER：连接MySQL数据库的用户名。
- PASSWORD：连接MySQL数据库的密码。
- OPTION：连接选项，这里使用了“3”表示使用Unicode字符集。

在执行完毕后，可以在VBA的“立即窗口”中查看查询结果。