Discussion :

[SOPSOU]

salut la famille

j'ai crée une procedure pour gérer à ma manièrre les erreurs lors d'un nouveau enregistrement. Par exemple les erreurs de clé, de champs manquants...
je désire envoyer un message sympat à l'utilisateur et non des message du genre

Le projet ....exe a provoqué une classe d'exceptioon EIBInterbaseError avec le message 'violation of Primary KEy constraint "INTEG_4" on table zzz".Processus stoppé...

. des messages comme vous avez dejà attribuer ce numero matricule à un utilisateur, désirez vous le modifier?
vous voyez non!!!
voici la procedure que j'ai dans l'evènement OnPostError de ma table:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Maform.TablePostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
   if  (E is EDatabaseError) then
   with EIBError (E) do
   case IBErrorCode of
       805: MessageDlg('Ce code ou numéro existe déja', mtInformation, [mbOk],0);
       341: MessageDlg('Une ou plusieurs zones obligatoires  sont sans valeurs', mtInformation, [mbOk],0);
       // Etc,.....
       else MessageDlg(IntToStr(IBErrorCode)+ ' ' + Message, mtInformation, [mbOk],0);
  end;
end;

Le problème c'est que malgré tout, je reçois le mesage d'exception de ma base. Comment procéder donc.

[Cl@udius]

Salut

En mode débogage, oui c'est normal. As-tu fais le test en lançant directement ton exe ?

@+ Claudius

[popo]

En mode débogage, oui c'est normal. As-tu fais le test en lançant directement ton exe ?

+1

Si tu as toujours le problème ensuite, je te suggère de faire ces tests avant l'insertion en base de données

805: MessageDlg('Ce code ou numéro existe déja', mtInformation, [mbOk

=>Une simple requete te permet de savoir si le numéro existe déjà.

MessageDlg('Une ou plusieurs zones obligatoires sont sans valeur

=>If (mazone.text = '') then ....