vba查询mysql数据库

Sub QueryMySQLDatabase()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Driver={MySQL ODBC 8.0 Unicode Driver};Server=服务器地址;Database=数据库名;User=用户名;Password=密码;Option=3;"
    
    ' 创建结果集
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行查询语句
    sql = "SELECT * FROM 表名"
    rs.Open sql, conn
    
    ' 遍历结果集
    Do Until rs.EOF
        ' 处理每一行数据
        ' 例如，将查询结果输出到Excel工作表
        Range("A1").Value = rs.Fields("字段名").Value
        
        ' 移动到下一行
        rs.MoveNext
    Loop
    
    ' 关闭结果集和连接
    rs.Close
    conn.Close
    
    ' 释放资源
    Set rs = Nothing
    Set conn = Nothing
End Sub