Discussion :

[colooo]

Bonjour, en ce moment je travail beaucoup avec le sql via une base mysql, et plutot que recuperer une erreur

"ODBC driver does not support the requested properties"

je prefere recuperer le code erreur SQL, j'ai cherche du cote try catch qui en fait n existe pas en vbm donc du cote "on error goto"

je souhaite savoir s'il est possible de recuperer le code erreur de MySQL plutot que celui de vb6, afin de savoir precisement ce qui ne va pas dans la requete

[Phifi]

A mon avis :

segmente ton traitement en créant une procédure de connexion pour commencer -> facile à débuguer

puis créer une fonction qui te remplit un recorset par exemple :
- tu passes comme arguments : ta connexion, ta requête SQL, le recordset
- utilise "On error Goto" pour intercepter l'erreur
- err.Description te renverra l'erreur SQL si c'est le cas

Si tu as des soucis, montre-nous le code qui renvoie ton erreur ci-dessus

[colooo]

j'ai deja une fonction qui gere la connexion, et qui fonctionne, de meme pour des requetes

c'est juste que j'ai des un peu longues à ecrire (800 caracteres pour certaines) , du coup je ne vois pas toujours les erreurs de syntaxes ou autres que mysql pourrait ne pas accepter, car je connais mal mysql

j'ai test

Code :

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

1
2
3
4
5
6
7
On Error GoTo er

Call connect
Call query(qrPart)
Call closeconnect

er:  MsgBox Err.Description

toutefois, je recois le meme message d erreur que vb, rien sur le sql

voici le code des differentes fonctions

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
 
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
 
Public Sub connect()
 
Set conn = New ADODB.Connection
Dim connectionstr As String
connectionstr = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test_order;USER=XXX;PASSWORD=XXX;OPTION=3;"
conn.Open connectionstr
'j'ai "grise" le user et pass pour le c/c 
 
End Sub
 
Public Sub query(qr As String)
 
Set rs = New ADODB.Recordset
rs.Open qr, conn, adOpenDynamic
 
End Sub
 
Public Sub closeconnect()
 
conn.Close
Set conn = Nothing
 
End Sub

[Phifi]

J'éviterais la gestion globale de l'erreur, et j'ajouterais ceci pour commencer :

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
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
  
Public Sub connect()

   Set conn = New ADODB.Connection
   Dim connectionstr As String
   connectionstr = "DRIVER={MySQL ODBC 3.51       Driver};SERVER=localhost;DATABASE=test_order;USER=XXX;PASSWORD=XXX;OPTION=3;"
   '
   on error goto err_msg
   conn.Open connectionstr
'j'ai "grise" le user et pass pour le c/c 
   exit sub
err_msg:
   MsgBox "Erreur de connexion", vbCritical, "Erreur"
End Sub

Public Sub query(qr As String)
   '
   ' dans cette procédure, j'étofferais un peu mon code, que fais-tu de ton recordset si il est déjà ouvert ?
   ' ton curseur côté client ou serveur etc.
   '
   Set rs = New ADODB.Recordset
   on error goto err_msg
   rs.Open qr, conn, adOpenDynamic, adLockOptimistic '(ou autre chose)
   exit sub
err_msg:
   ' ici tu visualises ton erreur SQL
   msgbox "Erreur : " + err.Description
End Sub

Public Sub closeconnect()

conn.Close
Set conn = Nothing

End Sub

[colooo]

merci de tes avis et conseils

toutefois, je n'obtiens toujours pas l'erreur sql, mais toujours la meme

Code :

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

ODBC driver does not support the requested properties

dans cette procédure, j'étofferais un peu mon code, que fais-tu de ton recordset si il est déjà ouvert ?

j ai fais un post a ce sujetici, le recordset se ferme "tout seul", jarrive a faire plusieur requete

Code :

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

1
2
3
 
call query(qrlabel)
call query(qrpart)

du moment que les requetes dont correctes, le code fonctione sans soucis

[Phifi]

Tu as cette erreur à quel moment ?