paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Store/cache the fieldnumber in FieldBinding

Browse Source 
git-svn-id: trunk@5813 -
This commit is contained in:
joost 2007-01-05 00:52:25 +00:00
parent abafbc147a
commit a65d49d19e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/db/sqldb/interbase/ibconnection.pp
View File

@ -21,6 +21,8 @@ type
GDSErrorCode : Longint;
end;
{ TIBCursor }
TIBCursor = Class(TSQLCursor)
protected
Status : array [0..19] of ISC_STATUS;
@ -28,6 +30,7 @@ type
SQLDA : PXSQLDA;
in_SQLDA : PXSQLDA;
ParamBinding : array of integer;
FieldBinding : array of integer;
end;
TIBTrans = Class(TSQLHandle)
@ -620,6 +623,7 @@ begin
{$R-}
with cursor as TIBCursor do
begin
setlength(FieldBinding,SQLDA^.SQLD);
for x := 0 to SQLDA^.SQLD - 1 do
begin
TranslateFldType(SQLDA^.SQLVar[x].SQLType, SQLDA^.SQLVar[x].SQLLen, SQLDA^.SQLVar[x].SQLScale,
@ -628,6 +632,7 @@ begin
TransLen, False, (x + 1));
if TransType = ftBCD then FD.precision := SQLDA^.SQLVar[x].SQLLen;
FD.DisplayName := SQLDA^.SQLVar[x].AliasName;
FieldBinding[FD.FieldNo-1] := x;
end;
end;
{$R+}
@ -759,8 +764,7 @@ begin
with cursor as TIBCursor do
begin
{$R-}
for x := 0 to SQLDA^.SQLD - 1 do
if SQLDA^.SQLVar[x].AliasName = FieldDef.Name then break;
x := FieldBinding[FieldDef.FieldNo-1];
if SQLDA^.SQLVar[x].AliasName <> FieldDef.Name then
DatabaseErrorFmt(SFieldNotFound,[FieldDef.Name],self);
@ -1103,6 +1107,4 @@ begin
CheckError('TIBConnection.CreateBlobStream isc_get_segment', FStatus);
end;
end.