Discussion :

[Oncle_Pete]

Bonjour

J'utilise BDS 2006, SQL Server 2005 et les composants TADOCOnnection et TADOQUery afin de faire un insert dans une table de ma base.
Cette insertion declenche un trigger qui appelle une procedure stockee.
Cette derniere effectue tout un lot d'insertion et de mise a jour sur plusieurs tables.
Une de ces insertion se passe mal et retourne une erreur ce qui provoque l'arret de ma sequence de MAJ.
Est-il possible de capturer le message renvoye par le serveur dans mon appli Delphi ?

Actuellement mon code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with MaQuery do begin
   SQL.clear;
   SQL.Add(SQLText);
   try
       ExecSQL;
   except
       on E:EOleException do begin
       msgerreur:= 'Erreur détectée dans la fonction d''insertion de données : Cause de l''erreur : '+ E.message+chr(13);
       Tracemsg(msgerreur);
       result:=false;
       exit;
   end;
end;

et je ne trace pas de message d'erreur.

Merci a vous

Oncle Pete

[Linkin]

Et en remplaçantle on E:EOleException par E:Exception do pour faire le traitement quelque soit l'exeption générée, le message n'est toujours pas récupéré?

[Oncle_Pete]

Bonjour et Merci Linkin,

Non : ca ne change rien.
En pas a pas, je passe sur l'ExecSQL, puis accede tout de suite apres le end qui termine mon With ...
Lorsque je soumet ma requete "Insert Into" dans Toad, j'ai un beau message d'erreur de tentative d'insertion de null dans une variable (laquelle est une variable cle).

Ca parait bizarre !

Oncle Pete