Discussion :

[adelneo]

Bonjours,
J'ai deux tables liées par la relation 1-n (la clé étrangère est idservice):
Services(idservice,nomservice)----1,n-----Employés(idemployé,idservice,nom,adresse,qualité).
A la suppression d'un enregistrement de la table Services, un message d'erreur du SGBD (Firebird) apparait : Violation of FOREIGN KEY, si l'enregistrement en question est lié à la table Employés.

Comment intercepter ce message d'exception et afficher un message personnalisé ?

[ShaiLeTroll]

try except EDatabaseError
selon ta couche d'accès, tu pourras avoir une classe d'exception plus précise

[adelneo]

try except EDatabaseError
selon ta couche d'accès, tu pourras avoir une classe d'exception plus précise

J'utilise TZQuery de Zeos, donc je suppose que je dois utiliser le Try Except dans l'événement OnDeleteError, mais je ne vois pas qu'est ce que je dois écrire entre Try et Except.

[ShaiLeTroll]

Je ne connais pas Zeos, mais OnDeleteError c'est du standard TDataSet !

Soit tu écris

Code :

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

1
2
3
4
5
6
7
8
try
  ZQuery.Exec();
except
  on e: EZDatabaseError do
    ...
  on e: EDatabaseError do
    ...
end;

soit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  // TZQueryHelper sera une classe que TU devras créer !
  ZQuery.OnDeleteError := TZQueryHelper.TaProcedureDeGestionDErreur;
  ZQuery.Delete();
...
 
/*class*/ procedure TZQueryHelper.TaProcedureDeGestionDErreur(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
  ...
  Action := daAbort; ...
end;

[adelneo]

Soit tu écris

Code :

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

1
2
3
4
5
6
7
8
try
  ZQuery.Exec();
except
  on e: EZDatabaseError do
    ...
  on e: EDatabaseError do
    ...
end;

Donc j'ai écrit :

Code :

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

1
2
3
4
5
6
7
 
Try
ZQuery.ExecSQL;   //ZQuery.Exec(); n'existe pas.
Except
on E: EDatabaseError  do   //y a t'il possibilité de faire la différence entre différentes exception du SGBD  ?
Showmessage('Erreur SGBD :'+E.Message);
end;

Mais ça ne marche toujours pas, je n'obtiens que l'exception du SGBD.
par contre, en écrivant que

Code :

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

Showmessage('Erreur SGBD :'+E.Message);

dans l'événement OnDeleteError j'obtient mon message suivi par l'exception du SGBD. Et bien sur je ne veut pas que le message du SGBD apparait

[ShaiLeTroll]

Code :

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

1
2
except
  on E: EDatabaseError  do   //qu'elle est l'utilité se cette instruction ?

Cela permet de filtrer sur un type donné d'exception, ainsi seules ces exceptions seront capturées, les autres continueront leur chemin ...

lit bien ma réponse, tu as loupé

Code :

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

 Action := daAbort;

Voir TDataSet.OnDeleteError et de TDataAction

.