Discussion :

[guilhemleflo]

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 :

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

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.

[ProgElecT]

Salut

Code :

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

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 :

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

[guilhemleflo]

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 :

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

 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.

[guilhemleflo]

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.

[ProgElecT]

Salut
Essayes encore ceci

Code :

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

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

[guilhemleflo]

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.