Discussion :

[Just-Soft]

bonjour

y'a t-il une explication logique à ce que Except n'est jamais appelé suite à un post même s'il n'est pas exécuté correctement ?

Dans une forme et pour ne pas tester sur chaque champ j'ai réalisé ce bout de code qui me retourne un message si l'utilisateur ne renseigne pas les enregistrement "requiered" mais ma surprise fut grande quand j'ai réalisé que Except n'est jamais exécuté malgré que j'ai omis de renseigner les champs en question par contre le message système est bien là ?!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with dm_Medic.IBCTable_patient do
  begin
    try
      Post;
    except
      on E: EIBCError do
      begin
        ShowMessage(E.Message);
        dxLayoutControl_Fiche_Patient.Enabled := True;
      end;
    end;
    Refresh;
  end;

Merci d'avance pour toute explication.

[Papy214]

Le sujet sur les exception en lien avec les SGBD ont souvent été abordés ici sans jamais trouvé une solution définitive.
Il est déjà possible de rajouter un traitement pour une exception générale pour voir si ça fait une différence.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    except
      on E: EIBCError do
      begin
        ShowMessage(E.Message);
        dxLayoutControl_Fiche_Patient.Enabled := True;
      end;
 
      on E: Exception do
         ShowMessage(E.Message);
    end;

[SergioMaster]

Bonjour,

pour revenir à la question d'origine, c'est parce que l'erreur levée n'est pas dans la tranche des EIBCError et donc comme les autres exceptions sont ignorées .... cela aurait peut être mieux fonctionné avec E:EDatabaseError plus générique. Je pense que EIBCError ne concerne que les erreurs bases de données côté serveur (genre arrêt de la base, déconnexion etc....) à vérifier dans la doc.
Comme le suggère Papy214 au cas où l'exception levée ne fait pas partie des erreurs traitées il faut prévoir le coup