从Excel 2016 VBA连接到MySQL

时间:2017-04-01 00:08:14

标签: mysql excel-vba vba excel

我尝试使用文档中提供的方法连接到本地MySQL实例。以下是我的表现:

Sub connectToDB()
    Dim recset As ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim cmd As New ADODB.Command

    conn.connectionString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _
        "SERVER=localhost;" & _
        "DATABASE=myDB;" & _
        "USER=myUser;" & _
        "PASSWORD=myPassword;" & _
        "OPTION=3;"

    conn.Open
    cmd.ActiveConnection = conn
    cmd.CommandText = "select * from object"
    Set recset = cmd.Execute()
    recset.MoveFirst
    MsgBox recset.Fields(1).Value

    conn.Close

End Sub

安装了驱动程序:

MySQL ODBC Admin

...我已通过ODBC管理员测试按钮验证了连接:

MySQL ODBC Test

但是,当我在VBA中运行时,我收到一条消息说"未找到数据源名称且未指定默认驱动程序":

MySQL ODBC VBA

我有很多使用ADO以相同的方式连接到SQL Server的经验,但我暂时没有完成它,所以如果我错过了一些明显的东西,请随时称我为菜鸟

0 个答案:

没有答案