[IB6] Code SQL.

[qi130]

J'ai vainement cherché comment récupérer le code SQL suite à exécution d'une requète.

J'utilise des TIBxxxxx (database,transaction et query), et je n'ai trouvé aucune propriété ou méthode pour accéder à SQLCode.

La lecture attentive de la doc IB (API guide) m'a fait remarqué

Code :

isc_sqlcode

.

L'utilisation de cette fonction est faite dans l'unité IB.PAS (jusque là, tout va bien )

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure IBDataBaseError;
var
  sqlcode: Long;
  IBErrorCode: Long;
  local_buffer: array[0..IBHugeLocalBufferLength - 1] of char;
  usr_msg: string;
  status_vector: PISC_STATUS;
  IBDataBaseErrorMessages: TIBDataBaseErrorMessages;
begin
  usr_msg := '';
 
  { Get a LOCAL reference TO the STATUS vector.
    Get a LOCAL copy of the IBDataBaseErrorMessages options.
    Get the SQL error code }
  status_vector := StatusVector;
  IBErrorCode := StatusVectorArray[1];
  IBDataBaseErrorMessages := GetIBDataBaseErrorMessages;
  sqlcode := isc_sqlcode(status_vector);
  ...............

Singe voit, singe fait : je prends les quelques lignes qui m'intéressent dans cette proc pour me faire 1 fonction:

Code :

1
2
3
4
5
6
7
8
9
10
11
FUNCTION GetSQLCode:LongInt;
var
  sqlcode: Long;        // type défini comme LongInt dans IBheader
  IBErrorCode: Long;
  status_vector: PISC_STATUS;
 begin
    status_vector := StatusVector;
    IBErrorCode := StatusVectorArray[1];
    sqlcode := isc_sqlcode(status_vector);
    result:=sqlcode;
end;

que j'ai implantée dans un TcustomerData (MonUnit)

Mais, ça ne compile pas:
motif: types incompatibles MonUnit.integer et IB.integer
sur la ligne

status_vector := StatusVector;

et je ne vois pas pourquoi !

En désespoir de cause, j'ai mis ce même code dans IB.pas (là, c'est OK), mais je ne suis bien sûr pas satisfait de cette solution...

Qui peut m'éclairer sur mon erreur ?

Les sources IB* sont consultables ICI

[Barbibulle]

C'est plus un probleme Delphi, mais je pense que dans votre unité il y a également une redéfinition d'un type utilisé dans le ISCStatus.

Peut etre en metant le uses IBExternals en premier dans votre liste celà passera mieux.

Ou si celà ne marche pas j'essayerai :

Code :

1
2
3
4
5
6
7
8
9
uses
  {$IFDEF MSWINDOWS}
    Windows,
  {$ENDIF}
  {$IFDEF LINUX}
   Libc,
  {$ENDIF}
  SysUtils, Classes, IBHeader,
  IBExternals, IBUtils, DB, IBXConst, ....... vos uses