Discussion :

[seabs]

Bonjour,

Je réalise une application en utilisant Firebird version 2.1 et Zeoslib version 6.6.6. Tout ceci avec delphi 7

Lorsqu'une erreur se produit dans la base, elle retourne un code d'erreur que je n'arrive pas récupérer. Je n'ai pas trouvé l'unité de Zeoslib à inclure dans les uses pour obtenir les codes d'erreurs de Firebird.

Par contre, je récupère bien le message. Cependant, je voudrais faire un traitement particulier pour certaines erreurs. Exemple -530 erreur liée au Foreign Key.

Actuellement, j'utilise ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    dm.ZConnect.StartTransaction;
    try
      ExecSQL;
      dm.ZConnect.Commit;
    except
      on E: Exception do
      begin
        lTest := False;
        MsgDlg(E.Message, mtError, ['mbOk'], ed3.ClientOrigin.Y + ed3.Height, pnl1);
        if dm.ZConnect.InTransaction then
          dm.ZConnect.Rollback;
      end;
    end;

MsgDlg est une boîte qui personnalise l'affichage des messages.

Je dois certainement remplacer "on E: Exception do" par une autre instruction, mais quoi ?

Si quelqu'un peut me donner la réponse pour récupérer le code d'erreur, "E.CodeError", il me rendrait service.

Merci à tous de vos réponses, lesquelles me permettront de résoudre cette petite difficulté. Le code d'erreur apparaissant dans "E.Message", je peux faire un bidouillage, mais cela ne correspond à ma façon de faire. De plus, je suis sûr qu'il y a une solution propre, mais l'aide de Zeoslib est un peu short ou alors c'est mes propres compétences qui sont trop faibles.

Merci à tous

[qi130]

As-tu essayé ZAbstractRODataset ?
Cf. http://test.bravecobra.com/zeoslib/f...as-source.html
Merci mais j'ai pas creusé !

[TryExceptEnd]

Comme indiqué plus haut, c'est dans l'unité "ZAbstractRODataset" que se trouve la gestion des exceptions de base de données.
donc tu fait un truc dans ce genre :

Code :

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

1
2
3
4
5
6
7
8
try
excecution_requete
except
 on E:EZDatabaseError do
 begin
  if (E as EZDatabaseError).ErrorCode = [code erreur] then faire_quelque_chose;
 end;
end

[seabs]

Bonjour,

Je vous remercie pour vos réponses. J'avais déjà essayé avec ZAbstractRODataset, mais sans résultat.

J'ai repris le code de TryExceptEnd, mais là également l'exception n'est pas déclenché.

Le problème provient d'un autre point, je vais faire des recherches pour déterminer la cause de ce dysfonctionnement.

Si quelqu'un a une idée merci d'avance.

Je vous remercie tous les deux pour vos réponses car elles confirment l'unité à employer. Il me reste à trouver pourquoi l'exception n'est pas prise en compte.

[seabs]

Bonjour,

Après des recherches mieux orientées à partir des informations obtenues, j'ai trouvé.

En fait, il s'agit d'une erreur SQL et non de la base de données. Il faut donc utiliser la classe d'exception "EZSQLException" qui se trouve dans l'unité ZDbcintfs.

Le code devient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    try
      ExecSQL;
      dm.ZConnect.Commit;
    except
      on E: EZSQLException do
      begin
        lTest := False;
        MsgDlg(InttoStr((E as EZSQLException).ErrorCode){E.Message}, mtError, ['mbOk'], ed3.ClientOrigin.Y + ed3.Height, pnl1);
        if dm.ZConnect.InTransaction then
          dm.ZConnect.Rollback;
      end;
    end;

Là, je récupère bien mon code d'erreur -530.

Je vais maintenant modifier mon exception pour faire une présentation conforme à mes souhaits.

Merci de vos remarques, lesquelles m'ont permis de résoudre cette difficulté.