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 ?

[colooo]

quand je clic sur le bouton qui lance

Code :

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

1
2
3
Call connect
Call query(qrPart)
Call closeconnect

il y a du code avant qui contient la declaration de qrPart et son init

Code :

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

1
2
Dim qrPart As String
qrPart = "Insert into `Part` (Part_Paper,Part_Ink_Front,Part_Ink_Reverse,Part_PlateChanges,Part_Perf_Margin,Part_Perf_Vert,Part_Perf_Horiz,Part_FilesHoles,Part_SellingUnit,Part_TotalNoPlate,Part_BoxQty) values ('" & Txt1Part_Paper.Text & "','" & Txt1Part_Ink_Front.Text & "','" & Txt1Part_Ink_Reverse.Text & "'," & Txt1Part_PlateChange.Text & "," & Txt1Part_Perf_Margin.Text & "," & Txt1Part_Perf_Vert.Text & "," & Txt1Part_Perf_Horiz.Text & ",'" & Txt1Part_Files.Text & "','" & Txt1Part_Selling.Text & "','" & Txt1Part_TotalNo.Text & "'," & Txt1Part_BoxQty.Text & ");"

le probleme ici, n'est pas d'avoir une gestion des erreurs pour l'utilisateur, mais pour moi pour m'aider a developpez, car je suis dans le passage "je balance de la requete sql a tout va, je me debrouille en requete sql, mais je maitrise pas du tout mysql", ceci afin de cerner bien plus vite les erreurs de code SQL
comme par exemple "pas le meme nombre de colonne dans la table et dans le value de la requete insert"
"valeur incorrect pour tel champ"
des choses comme ca

[zazaraignée]

Salut

En passant, et en principe, tu ne devrais pas avoir besoin de l'instruction Call pour appeler une routine. Call est obsolète, donc à ne plus utiliser, bien que cette instruction soit encore supportée.

pour le SQL, ça risque d'être compliqué si tu ne maîtrises pas bien (moi non plus, je n'ai que quelques vagues notions, le livre sur les genoux, si tu vois ce que je veux dire), il te faudra t'assurer que la requête fonctionne bien (dans toutes situations, donc tests) si tu veux passer à la suivante... Long et fastidieux... des heures de plaisir, quoi!

Sinon, y'a les tutos

• SQL, de A à Z
• Langage SQL
• Le langage SQL // c'est pas le même
• SQL course
• SQL course 2

et un dernier, en anglais cependant
Learn SQL mais c'est un excellent site pour un ango. Très fréquenté à mon collège. Presque autant que Développez.

[colooo]

pour mes requetes, j'ai mis de cote l'idee de recuperer le message d'erreur (mais pas abandonnee ^^)
je vais me concentrer sur la requete elle meme via mysql, il y a d'ailleur un post sur le forum sql ici

merci encore de votre aide