Discussion :

[_alex_]

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 :

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
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;

[sjrd]

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 :

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

1
2
3
4
5
6
try
  // le code
except
  on Error : EDatabaseError do
    // traiter l'erreur
end;

[_alex_]

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 )
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.

[Bejaia-In]

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

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.