Utilisation de liens OLE pour communiquer entre Excel et MySQL

**popsmelove** · 10/07/2008, 09h46

Bonjour,

je ne sais pas si quelqu'un ici a déjà essayé et réussi à attaquer depuis excel un serveur MySQL avec des liens OLE mais je tente ma chance après 3 jours de recherches infructueuses.

J'ai installé le pilote suivant (que tout le monde recommande sur le net) :

myoledb-3.9.6

que j'ai trouver sur MySQL.com

J'ai bien fait l'install comme prévu , (on lance le msi qui s'installe sur le C:\Program File, puis j'ai copié dans C:\WINNT\system32 les fichiers libmysql.dll et MyProv.dll et j'ai bien sur fait un regsvr32.exe MyProv.dll)

Voici le code que j'utilise dans VB pour tester la connexion:

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
 
Sub test()
 
Dim objConnexion, chaineConn
 
  ' Créer l'objet ADO
  Set objConnexion = New ADODB.Connection
 
  '  Set objConnexion = Server.CreateObject("ADODB.Connection")
  ' chaineConn = "provider=MICROSOFT.JET.OLEDB.4.0;DataSource=D:\Cedric\R\02 - Base\base.mdb;User ID=nonDusager;Password=MotDePasse;"
 
  ' Ouvrir la base sans DSN avec chaîne de connexion
  chaineConn = "provider=MySQLProv;server = 141.71.4.40;DataSource=eurocorp;User ID=root;Password=saq;"
  objConnexion.Open chaineConn
 
  ' Traitement...
 
  ' Fermer la connexion et détruire l'objet
  objConnexion.Close
  Set objConnexion = Nothing
 
End Sub

Bien sur ça ne marche pas , j'ai le message d'erreur suivant "erreur d'execution -2147467259 (80004005) "

Erreur que je ne sais pas résoudre...

Un expert est dans la place ?

Merci

**Godzestla** · 10/07/2008, 09h53

Salut,

J'ai bien fait l'install comme prévu , (on lance le msi qui s'installe sur le C:\Program File, puis j'ai copié dans C:\WINNT\system32 les fichiers libmysql.dll et MyProv.dll et j'ai bien sur fait un regsvr32.exe MyProv.dll)

C'est quoi ton Windows? NT ?

Sinon pour XP(W2k) en standard, j'aurais penché pour C:\Windows\System32.
Mais çà n'a peut-être rien à voir.

**popsmelove** · 10/07/2008, 10h21

Je suis sous windows 2000, donc pas de c:\windows...

**Godzestla** · 10/07/2008, 10h39

Salut,

curieux de nature je viens de très très vite regarder le site de Mysql.

j'ai trouvé des liens qui pourraient t'aider.

les voici.

http://dev.mysql.com/doc/refman/5.0/...onnectors.html
http://dev.mysql.com/doc/refman/5.0/fr/index.html
http://dev.mysql.com/doc/refman/5.0/...c-with-vb.html

Il y a du code avec ADO et ODBC.

**M3r** · 10/07/2008, 16h22

Salut voici une macro qui se connecte sur du Mysql et effectue des requêtes

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Function sql() As Integer
 
Dim LigneTraitee As Long
Dim LigneDebTFElec As Long
Dim LigneDebTFGaz As Long
Dim lundi As String
 
 
Dim NomRepertoire As String
 
Dim Datedeb As String
Dim Datefin As String
 
'Définition du nombre de requêtes
Dim StrSQL(4) As String
 
'Définition des variables de connexion
Dim Conn_MySQL_2 As ADODB.Connection
Dim Conn_MySQL_3 As ADODB.Connection
 
'Définition des variables d'enregistrement
Dim Rs_MySQL_TF As ADODB.Recordset
Dim Rs_MySQL_TFGaz As ADODB.Recordset
Dim Rs_MySQL_TF_Part As ADODB.Recordset
Dim Rs_MySQL_TFGaz_Part As ADODB.Recordset
 
'Définition des variables de commande de la bse
Dim Cmd_MySQL_2 As ADODB.Command
Dim Cmd_MySQL_3 As ADODB.Command
 
'définition du début des lignes
LigneDebTFElec = 4
LigneDebTFGaz = 16
 
'on initialise la valeur retour de test du déroulement de la fonction xxxx
Donnees_COTF = 0
lundi = Now()
'Mise en forme de la date à récuperer dans la base xxxx
Datedeb = Mid(lundi, 7, 4) & "-" & Mid(lundi, 4, 2) & "-" & Mid(lundi, 1, 2)
Datefin = Mid(lundi, 7, 4) & "-" & Mid(lundi, 4, 2) & "-" & Mid(lundi, 1, 2) + 4
 
 
 
'Initialisation des variables de connexion
Set Conn_MySQL_2 = New ADODB.Connection
Set Conn_MySQL_3 = New ADODB.Connection
 
   'Initialisation des variables d'enregistrement
   Set Rs_MySQL_TF = New ADODB.Recordset
   Set Rs_MySQL_TFGaz = New ADODB.Recordset
   Set Rs_MySQL_TF_Part = New ADODB.Recordset
   Set Rs_MySQL_TFGaz_Part = New ADODB.Recordset
 
   'Initialisation des variables de commande
   Set Cmd_MySQL_2 = New ADODB.Command
   Set Cmd_MySQL_3 = New ADODB.Command
 
   'Activation du fichier TdB
   Workbooks(nom_fichier_tdb).Activate
 
   'Initialisation des variables d'indicateurs de bons déroulement des requêtes sur base COTF
   indicateur_fin_traitement_COTF_ELEC = 0
   indicateur_fin_traitement_COTF_GAZ = 0
 
On Error GoTo ErreuraccesbaseCOTF_ELEC
   'Paramètre connexion nouvelle base 
   Conn_MySQL_2.Open "DRIVER={MySQL ODBC 3.51 Driver};" _
                            & "SERVER=xxx.xx.xxx.xxx;" _
                            & "DATABASE=xxxx;" _
                            & "UID=root;PWD=xxxxx; OPTION=3; Port=3306"
 
   Cmd_MySQL_2.ActiveConnection = Conn_MySQL_2
 
 
   StrSQL(1) = "SELECT * " & _
            "FROM ind_adm_fct " & _
            "WHERE dateInd >= '" & Datedeb & "' and dateInd <= '" & Datefin & "'" & _
            "AND indicProPart = '0';"
 
   StrSQL(2) = "SELECT * " & _
            "FROM ind_adm_fct " & _
            "WHERE dateInd >= '" & Datedeb & "' and dateInd <= '" & Datefin & "'" & _
            "AND indicProPart = '1';"
 
   'Exécution des 2 requêtes et mise en mémoire des résultats dans 2 enregistrements
   Cmd_MySQL_2.CommandText = StrSQL(1)
   Cmd_MySQL_2.CommandType = adCmdText
   Cmd_MySQL_2.CommandTimeout = 15
   Set Rs_MySQL_TF = Cmd_MySQL_2.Execute()
 
   Cmd_MySQL_2.CommandText = StrSQL(2)
   Cmd_MySQL_2.CommandType = adCmdText
   Cmd_MySQL_2.CommandTimeout = 15
   Set Rs_MySQL_TF_Part = Cmd_MySQL_2.Execute()

**popsmelove** · 11/07/2008, 09h26

Merci pour vos aides, malheureusement tout ce qu'on y trouve est de l'ODBC. Je n'ai plus le droit de les utilisés car pas assez puissant pour une application qui sera deployée sur plusieurs postes.

En fait, de ce que j'ai lu sur loa toile, ODBC est le plus ancien, après est venu OLEDB puis ADO. On m'a demandé de le faire en OLEDB...et là ça coince quasi impossible de trouver des aides sur le net... donc je continue à chercher

**Godzestla** · 11/07/2008, 09h32

Merci pour vos aides, malheureusement tout ce qu'on y trouve est de l'ODBC. Je n'ai plus le droit de les utilisés car pas assez puissant pour une application qui sera deployée sur plusieurs postes.

Ah bon ?

Parce que chez MySql il donnent cela comme technique et installer ODBC sur plusieurs postes, ce n'est pas vraiment infaisable.

Mais bonne chance dans tes recherche.

**popsmelove** · 11/07/2008, 11h07

I know , je l'ai déjà fait mais sa pause des problèmes de sécurité informatique lors des migration et patati et patata...et sur des forum certains expliquent que les OLE et ADO sont bcp plus puissant et stable....alors...et surtout je travail dans une grosse structure ou on est de plus en plus les mains liées...

Je précise je ne suis pas informaticien, mais je suis obligé de suivre les règle de mon IT groupe....

En tout cas dés que j'ai la solution je la poste

Encore merci

**Godzestla** · 11/07/2008, 11h18

et surtout je travail dans une grosse structure ou on est de plus en plus les mains liées...

Cela je connais très bien.....

**popsmelove** · 20/08/2009, 18h25

Excusez mois j'avais oublié de poster la solution qui marche très bien :

Code :

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

1
2
3
4
5
 
Set oConnection = New ADODB.Connection
 
oConnection.ConnectionString = "DRIVER=MySQL ODBC 3.51 Driver;SERVER=server IP;DATABASE=database name;UID=login;PWD=pwd; OPTION=3"
oConnection.Open

Utilisation de liens OLE pour communiquer entre Excel et MySQL

Macros et VBA Excel

Discussions similaires

Partager

Partager