Discussion :

[badilou]

Quelqu'un aurait-il un exemple d'un try except ou on intercepte des erreurs delphi concernant EIBInterbaseError de façon spécifique??

Par exemple, comment intercepter une violation de clé? un champ not null vide? une erreur de type?

PS : J'ai fait des recherches sur le internet mais je n'ai trouvé que la façon général d'intercepter ces erreurs.

[ShaiLeTroll]

Code :

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

1
2
3
4
5
6
7
8
9
10
try
  ....
except
  on E: EIBInterbaseError do
  begin
     case E.IBErrorCode of
       ... Valeur à trouver par tatonnement en déclenchant les exceptions que l'on connait (c'est parfois moins long que chercher une doc introuvable)
     end;	
  end;
end;

[badilou]

c'est ça que j'appelle façon généralisée! comme ça j'affiche le même message pour toutes les erreur EIBInterbaseError!! Ce que je voudrait c'est afficher pour chaque type d'erreur un message spécifique!

[bs.box]

D'aprés,

Code :

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

1
2
3
4
5
6
7
8
9
10
try
  ....
except
  on E: EIBInterbaseError do
  begin
     case E.IBErrorCode of
       ... Valeur à trouver par tatonnement en déclenchant les exceptions que l'on connait (c'est parfois moins long que chercher une doc introuvable)
     end;	
  end;
end;

Et que :

c'est ça que j'appelle façon généralisée! comme ça j'affiche le même message pour toutes les erreur EIBInterbaseError!! Ce que je voudrait c'est afficher pour chaque type d'erreur un message spécifique!

Donc, il ne te rest que de contiuner le code proposé par ShaiLeTroll

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 try 
   ... 
  except 
     on  EZeroDivide  do  ShowMessage('erreur1');
     on  EOverflow  do  ShowMessage('erreur2');
     on  EMathError  do  ShowMessage('erreur3');
  else 
    ShowMessage('Autres..');
  end ;

[badilou]

justement, l'utilisation de ces codes, c'est ce que je cherche.. par exemple pour la violation de clé? violation d'une contraine de champ unique? d'un champ not null...

[ShaiLeTroll]

Il faut tester IBErrorCode, lit bien mon code !
une fois l'exception EIBInterbaseError catché, il faut remplir un case

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
try
  ....
except
  on E: EIBInterbaseError do
  begin
     case E.IBErrorCode of
       1: //violation de clé;
       2: //violation d'une contraine de champ unique;
       3: //champ not null... 
     end;	
  end;
end;

à toi de trouver les valeurs, 1, 2 et 3 ce qui ne devrait pas être difficile en les provoquant volontairement et en affichant la valeur

Code :

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

1
2
3
4
5
6
7
8
try
  // Code qui fera Exception je le sais !
except
  on E: EIBInterbaseError do
  begin
     ShowMessage(Format('IBErrorCode : %d, SQLCode : %d', [E.IBErrorCode, E.SQLCode]));
  end;
end;

Après ce que tu en fais, là, ... personnellement, je n'ai jamais d'erreur de ce style, je suis en MySQL 4 au bureau, et à par l'AutoInc, et bien on fait toute la partie relation à la main soit comme des porcs (95% des applis) soit via une couche objet bien tarée de ma conception (5% des applis), et puis l'on Insert uniquement via SQL donc on a une erreur SQL pure qui débarque, et ce n'est en général que la syntaxe qui est ratée durant la phase de débug

[badilou]

oups!! ou avais-je la tête!! c'est vrai que c'est ce que t'avais dit! sorry!! et merci beaucoup!!