如何用vba连接mysql数据库？

要用vba连接Mysql数据库，需要解决以下几个问题：

1.在服务器端开启Mysql数据库的远程访问权限；

2.下载安装对应的Mysql ODBC连接器；

3.获取对应的数据库所在的服务器的IP，数据库名称，用户名，密码。

上述都完成了，就可以开始编写代码。

以下是一个通用的用vba连接mysql数据库的代码：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oConStr = VBA.CreateObject("ADODB.Connection")
    '连接mysql的字符串
    sConstr = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=数据库所在的服务器IP;DB=数据库名称;UID=用户名;PWD=密码;OPTION=3;"
    sSql = "select * from 产品列表"
    With oConStr
        .Open sConstr
        Set oRecrodset = .Execute(sSql)
    End With
    Set oWK = Excel.ThisWorkbook.Worksheets.Add
    With oRecrodset
        '循环导入字段名
        For i = 1 To .Fields.Count
            oWK.Cells(1, i) = .Fields(i - 1).Name
        Next
        oWK.Cells(2, 1).CopyFromRecordset oRecrodset
    End With
    oConStr.Close
    Set oConStr = Nothing
End Sub