vba mysql连接字符串

Driver={MySQL ODBC 8.0 Unicode Driver};Server=服务器地址;Database=数据库名称;Uid=用户名;Pwd=密码;

Sub ConnectToMySQL()
    Dim conn As Object
    Dim rs As Object
    Dim connString As String
    Dim sql As String
    
    ' 设置连接字符串
    connString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=服务器地址;Database=数据库名称;Uid=用户名;Pwd=密码;"
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开连接
    conn.Open connString
    
    ' 设置SQL查询
    sql = "SELECT * FROM 表名"
    
    ' 创建ADODB记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行查询
    rs.Open sql, conn
    
    ' 处理查询结果
    Do While Not rs.EOF
        Debug.Print rs("字段名")
        rs.MoveNext
    Loop
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub