Excel VBA: Interroger une Base de données MySQL

Je suis à la recherche d'un exemple de comment interroger une base de données MySQL à l'aide de VBA Excel.

Je suis en mesure d'utiliser Data \ Provenant d'Autres Sources \ à Partir de Microsoft Query pour importer des données à partir de la db, mais ce que je suis actuellement à la recherche d'un moyen de ne pas l'importer dans une feuille de calcul directement, mais plutôt à une structure de données en VBA pour plus de manipulation avant de m'afficher le résultat de la feuille de calcul. Comment puis-je faire cela?

Comme dans: stackoverflow.com/questions/2821718/... ?
pas tout à fait, je cherchais un exemple de la façon d'interroger et de recevoir le résultat

InformationsquelleAutor Jonathan | 2010-11-29

connecter:

conMySQL.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=" & server & ";" & " DATABASE=" & database & ";" & "UID=" & login_user & ";PWD=" & password & "; OPTION=3; PORT=" & port & ";Connect Timeout=20;"

    'open the connection
    conMySQL.Open

puis pour la requête:

strSQL = "SELECT x FROM some_table"
MySQL.Query (strSQL)

With rsTemporary
      Do Until .EOF
          recordCount = recordCount + 1
          some_variable = ![supcode]
          rsTemporary.MoveNext
      Loop
End With
        MySQL.closeCon

InformationsquelleAutor John M

Cela fonctionne pour moi:

Set conn = New ADODB.Connection
conn.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver}" _
& ";SERVER=" & server_name _
& ";DATABASE=" & database_name _
& ";UID=" & user_id _
& ";PWD=" & password _
& ";OPTION=3" '

Set rs1 = New ADODB.Recordset
sqlstr = "SELECT * FROM `table1` WHERE `ID`=" & ID & ";" 
rs1.Open sqlstr, conn, adOpenStatic
With Worksheets("Main").Cells(1, 1)
.ClearContents
.CopyFromRecordset rs1
End With
rs1.Close
Set rs1 = Nothing

InformationsquelleAutor Dan

Vous devez vous connecter pour publier un commentaire.