Subject | TIB_Query Problem |
---|---|
Author | Peter Chaisty |
Post date | 2004-08-30T16:40:54Z |
Hi
I am having some very strange problems with a TIB_Query.
I have some very simple sql in the query
SELECT ID
, TITLE
, DATABASE_VERSION
, SW_VERS
FROM VERSION_INFO
If I use the inbuilt data fetch in the IB_Query component I can see
the results without any problems, sw_vers is there.
When I access it from code I cannot access the sw_vers field at all.
IB_DB_Version.Open;
IB_DB_Version.Refresh;
IB_DB_Version.Last;
Version := IB_DB_Version.FieldByname('ID').asInteger;
Prog_Version := IB_DB_Version.FieldByname('SW_VERS').asString;
Writelog('Database Version - ' + IntToStr(Version),0);
If I hookup an sql monitor component I get
17:25:02 /*---
PREPARE STATEMENT
TR_HANDLE = 23279720
STMT_HANDLE = 23279912
SELECT TITLE
, DATABASE_VERSION
, ID
FROM VERSION_INFO
PLAN (VERSION_INFO NATURAL)
FIELDS = [ Version 1 SQLd 3 SQLn 30
SYSDBA.VERSION_INFO.TITLE = <NIL>
SYSDBA.VERSION_INFO.DATABASE_VERSION = <NIL>
SYSDBA.VERSION_INFO.ID = <NIL> ]
which implies that the sw_vers fetch is not in the final sql that goes
to Firebird.
If however I create a new project and try the above code it works fine.
I have tried deleting the TIB_Query and then put a new one back on the
form that gives problems and each time it has the same problem.
Any ideas anybody ?
Rgds
Peter
I am having some very strange problems with a TIB_Query.
I have some very simple sql in the query
SELECT ID
, TITLE
, DATABASE_VERSION
, SW_VERS
FROM VERSION_INFO
If I use the inbuilt data fetch in the IB_Query component I can see
the results without any problems, sw_vers is there.
When I access it from code I cannot access the sw_vers field at all.
IB_DB_Version.Open;
IB_DB_Version.Refresh;
IB_DB_Version.Last;
Version := IB_DB_Version.FieldByname('ID').asInteger;
Prog_Version := IB_DB_Version.FieldByname('SW_VERS').asString;
Writelog('Database Version - ' + IntToStr(Version),0);
If I hookup an sql monitor component I get
17:25:02 /*---
PREPARE STATEMENT
TR_HANDLE = 23279720
STMT_HANDLE = 23279912
SELECT TITLE
, DATABASE_VERSION
, ID
FROM VERSION_INFO
PLAN (VERSION_INFO NATURAL)
FIELDS = [ Version 1 SQLd 3 SQLn 30
SYSDBA.VERSION_INFO.TITLE = <NIL>
SYSDBA.VERSION_INFO.DATABASE_VERSION = <NIL>
SYSDBA.VERSION_INFO.ID = <NIL> ]
which implies that the sw_vers fetch is not in the final sql that goes
to Firebird.
If however I create a new project and try the above code it works fine.
I have tried deleting the TIB_Query and then put a new one back on the
form that gives problems and each time it has the same problem.
Any ideas anybody ?
Rgds
Peter