XL 2016 Connexion entre VBA-Excel et Mysql

[Benam]

Bonjour,
je suis débutant en informatique (programmation/base de données...)
Je souhaite établir une connexion entre mon fichier excel et la base donnée faite sur le MySQL workbench.

voila mon code :

'----------------------------------------------------------------------------------
Sub ADOExcelSQLServer()

Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Server_Name = "127.0.0.1"
Database_Name = "base"
User_ID = "root"
Password = "m02pas"
SQLStr = "SELECT* FROM table01.base"

Set Cn = New ADODB.Connection
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"

rs.Open SQLStr, Cn, adOpenStatic

With Worksheets("Feuil1").Range("a1:z500")
.ClearContents
.CopyFromRecordset rs
End With
'
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub

'----------------------------------------------------------------------------------

quand j'excecute le programme... ca beug

si j'ai bien comprit, apparement c'est un probleme d'ODBC...

J'ai verifié dans ma librairie de reference VBA, j'ai bien le microsoft activex data objects 2.8 library coché :

j'ai suivi un tuto sur internet; donc j'ai declaré sur l'administrateur de source de données ODBC ma base de donnée... mais peut etre j'etais pas jusqu'au bout dans ma demarche

j'avais essayé l'application MySQL for Excel pour etre sur que ma base de donnée est correcte. apparement tout va bien, j'arrive a faire des check-out check-in.
pouvez vous m'aidez SVP
merci d'avance.

 

[Benam]

Merci Tatiak pour ta reponse,

j'ai essayé ton code, ca me sort un beug :

 

[Benam]

oui je l'ai déjà installé

 

[Benam]

C'est bizarre, je ne comprends pas pourquoi ca ne marche pas.
pourtant tout est bon

Serveur : 127.0.0.1
port : 3306
Base de donnée : base
user : root
mot de passe : m02pas

j'ai egalement demarrer le mysql sur la liste des services de mon ordi (gestionnaire des taches)

excel version 2016
j'ai desintallé le connecteur installé par defaut et j'ai reinstallé la version que tu m'as envoyé
:

as tu une piste à explorer stp ?
merci d'avance

 

[Benam]

j'ai remplacé la ligne :
Db = "DRIVER={MySQL ODBC 5.1 Driver};" & _

par

Db = "DRIVER={MySQL ODBC 8.0 Driver};" & _

ca marche toujours pas.

 

[Benam]

j'ai désinstallé la version 8.0 et j'ai réinstallé la 5.1 que tu m'as envoyé.
toujours le même problème.

on est bien d'accord que mon programme VBA doit être fait dans un module ?

 

[Benam]

apparement il faut installer la version 32bits
vu la version excel dont je dispose est une 32bits

source :

VBA/MySQL issue using ODBC connector

I have been struggling with this for a few days now. Any help much appreciated. Trying to connect to MySQL database using Excel VBA, on a PC with the following: Excel 2007 Windows 7 x64 Home Prem...

stackoverflow.com

par contre ca m'affiche

 

[Benam]

SVP J'ai besoin de votre aide
quelqu’un peut me repondre

 

[Benam]

C'est bon ca marché... merci Tatiac
par contre il faut activé le Microsoft ActiveX DATA Objects 2.8 Library.
voila le code final qui marche pour moi :

Sub ADOExcelSQLServer2()

Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim Num As String



Server_Name = "127.0.0.1"
Database_Name = "base"
User_ID = "root"
Password = "m02pas"


Num = 1022

SQLStr = "SELECT numero FROM table01 WHERE numero LIKE '" & Num & "%'"


Set Cn = New ADODB.Connection
Cn.Open "Driver={MYSQL ODBC 8.0 Unicode Driver};Server=" & Server_Name & ";Database=" & Database_Name & ";Uid=" & User_ID & ";Pwd=" & Password & ";"
rs.Open SQLStr, Cn, adOpenStatic

With Worksheets("Feuil2").Range("a1:z500")
.ClearContents
.CopyFromRecordset rs
End With

rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing

End Sub