[UIB/Firebird] Capturer le SQL Error code

Version imprimable

06/09/2017, 19h56
freud

[UIB/Firebird] Capturer le SQL Error code
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:

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;

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:

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;

07/09/2017, 10h49
freud

Je vais fouiner dans les source merci SergioMaster

Une séquence qui permet ça:

Code:

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;

10/09/2017, 23h10
freud

Bonsoir et merci qi130