Discussion :

[richard038]

bonjour,

Est-il possible de récupérer précisément une exception ?

Je prends l'exemple d'une exception EdatabaseError, j'aimerais avoir une identification précise de l'erreur pour pouvoir la traiter différement (faire telle action si erreur d'enregistrement, ou telle autre action si l'élément inserer existe déjà).

actuellement avec le TRY, je récupère un message, mais si j'avais un identifiant unique je serais sur du traitement.

Merci

[TicTacToe]

Code :

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

1
2
3
4
5
6
7
8
try
...
except
  on E: EDataBaseError do
    begin
    ... TON TRAITEMENT EN ERREUR
    end;
end;

[richard038]

Merci, mais il existe plusieurs types d'erreur EdataBaseError (erreur dans l'enregistrement, pb sur une transaction, pb de connexion...)

En fait j'aimerais avoir précisement l'erreur (le traitement d'une erreur de connexion n'est pas la même qu'une erreur liée à une transaction en cours)

[richard038]

Ce que j'ais déjà dans mon code

try
...
except
on E: EDatabaseError do showmessage(... + E.message);
end;

[TicTacToe]

Effectivement tu n'as que le message comme propriété, et je comprends que tu recherches une ID d'error pour tes traitements.

Par contre j'ai trouvé, EUpdateError, qui est un descendant de EDataBaseError, qui contient des ID d'erreurs, peut-être que si tu recherches par là tu trouveras ton bonheur...

[richard038]

En fait celà ne me donne pas de code (toujours 0).

Ce que j'ais fait
On E: EdatabaseError do
begin
If EUpdateError(E).ErrorCode = ... then
....
end

[Lung]

Code :

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

1
2
3
4
5
6
7
8
try
 
except
   on E: Exception do
   begin
      Application.MessageBox(PChar('.Erreur :  xxx a échoué !' + #13#10 + E.Message), 'Titre', MB_ICONERROR + MB_OK);
   end;
end;

[Guile]

Si tu utilises les composants Interbase, j'ai déjà traité différentes erreurs de BDD de cette manière en ajoutant dans ma clause use IBErrorCodes :

e étant un EDataBaseError

Code :

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

if (EIBClientError(e).IBErrorCode = isc_foreign_key)

Tu peux explorer IBErrorCodes pour la liste des erreurs existantes.

[TicTacToe]

Je n'utilise pas Interbase.

Mais dans ton code, je vois que tu cast EDataBaseError en EUpdateError,
Donc ca me parait logique que les prop. spécifique de EUpdateError soit non remplies car l'erreur créée est de type EDataBaseError

As tu essayé

Code :

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

on E : EUpdateError do CodeErreur := E.ErrorCode

? (j'ai rien essayé de tout ca)

Sinon, je sais pas.... A part tester les chaines de car. d'erreurs. mais bon...

[richard038]

oui, j'ais fait l'essai, mais l'erreur n'est pas prise en compte. Il ne répond qu'à une exception EDATABASEERROR.