Discussion :

[tijani]

Bonjour,
J'ai fait une exception lors l'exécution de ma requête.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
IBSQL1.Close;
     IBSQL1.SQL.Clear;
     IBSQL1.SQL.Add('DELETE FROM BS_UTILISATEUR WHERE ID_UTILISATEUR='+IntToStr(ID));
 
      try
 
      BSDataModuleSuite.IBSQL1.ExecQuery;
 
      except   on E: EIBInterbaseError do
 
      begin
           fonction := IntToStr(E.IBErrorCode);
      end;     
      end;

mais ça m'affiche une erreur lors de la compilation "Identificateur non déclaré EIBInterbaseError "
Quelqu'un peut m'aider?

[peter27x]

Il doit te manquer l'unité contenant la définition de cette exception non ?

[Cl@udius]

Salut

Code :

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

Uses IB;

[peter27x]

Et sinon, tu peux faire simplement :

Code :

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

1
2
3
4
5
  except
    on E : Exception do 
    begin
      ShowMessage('Erreur de base de données suivante:' + #13#10 + E.Message);
    end;

[tijani]

Merci tous les deux.

[Cl@udius]

Et sinon, tu peux faire simplement :

Bien sûr cela fonctionne, mais tijani souhaites récupérer le code d'erreur d'Interbase pour certainement personnaliser les messages aux utilisateurs.

A ce sujet ajoute IBErrorCodes aux uses et travaille avec les constantes définies.

[peter27x]

Bien sûr cela fonctionne, mais tijani souhaites récupérer le code d'erreur d'Interbase pour certainement personnaliser les messages aux utilisateurs.

A ce sujet ajoute IBErrorCodes aux uses et travaille avec les constantes définies.

Yes sir.