OVH Cloud OVH Cloud

==> Dude (et autres) Excel et MySql

1 réponse
Avatar
Thierry Euzenot
Bonjour à toutes et tous,

Pour faire suite à un post du 08/03 où Dude me donnait une façon de se
connecter via Excel à une BDD MySql hébergée sur un serveur Web.

Voilà, j'ai installé le driver ODBC pour MySql,
je n'ai pas touché au MDAC par contre (j'ai la version 2.5 au lieu de la
2.8) mais est-ce rédibitoire ?
J'ai mis en place le code fourni par Dude :

Dim oConn As Object
Dim oRS As Object
Dim sSQL As String

Set oConn = CreateObject("ADODB.Connection")
oConn.CursorLocation = adUseClient
' modifier l'adresse IP, le nom de la base, d'utilisateur et le mot de
passe
' avec ta configuration.

On Error Resume Next
oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=192.168.0.3;" & _
"DATABASE=XXXX;" & _
"USER=XXXX;" & _
"PASSWORD=YYYYY;"
If Err <> 0 Then
Message = MsgBox("Erreur N°" & Err.Number & " : " & Err.Description)
Debug.Print Err.Number
Debug.Print Err.Description
Exit Sub
End If

Et ça me ressort invariablement la même erreur :
Err.Number : -2147467259
Err.Description : [MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on
'192.168.0.3' (10060)

J'ai fait le même essai en passant directement par l'administrateur ODBC de
Windows et en créant une nouvelle source de donnée utilisateur et le
résultat est le même avec la même erreur renvoyée.

Est-ce que je me trompe quelque part dans le code ? Ou bien et-ce que ça
veut dire que le serveur n'accepte pas de requêtes externes ?

Dans le second cas, existe-t-il un moyen de contourner l'obstacle sachant
que je souhaite écrire dans la BDD, mais aussi y lire des informations !!
(Nota: le classeur d'Excelabo permet de mettre à jour une BDD, mais en vue
d'une utilisation à travers un navigateur, ce n'est pas ce que je recherche.
Ce que je souhaite c'est que les divers utilisateurs n'aient à se servir que
d'Excel)

1 réponse

Avatar
MichDenis
Bonjour Thierry,

Tu devrais t'assurer que tu as "Microsoft Jet 4.0" sur ton système. Disponible sur le site de Microsoft, c'est un "must"

| je n'ai pas touché au MDAC par contre (j'ai la version 2.5 au lieu de la
| 2.8) mais est-ce rédibitoire ?

Et pourquoi pas te mettre à jour... cela ne prend que quelques minutes et cela permet d'éviter de tatonner sur des
problématiques inhérents à des versions anciennes et que la mise à jour a résolu !

| On Error Resume Next

Tu devrais ajouter cette dernière ligne de code lorsque le code utilisé a été testé à fond. On peut alors avoir tous les
messages d'erreur lors de l'élaboration de la procédure, le cas échéant !

Je ferais davantage recours à une chaîne de connnection comme celle-ci :

oConn.Open "Provider=MSDASQL;" & _
"Driver={SQL Server};" & _
"Server=myServerName;" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword

Tu peux les trouver presque toutes à cette adresse :
http://www.able-consulting.com/ado_conn.htm?f­o_conn.htm



Salutations!






"Thierry Euzenot" <te.st2e_arobase_free.fr> a écrit dans le message de news:
Bonjour à toutes et tous,

Pour faire suite à un post du 08/03 où Dude me donnait une façon de se
connecter via Excel à une BDD MySql hébergée sur un serveur Web.

Voilà, j'ai installé le driver ODBC pour MySql,
je n'ai pas touché au MDAC par contre (j'ai la version 2.5 au lieu de la
2.8) mais est-ce rédibitoire ?
J'ai mis en place le code fourni par Dude :

Dim oConn As Object
Dim oRS As Object
Dim sSQL As String

Set oConn = CreateObject("ADODB.Connection")
oConn.CursorLocation = adUseClient
' modifier l'adresse IP, le nom de la base, d'utilisateur et le mot de
passe
' avec ta configuration.

On Error Resume Next
oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER2.168.0.3;" & _
"DATABASE=XXXX;" & _
"USER=XXXX;" & _
"PASSWORD=YYYYY;"
If Err <> 0 Then
Message = MsgBox("Erreur N°" & Err.Number & " : " & Err.Description)
Debug.Print Err.Number
Debug.Print Err.Description
Exit Sub
End If

Et ça me ressort invariablement la même erreur :
Err.Number : -2147467259
Err.Description : [MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on
'192.168.0.3' (10060)

J'ai fait le même essai en passant directement par l'administrateur ODBC de
Windows et en créant une nouvelle source de donnée utilisateur et le
résultat est le même avec la même erreur renvoyée.

Est-ce que je me trompe quelque part dans le code ? Ou bien et-ce que ça
veut dire que le serveur n'accepte pas de requêtes externes ?

Dans le second cas, existe-t-il un moyen de contourner l'obstacle sachant
que je souhaite écrire dans la BDD, mais aussi y lire des informations !!
(Nota: le classeur d'Excelabo permet de mettre à jour une BDD, mais en vue
d'une utilisation à travers un navigateur, ce n'est pas ce que je recherche.
Ce que je souhaite c'est que les divers utilisateurs n'aient à se servir que
d'Excel)