vba 连接mysql问题

tqd354

excel环境：2010版；windos系统：win10 64位

代码如下：
Public Sub insertDB()

Dim Con As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim iRowscount As Long
Set Con = New ADODB.Connection
Con.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" + _
                        "Server=localhost;" + _
                        "DataBase=estimate;" + _
                        "UID=root;" + _
                        "PWD=root;" + _
                        "OPTION=3;" + _
                        "Stmt=Set Names 'GBK';"
Con.Open
Set Rec = New Recordset
Set Rec = Con.Execute("SELECT products_id FROM trn_temp_orders where orders_id in (select max(orders_id) from trn_temp_orders) GROUP BY products_id ", iRowscount, adCmdText)
Range("a1").CopyFromRecordset Rec '在Excel中打印出查询结果
Rec.Close: Set Rec = Nothing
Con.Close: Set Con = Nothing

End Sub

tqd354

都那么久了，没有大神知道是什么原因么？

Renco

百度一下，关于MYSQL 的10061错误的解决方法，试着调整
我这里就不发链接了。

梧月书声

好像程序里没指定端口？楼主用的不是默认端口，应该是需要指定的

tqd354

梧月书声 发表于 2016-8-15 10:21
好像程序里没指定端口？楼主用的不是默认端口，应该是需要指定的

正解，谢谢。

liuchunlong

tqd354 发表于 2016-8-18 00:00
正解，谢谢。

我也出现这个情况，你是怎么指定端口的？

lzgbc

电脑的环境变量需要设置一下.