VBS + Requète sql mysql

Bonjour, j'ai une base mysql sur un windows server2003.

Je voudrais pouvoir réaliser certaines actions(update,insert..) depuis un autre serveur.

J'ai donc installé les drivers 3.51 odbc afin de pouvoir réaliser la connexion.
De ce côté tout vas bien.

Le soucis c'est que une fois connecté, lorsque je veux faire même un select, le script semble bouclé indéfiniment sans jamais sortir aucun résultat :

Code:

---

1 2 3 4 5 6

Set Con = CreateObject("ADODB.Connection") Set Rec = CreateObject("ADODB.Recordset") Con.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=Myserver;DATABASE=base;UID=Myroot;PASSWORD=MyPass;" a="SELECT Cpntrole FROM Pdp;" Rec.Open (a),Con msgbox Rec.fileds("Controle")

---

Est-ce que vous avez des idées du pouruqoi du comment ?
Merci.

Salut

Code:

---

1 2 3

a="SELECT Cpntrole FROM Pdp;" Rec.Open (a),Con msgbox Rec.fileds("Controle")

---

Tu sélectionnes Cpntrole puis tu interroges .fileds("Controle")

Un code pour t'aider à debuguer.

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

Dim Con, Rec, MsG, A Set Con = CreateObject("ADODB.Connection") Set Rec = CreateObject("ADODB.Recordset")   On Error Resume Next Con.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=Myserver;DATABASE=base;UID=Myroot;PASSWORD=MyPass;" If Err.Number <> 0 Then MsG = "Erreur N°" & Err.Number & vbCrLf _ & "Description:" & vbCrLf & Err.Description & vbCrLf _ & "Impossible d'ouvrire la BD" MsgBox MsG, vbCritical, "Erreur" Else A = "SELECT Cpntrole FROM Pdp" Rec.Open A, Con If Err.Number <> 0 Then Con.Close MsG = "Erreur N°" & Err.Number & vbCrLf _ & "Description:" & vbCrLf & Err.Description & vbCrLf _ & "Impossible d'ouvrire la table" MsgBox MsG, vbCritical, "Erreur" Else If Rec.EOF Then MsG = "Aucun enregistrement disponible pour cette requête" MsgBox MsG, vbInformation, "" Else MsgBox Rec.Fields("Cpntrole") End If Con.Close Rec.Close End If End If Set Rec = Nothing Set Con = Nothing

---

Merci de la réponse;
En effet petite erreur sur le Controle.

Cependant, même lorsque j'utilise votre code,arrivé sur cette ligne :

Code:

---

Rec.Open A, Con

---

Plus rien avance, le script semble chercher chercher mais sans jamais rien sortir.

Pas d'erreur sur l'ouverture de la base je par directement sur le 'else'.

Et je ne vois pas ce qui peut créer un temps de traitement aussi long. Y a t'il un configuration particulière à faire sur ODBC?Côté serveur de bdd et serveur de traitement?



Merci.

PS: le problème ne ce pose pas lorsque je fait la même requète en php. La j'ai bien mes données qui s'affiche.
De plus, le problème ne vient pas du serveur distant parce que même en local, le vbs reste planté sur la ligne ci dessus.

Je fait juste un petit up parce que j'ai fait quelques tests et :

Si je essaye de me connecter en vbs en local à ma base mysql , je vois dans processlist que je reste en sleep et ne passe jamais en query.

Même en local, je n'arrive à faire aucunes actions sur mes tables(select,insert...) alors que j'ai bien fait un grant all privileges dessus.

Je ne peux que me connecter à ma base.
Si quelqu'un a des idées...
Merci.

Salut
Essayes encore ceci

Code:

---

1 2 3 4 5 6

Con.CursorLocation = 3 'adUseClient Con.Mode = 3 'adModeReadWrite Con.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=Myserver;DATABASE=base;UID=Myroot;PASSWORD=MyPass;" '............... A = "SELECT Cpntrole FROM Pdp" Rec.Open A, Con, 3, 2 'adOpenStatic, adLockPessimistic

---

Je n'ai plus de BDs en MySQL, je ne peu donc pas faire d'essais, il me semble me souvenir que dans la requête de connexion, il fallait passer un N° de port du style PORT=3306

J'ai essayé mais sans succès.
Le plus étrange c'est que si j'essaye chez moi tout fonctionne.

Je pense qu'il doit y avoir des protection au niveau du serveur je met donc en résolus mais si quelqu'un à des idées...

Merci.