[D7] connaître un type d'exception et la gérer

Bonjour,
j'ai créé une base via les composants AbsoluteDataBase http://www.componentace.com/ .
Lorsque mon champ (obligatoire) est vide, j'ai une exception de type EDataBaseError avec message 'Field 'Nom' must have a value'

j'aimerais lever cette exception avec un petit message de type mtWarning... mais je ne sais pas comment déclarer cette exception.

dans mon code, j'ai déjà des exceptions lorsque les enregistrements ont été modifiés en parallèle (accès concurrents) et qui fonctionnent.

est-ce que ce type d'exception (EDatabaseError) peut-être insérer dans ces exceptions ? si non, est-ce que vous connaîtriez le moyen de gérer cette exception ?

Merci d'avance.

ci dessous la partie de mon code gérant les exceptions lors de la validation de l'enregistrement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm2.ABSTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin Action:=daAbort; if (E is EABSEngineError) then begin if (EABSEngineError(E).ErrorCode = ABS_ERR_CONSTRAINT_VIOLATED) then MessageDlg(EABSEngineError(E).ErrorMessage+ '. Veuillez changez l''enregistrement pour satisfaire la contrainte '+ 'and re-validez l''enregistrement',mtError,[mbOK],0) else if (EABSEngineError(E).ErrorCode = ABS_ERR_TABLE_LOCKED) then begin if MessageDlg('La table est verrouillée. '+ 'Voulez-vous re-essayer de valider l''enregistrement', mtWarning,[mbYes,mbNo],0)=mrYes then Action:=daRetry; end else MessageDlg(E.Message,mtError,[mbOK],0); end else MessageDlg(E.Message,mtError,[mbOK],0); end;

---

Euh :? En général c'est pas comme ça qu'on traite des esceptions :?

Pour intercepter une exception, il faut utiliser bloc try...except :

Code:

---

1 2 3 4 5 6

try // le code except on Error : EDatabaseError do // traiter l'erreur end;

---

merci, je vais essayer ça.

je sais que pour un code propre, Try...Except est préféré, mais j'ai repris la demo qui était fournie avec les composants (version d'évaluation ) :roll:
Cette demo gérait "automatiquement" les cas d'accès concurrents sans que l'on ait a faire des Commit / Rollback soi-même. je sais, c'est de la flême, mais si un outil le fait correctement, pourquoi chercher à faire la même chose?
Mais je m'éloigne du sujet.

Enfin bref, je teste tout ça, et je vous tiens au courant.

Pour simplifier, utilise la propriété "ConstraintErrorMessage" de "TField".

Citation:

---

Envoyé par AIDE DELPHI

Affectez à la propriété ConstraintErrorMessage le message qui doit apparaître quand la valeur attribuée au champ ne respecte pas les contraintes imposées par le serveur ou spécifiées dans la propriété CustomConstraint.

---