Excel connection to MySQL run-time error -2147467259 (80004005) - mysql

Question

I have this code here:
Sub Example()
Dim Conn As New Connection
Conn.ConnectionString = "Server=localhost;Port=3306;Database=testing;Uid=root;Pwd=test;"
Conn.Open
Dim rs As New Recordset
Dim sql As String
sql = "Select productcode from labels" 'put spec of desired table here
rs.Open sql, Conn
If Not rs.EOF Then
Range("a1").CopyFromRecordset rs
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub
And get this error code:
run-time error -2147467259 (80004005)
How can I fix this? What I am trying to do is:
Export data from MYSQL to excel without using the add-in.

Answer 1

I needed to update ConnectionString with the valid Server, Database, User ID and password, as I'm using SQL server on my side.
Now, if I pause your code at sql = "Select productcode from labels" line and run it, the code will fail, highlight ConnectionString line and return the following error message:
Following the error message, I needed to specify the default driver to make the code run properly. In my case it looked like this:
Conn.ConnectionString = "Driver={SQL Server};Server=...
As you are using MySQL, I suggest trying one of the following (check ODBC version):
Driver={MySQL ODBC 5.2 UNICODE Driver};
Driver={MySQL ODBC 5.2 ANSI Driver};