Connexion à une base MySql distante

MaConnexion_cnx.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _ & "DATABASE=NOMBASE;" _ & "SERVER=IP;" _ & "PORTNumDuPor=3306;" _ & "UID=USER;" _ & "PWD=PASS;" _ & "OPTION=3

Bonsoir ,

Petit bout de code qui pourrait vous airder :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim connection_Driver As String
Dim connection As New ADODB.Connection
Dim recordsetname As New ADODB.Recordset
 
connection_Driver = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=YOURSERVER;DATABASE=YOURDATABASE;UID=YOURUSERNAME;PWD=YOURPASSWORD;OPTION=YOUROPTIONS"
 
connection.ConnectionString = connection_Driver
connection.open
Set recordsetname =  connection.Execute("SELECT * FROM TABLENAME")
 
connection.Close
Set connection = Nothing
Set recordsetname = Nothing
End Sub

J'espère avoir pu vous aider