Discussion :

[Goundy]

Bonjour,

Je développe une application pour le cadre d'un projet scolaire et j'aurais une question. je n'ai pas trouvé comment surveiller les erreurs éventuels quand j'exécute mes requêtes.
J'utilise les requêtes SQL avec les composants: TQuery et TDataSource, donc après avoir fais mon Query.Open si la table n'a pas été trouvé, ou si la requête SQL est mal foutue je voudrais bien intércépter ces erreurs au lieu d'avoir un plantage de toute mocheté.
J'ai essayé de regarder dans l'aide à propos du composant query mais je n'ai rien trouvé.

Devrai-je utiliser des exceptions? si oui ben j'ai essayé de voir s'il y'avait des exceptions pour ce composant mais comme je l'ai dis au dessus l'aide ne m'avance pas :/

Merci pour votre aide

[Cl@udius]

Salut

Devrai-je utiliser des exceptions?

Oui, tu peux intercepter les erreurs de type EDatabaseError (ou ses descendants).

@+ Claudius

[Goundy]

Salut

Merci pour ta réponse je viens de voir cette excéption :$
Mais sinon c'est la seule qu'il y'a là :/ et rien qu'avec ca comment je peux détecter si par exemple la requête SQL qui est incorrecte ou par exemple si la table n'existe pas ... etc ?

Merci

[ShaiLeTroll]

tu intercepte l'exception avec un try except, il est vrai que le message n'est pas pratique à gérer pour détecter tel ou tel erreur, ... mais rien ne t'empeche de lancer d'autres requêtes de contrôle (genre un "Select * From Table where 0"), celui-ci t'indiquera que la table n'existe pas, et si cela passe, c'est probablement une erreur de syntaxe ...

Maintenant, Paradox, c'est une base locale, tu n'as pas bcp d'autre erreur que l'absence d'une table, ...

[TryExceptEnd]

Un code dans ce genre pour gerer les exceptions :

Code :

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

1
2
3
4
5
6
7
8
9
try
 La requete
except
 if (E is EDBEngineError) then
  case EDBEngineError.Errors[0].ErrorCode of
   No_Erreur1 : Gestion_Exception1;
   No_Erreur2 : Gestion_Exception2;
 end;
end;

Ou "ErrorCode" Indique le code d'erreur renvoyé par le BDE et "Gestion_Exception" une fonction pour gerer l'erreur spécifiée.

[Goundy]

Les gars? Merci beaucoup

[ghiles82]

[QUOTE=TryExceptEnd;2718416]

if (E is EDBEngineError) then

c quoi le E dans ce if??

j ai essayé y a une erreur de syntaxe ou j ai pas compri i

merci

[TryExceptEnd]

Désolé, j'ai confondu avec un autre code.

Code :

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

1
2
3
4
5
6
7
8
9
try
 La requete 
except
 on EDBEngineError do
 case EDBEngineError.Errors[0].ErrorCode of
  No_Erreur1 : Gestion_Exception1;
  No_Erreur2 : Gestion_Exception2;
 end;
end;