Connexion ADODB pour MySQL
Bonjour,
Je cherche à ma connecter à une BDD sur un serveur par VBA
Le driver MySQL est bien installé sur le poste client et la connexion à la bdd est activée comme en atteste le "connection successfull" délivré après appui sur le bouton test de MySQL/ODBC Connector
Voici le code d'un fichier test qui fonctionne parfaitement en local mais qui lors de la connexion serveur me renvoie:"ERREUR: Source de données introuvable et nom de pilote non spécifié" 8O (le pointeur VBA stoppe sur la ligne 7)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Public bd As New ADODB.Connection
Public enr As New ADODB.Recordset
Sub chargement()
chaine = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=192.168.1.18;DATABASE=test;USER='moi';PASSWORD='coucou';OPTION=3;"
bd.Open chaine
enr.activeConnection = bd
li = 17
col = 5
With enr
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT * FROM table_test" 'ORDER BY nom ASC"
End With
Do While Not enr.EOF
Cells(li, 5) = enr("id")
Cells(li, 6) = enr("nom")
Cells(li, 7) = enr("prenom")
Cells(li, 8) = enr("DN")
Cells(li, 9) = enr("commentaire")
li = li + 1
enr.MoveNext
Loop
enr.Close
bd.Close
End Sub |
Bien entendu les infos transmises dans la variable "chaine" sont conformes aux infos de connexion paramétrées dans ODBC Connector :mrgreen:
Je suppose qu'il y a dans mon projet une bibliothèque non activée ???
Mais laquelle...
Merci pour vos idées.
A+
Philippe
