VBA to mysql connection

Question

Я добавил объект Microsoft Active DataX в файл Excel. Я также загрузил соединитель ODBC mySQL.

Ниже приведен код для подключения в VBA:

Sub ConnectDB2() 
    Dim rs 
    Dim Conn 
    Dim cmdString 

    Set rs = CreateObject("ADODB.Recordset") 
    Set Conn = CreateObject("ADODB.Connection") 

    Conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 Driver};SERVER=52.74.22.123;DATABASE=sads;USERNAME=shridas;PASSWORD={KJH3232C8fed5AD!87367$Bds};" 
    Conn.Open 
    cmdString = "Select * from order" 
    Set rs = Conn.Execute(cmdString) 
    Conn.Close 
End Sub 

Но я получаю сообщение об ошибке: '-2147467259 (80004005)': Ошибка автоматизации, Неизвестная ошибка.

Можете ли вы помочь мне с этим.

Answer 1

Изменить параметр USERNAME в этой строке:

Conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 Driver};SERVER=52.74.22.123;DATABASE=sads;USERNAME=shridas;PASSWORD={KJH3232C8fed5AD!87367$Bds};" 

просто USER

Conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 Driver};SERVER=52.74.22.123;DATABASE=sads;USER=shridas;PASSWORD={KJH3232C8fed5AD!87367$Bds};" 

На моей машине, я также должен использовать другое имя ODBC:

DRIVER={MySQL ODBC 5.3 ANSI Driver}