Como o VBA pode se conectar ao banco de dados MySQL no Excel?

Conectando-se a um banco de dados MySQL usando VBA

Tentativa de conexão para um banco de dados MySQL no Excel usando VBA pode ser um desafio às vezes. No seu caso, você encontrou um erro ao tentar estabelecer uma conexão.

Para conectar-se com sucesso a um banco de dados MySQL usando VBA, siga estas etapas:

Sub ConnectDB()
    Dim oConn As ADODB.Connection

    Set oConn = New ADODB.Connection

    Dim str As String
    str = "DRIVER={MySQL ODBC 5.2.2 Driver};" & _
                                            "SERVER=sql100.xtreemhost.com;" & _
                                            "PORT=3306" & _
                                            "DATABASE=xth_9595110_MyNotes;" & _
                                            "UID=xth_9595110;" & _
                                            "PWD=myPassword;" & _
                                            "Option=3"

    ' Open the connection
    oConn.Open str
End Sub

Buscando dados do banco de dados

Depois de estabelecer uma conexão, você pode recuperar dados do banco de dados usando um objeto ADODB.Recordset. Veja como:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

' Execute a query
sql = "SELECT * FROM ComputingNotesTable"
rs.Open sql, oConn, adOpenDynamic, adLockOptimistic

' Retrieve the data
Do Until rs.EOF
    Range("A1").Select
    ActiveCell = rs.Fields("Headings")
    rs.MoveNext
Loop

' Clean up
rs.Close
oConn.Close
Set oConn = Nothing
Set rs = Nothing

Comparação com PHP

Você mencionou que conseguiu se conectar ao MySQL com sucesso usando PHP. No PHP, você usou a função mysql_connect. No entanto, no VBA, usamos o objeto ADODB.Connection para estabelecer uma conexão.

A função mysql_connect é uma função nativa do PHP que interage diretamente com a extensão MySQL. Por outro lado, ADODB.Connection é um objeto ActiveX que fornece uma maneira mais genérica de se conectar a vários bancos de dados, incluindo MySQL.

Notas adicionais

• Certifique-se de ter o MySQL ODBC Connector instalado.
• A Option=3 na string de conexão garante que a string seja finalizada por um ponto e vírgula.
• As constantes adOpenDynamic e adLockOptimistic são usadas para otimizar dados recuperação.