VBA – Connexion à une base MySQL via Excel

Sub test_requete()

 

Dim strSQL As String

Dim etiq As String

Dim com As String

 

‘ Connection variables

Dim conn As New ADODB.Connection

Dim server_name As String

Dim database_name As String

Dim user_id As String

Dim password As String

 

‘ Establish connection to the database

server_name = « ip serveur »

database_name = « nom de base »

user_id = « user »

password = « pass »

 

Set conn = New ADODB.Connection

conn.Open « DRIVER={MySQL ODBC 5.3 ANSI Driver} » _

& « ;SERVER= » & server_name _

& « ;DATABASE= » & database_name _

& « ;UID= » & user_id _

& « ;PWD= » & password _

& « ;OPTION=3 » ‘

 

sqlstr = « INSERT INTO table SET test = ‘ » & valeur_test & « ‘,index = ‘ » & valeur_test & « ‘  »

conn.Execute sqlstr

End Sub