Discussion :

[anankee]

Hello,


Je remonte ce sujet, bien que résolu, car j'ai été confronté au même problème. Un complément s'impose car quand zardoz45 dit que la solution avec
- version 32 du driver ODBC MySQL
- version 64 bit du gestionnaire ODBC
fonctionne, cela me paraît bizarre => chez moi, sur un win 7 x64 le gestionnaire x64 ne voit pas les pilotes x32...cela me semble d'ailleurs cohérent.

Pour résoudre le problème (connexion d'une macro VBA dans excel 2010 x32 sur une base mysql):

• Téléchager le pilote oracle Mysql OBDC en x32
• Utiliser le gestionnaire OBDC pour x32: %windir%\SYSWOW64\odbcad32.exe (on peut créer un raccourci avec l'explorateur dans Panneau de configuration\Tous les Panneaux de configuration\Outils d’administration en ayant les deux version en parallèle x62 et x64)
• Créer les connexions MySQL dans "Sources de données systèmes" avec Pilote MySQL OBDC ANSI ou unicode (si on ne voit pas ces pilotes, c'est que ce n'est pas du x64 ou que le gestionnaire n'est pas le x32...)
• Le champ data_source_name doit être identique au DSN dans le code VBA sinon il y aura un msg d'erreur de connexion non trouvée

[confeteus]

Merci sa résolu mon problème

Pour les liens

Explication du problème
https://support.microsoft.com/fr-fr/...ion-of-windows

Download Fournisseur OLEDB 64*bits pour ODBC (MSDASQL) from Official Microsoft Download Center.html

https://www.microsoft.com/fr-fr/down....aspx?id=20065

Mon bout de programme en vb6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub ConnServer
   Dim rs As ADODB.Recordset
   Dim sql As String
   Dim conn As ADODB.Connection
   Set rs = New ADODB.Recordset
   Set conn = New ADODB.Connection
   conn.CursorLocation = adUseClient
 
   conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" ' _
                           & "SERVER = " & localHost & ";" _
                           & "Database = " & mabase & ";" _
                           & "UID = " & root & "; " _
                           & "PWD = " & mdp & ";option=3;"
 
 
   'conn.ConnectionString = "DSN=test;"
 
   conn.Open
   MsgBox "yes"
 
   sql = "select * from acteur"
  ' rs = conn.Execute(sql)
 
   rs.Open "select * from actor", conn, adOpenDynamic, adLockOptimistic
   rs.MoveFirst
   MsgBox rs!last_name
   conn.Close
   Set conn = Nothing
 
end sub

Créer votre connexion dans odbc

J'espère que sa peut aider