Getting Firebird database error codes

[talorigomat]

I'm using the SQLdb component (TIBConnection) to access a firebird database.  Is there a way of getting the error code which Firebird generates error?  I already know how to get the error message with

Code: [Select]

try
  [i]code which my produce error[/i]
  .......

except
  on E: EDatabaseError do
    ShowMessage(E.Message);
end;



[LacaK]

try
  code which my produce error
  .......

except
  on E: EIBDatabaseError do
    ShowMessageFmt('ErrorCode: %d; Messsge: %s', [E.GDSErrorCode, E.Message]);
end;

or better:

try
  code which my produce error
  .......

except
  on E: ESQLDatabaseError do
    ShowMessageFmt('ErrorCode: %d; Messsge: %s', [E.ErrorCode, E.Message]);
end;

[talorigomat]

Hi LacaK

 Thanks for helping with this.  With both examples you gave I received the following error when compiling:

Error: identifier idents no member "GDSErrorCode"

[LacaK]

Interesting? For me it compiles successfully. May be, that you use some older version of FPC than me ? (I use TRUNK)

[talorigomat]

I'm using Lazarus 1.4 RC1 which was released recently.

[LacaK]

 EIBDatabaseError must have GDSErrorCode member ... check again your program
(do not mix ESQLDatabaseError with EIBDatabaseError)

[talorigomat]

Thanks LacaK.  Silly me.  I had not changed the "on E: EDatabaseError do"  part of the my code.

Many thanks for the help.

Just to add I got it to work using :

Code: [Select]

except
  on E: EIBDatabaseError do
but not with:

except
  on E: ESQLDatabaseError do
    ShowMessageFmt('ErrorCode: %d; Messsge: %s', [E.ErrorCode, E.Message]);

with the latter I get:
unit1.pas(89,15) Error: Identifier not found "ESQLDatabaseError"
unit1.pas(89,33) Error: class type expected, but got "<erroneous type>"

[LacaK]

but not with:

except
  on E: ESQLDatabaseError do
    ShowMessageFmt('ErrorCode: %d; Messsge: %s', [E.ErrorCode, E.Message]);

with the latter I get:
unit1.pas(89,15) Error: Identifier not found "ESQLDatabaseError"
unit1.pas(89,33) Error: class type expected, but got "<erroneous type>"

May be, that ESQLDatabaseError was not backported to FPC 2.6.4
But with next release of FPC 3.0.0 it will work