Vba requete pour MYSQL par ODBC

Bonjour a tous,

J'ai trouvé une solution pour importer une requete vers mysql grace à developpez.com.

J'arrive a faire fonctionner ma requete avec mysql de easyphp en local(pour tester).
Dès que j'essai de faire la meme chose pour un serveur distant, la requete ne s'éxecute pas. Pas d'erreur dans VBA.
Pourtant lorsque je fais un test dans ODBC, il me confirme la connection au serveur d'ailleurs il trouve toutes les bases de données.

J'ai vérifié et mis exactement la meme structure et le meme nom de table.

J'ai changé uniquement le dsn dans vba
cnn.Open "ODBC;DATABASE=peofofo;DSN=site_peofofo;"
'cnn.Open "ODBC;DATABASE=test;DSN=easyphp;"

Mais rien ne se passe sur le serveur distant.
Est il possible de mettre des erreurs sur la connection ou les requetes
comme en php or die ('Erreur :'.mysql_error()); mais en vba ?

Voici ma macro:

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 36 37

Private Sub CommandButton1_Click()   'Déclaration de variable Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset Dim MaCommand As ADODB.Command Dim Num_OL As Double Dim Num_SAP As String Dim Text_SQL As String   ' Ouverture de la connexion à la base de donnée   cnn.Open "ODBC;SERVEUR=sql.serveur_peofofo.com;DSN=peofofo;" 'cnn.Open "ODBC;DATABASE=test;DSN=easyphp;" champ_1 = Cells(1, 2).Value champ_2 = Cells(1, 3).Value champ_3 = Cells(1, 4).Value champ_4 = Cells(1, 5).Value champ_5 = Cells(1, 6).Value If Num_OL = 1 Then 'Requète pour insérer une ligne de commande Text_SQL = "INSERT INTO essai VALUES (null," & champ_1 & " ," & champ_2 & ", " & champ_3 & ", " & champ_4 & " ," & champ_5 & ")" Set MaCommand = New ADODB.Command MaCommand.ActiveConnection = cnn MaCommand.CommandText = Text_SQL Set MonRs = MaCommand.Execute(, , adAsyncExecute) Else T$ = "Attention" 'Titre du message M$ = "Probème avec le compte de " & Num_OL 'Message à afficher Reponse% = MsgBox(M$, 0 + 48, T$)   End If       cnn.Close 'Fermeture de la connection à la base de donnée   End Sub

---

Bonjour peofofo, bienvenue sur le forum.
As-tu une erreur ? Eventuellement, sur quelle ligne ?
Pour la gestion d'erreur, je pense que tu parles d'une vérification de la connexion... (?)
Juste pour éclairer celui qui pourra te répondre... Visiblement, en ce moment il dort encore. Patience ;)

Merci de ta réponse ouskel'n'or
Je n'est pas d'erreur sur le script.
Effectivement, je cherche un moyen de connaitre l'erreur de connection.

Je pense que le problème vient de la connection, il faut peut etre pas mettre simplement le dsn dans la connection ?:(

Bonjour,
Encore moi. As-tu fait une recherche "Dans ce forum" ? Barre d'outils immédiatement en dessus des sujets de discussions.
J'ai trouvé cinq pages de discussions où on traite le sujet avec "SQL" comme mot clé. Cé ben le diable si tu trouves pas ton bonheur... ;)
Bonne chance

(va quand même falloir que je m'y mette ! :mouarf: )

Bonjour,
Et "à la main" (Données, Données externes, Créer une requête) ça dit quoi ?

Citation:

---

Envoyé par Bevan

Bonjour,
Et "à la main" (Données, Données externes, Créer une requête) ça dit quoi ?

---

Il me dit que Microsoft Query n'est pas installé.
Si ça marche en local, ça devrait marcher sur un serveur distant.

ouskel'n'or --> J'ai fais plein de recherches sans réel résultat.
J'ai fais tellement de tests que je ne me souviens plus de ce que j'ai testé.

Le problème c'est que je n'est pas d'erreur, ma macro s'execute sans problème. Mais sans importer les données.
Je suis resté bloqué sur ce problème depuis le mois de mars.

A mon avis, le problème vient plus de la connection par ODBC car je n'ai rien changé sur excel.
Pourtant lorsque je test le serveur distant sur ODBC il me trouve le serveur et également toutes les base de données. J'ai pourtant bien sélectionner la bonne base, je ne comprend pas!? :(

C'est pour ces raisons que je poste mon problème afin de connaitre la possibilité quelqu'un qui connait mon problème.

ouskel'n'or --> Tu m'as dit dans un précédent message que quelqu'un pourrait peut etre trouver, peus tu me donner son pseudo afin que je puisse lui envoyer un MP?

Merci

Citation:

---

Envoyé par peofofo

ouskel'n'or --> Tu m'as dit dans un précédent message que quelqu'un pourrait peut etre trouver, peus tu me donner son pseudo afin que je puisse lui envoyer un MP ?

---

Non mais tu peux les trouver dans une recherche dans ce forum, à SQL :mouarf:

Merci a tous,

J'ai essayé de débloquer le port 3306.
Mais rien n'a changé au problème.
J'ai trouvé un site http://www.erlandsendata.no/english/...adacconnstring qui indique comment se connecter, j'ai essayé plein de truc, toujours pareil pas d'erreur et pas d'envoi.

Je sais plus quoi essayer.:cry:

Bonjour à tout le forum,

Que veux-tu faire exactement ?

Importé et lire des valeurs ?
Ecrire dans une base ?

Tout ton code est là ?

Ou est initialisé Num_OL ?
Ou est rst ?

Ou est défini MonRs ? (Option Explicit)

Code:

---

1 2	cnn.Open "ODBC;SERVEUR=sql.serveur_peofofo.com;DSN=peofofo;" 'cnn.Open "ODBC;DATABASE=test;DSN=easyphp;"

---

Ca me semble radicalement différent

Fait une recherche sur le forum avec ODBC , tu trouvera peut être une orientation

Pas de MP svp

Merci Jean Pierre49 de ta réponse.

J'ai fais beaucoup d'essais, et j'ai oublié de modifier la déclaration des variables.

J'ai réussi a envoyer mes requetes graces au recordset.
Le script fonctionne sur le serveur distant désormais.

Merci à tous
Pour ceux qui souhaite obtenir le code
Le voilà:

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 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

Private Sub CommandButton1_Click() 'Déclaration de variable Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset Dim MaCommand As ADODB.Command Dim Ligne As Integer Dim champ_1 As String Dim champ_2 As String Dim champ_3 As String Dim champ_4 As String Dim champ_5 As String   'effacement des anciennes donées Range(Cells(1, 2), Cells(65536, 6)).Select Selection.ClearContents Cells(1, 1).Select   ' Ouverture de la connexion à la base de donnée 'cnn.Open "ODBC;DATABASE=test;DSN=easyphp;UID=root" cnn.Open "ODBC;DATABASE=peofofo;DSN=serveur_peofofo;UID=root"   'appel de la requète SQL Semaine Text_SQL = "SELECT champ_1, champ_2, champ_3, champ_4, champ_5 FROM essai_table" rst.Open Text_SQL, cnn, adOpenForwardOnly, adLockReadOnly If Not (rst.EOF And rst.BOF) Then rst.MoveFirst Ligne = 1 While Not (rst.EOF) For i = 0 To 4 Cells(Ligne, 2 + i).Value = rst.Fields(i).Value Next i Ligne = Ligne + 1 rst.MoveNext Wend End If rst.Close 'Fermeture de la requète cnn.Close 'Fermeture de la connection End Sub Private Sub CommandButton2_Click()   'Déclaration de variable Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset Dim MaCommand As ADODB.Command Dim champ_1 As Double Dim champ_2 As String Dim champ_3 As String Dim champ_4 As String Dim champ_5 As String   ' Ouverture de la connexion à la base de donnée 'cnn.Open "ODBC;DATABASE=test;DSN=easyphp;UID=root" cnn.Open "ODBC;DATABASE=peofofo;DSN=serveur_peofofo;UID=root"   champ_1 = Cells(1, 8).Value champ_2 = Cells(1, 9).Value champ_3 = Cells(1, 10).Value champ_4 = Cells(1, 11).Value champ_5 = Cells(1, 12).Value   'Requète pour insérer une ligne de commande   Text_SQL = "INSERT INTO essai_table VALUES (null," & champ_1 & " ," & champ_2 & ", " & champ_3 & ", " & champ_4 & " ," & champ_5 & ")" rst.Open Text_SQL, cnn, adOpenForwardOnly, adLockReadOnly     cnn.Close 'Fermeture de la connection à la base de donnée   End Sub

---

Seul bémole c'est que je ne peus pas fermer la requete rst pour la dernière macro car il me met une erreur :?
Donc je l'ai supprimer:)

Merci à tous pour votre aide, j'ai avancé à grand pas, et je peus maintenant garantir la faisabilité du projet.
Merci:D