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

* Use the transaction of the query when assigning blob-parameters, not the connections transaction

Browse Source 
git-svn-id: trunk@12679 -
This commit is contained in:
joost 2009-02-03 21:47:32 +00:00
parent 2730c5f705
commit 1d66bf0764
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -65,7 +65,7 @@ type
procedure SetFloat(CurrBuff: pointer; Dbl: Double; Size: integer);
procedure CheckError(ProcName : string; Status : PISC_STATUS);
function getMaxBlobSize(blobHandle : TIsc_Blob_Handle) : longInt;
procedure SetParameters(cursor : TSQLCursor;AParams : TParams);
procedure SetParameters(cursor : TSQLCursor; aTransation : TSQLTransaction; AParams : TParams);
procedure FreeSQLDABuffer(var aSQLDA : PXSQLDA);
function IsDialectStored: boolean;
protected
@ -655,7 +655,7 @@ procedure TIBConnection.Execute(cursor: TSQLCursor;atransaction:tSQLtransaction;
var tr : pointer;
begin
tr := aTransaction.Handle;
if Assigned(APArams) and (AParams.count > 0) then SetParameters(cursor, AParams);
if Assigned(APArams) and (AParams.count > 0) then SetParameters(cursor, atransaction, AParams);
with cursor as TIBCursor do
if isc_dsql_execute2(@Status[0], @tr, @Statement, 1, in_SQLDA, nil) <> 0 then
CheckError('Execute', Status);
@ -713,7 +713,7 @@ begin
Result := (retcode <> 100);
end;
procedure TIBConnection.SetParameters(cursor : TSQLCursor;AParams : TParams);
procedure TIBConnection.SetParameters(cursor : TSQLCursor; aTransation : TSQLTransaction; AParams : TParams);
var ParNr,SQLVarNr : integer;
s : string;
@ -735,7 +735,7 @@ var ParNr,SQLVarNr : integer;
{$R-}
with cursor as TIBCursor do
begin
TransactionHandle := transaction.Handle;
TransactionHandle := aTransation.Handle;
blobhandle := nil;
if isc_create_blob(@FStatus[0], @FSQLDatabaseHandle, @TransactionHandle, @blobHandle, @blobId) <> 0 then
CheckError('TIBConnection.CreateBlobStream', FStatus);