Discussion :

[freud]

Bonjour,


Mise à part le E.Message que l'on met dans l'exception, comment SVP, récuperer le sql code erreur (en numerique) firebird avec UIB à l'ouverture d'une query ? Je ne souhaiterais recuperer que le code et pas le message. Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Try 
 Qry.Open;
 
 except
   on E: Exception do
   begin
     MessageBeep(MB_ICONEXCLAMATION);
     MessageDlg(E.Message,mtError,[mbOk],0);
   end;
 end;
end;

[SergioMaster]

Bonjour,

le code erreur Firebird/Interbase je ne me souviens plus si c'est le même que le code UIB cela fait longtemps que je n'utilise UIB que sporadiquement.
Je suggère un code du style :

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
Try 
 Qry.Open;
 
 except
   on E: Exception do
   begin
     MessageBeep(MB_ICONEXCLAMATION);
     Case EUIBException(E) of  // je ne suis pas sur du transtypage voir aussi EUIBError plus généraliste ?
          // voir dans UIBError.pas et UIBase.pas la liste des erreurs 
        else MessageDlg(E.Message,mtError,[mbOk],0);
     end;      
 
 
   end;
 end;

[freud]

Je vais fouiner dans les source merci SergioMaster

[qi130]

Une séquence qui permet ça:

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
16
17
 
FBMQr.SQL.Text:='DELETE FROM '+NomTable;
        if not FBMTR.InTransaction then FBMTR.StartTransaction;
        try
          FBMQr.Execute;
          FBMTR.Commit;
          SignalInfo('Table vidée');
        except
          on E:EUIBerror do
            case E.ErrorCode of
               146: Application.MessageBox(PChar('Violation d''une contrainte de FK'),
                'Exécution impossible',MB_OK + MB_ICONSTOP);
             else Application.MessageBox(PChar(E.Message),
                'Exécution impossible',MB_OK + MB_ICONSTOP);
            end;
 
        end;

[freud]

Bonsoir et merci qi130