instantobjects-cvscommit

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/IBX
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8260/Brokers/IBX

Modified Files:
	InstantIBX.pas 
Log Message:
changes related to the statement cache

Index: InstantIBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantIBX.pas	16 Sep 2004 11:36:06 -0000	1.5
--- InstantIBX.pas	3 Feb 2005 16:54:53 -0000	1.6
***************
*** 450,460 ****
  function TInstantIBXBroker.Execute(const AStatement: string;
    AParams: TParams): Integer;
  begin
!   with CreateDataSet(AStatement, AParams) as TIBQuery do
    try
!     ExecSQL;
!     Result := RowsAffected;
    finally
!     Free;
    end;
  end;
--- 450,462 ----
  function TInstantIBXBroker.Execute(const AStatement: string;
    AParams: TParams): Integer;
+ var
+   DataSet: TIBQuery;
  begin
!   DataSet := AcquireDataSet(AStatement, AParams) as TIBQuery;
    try
!     DataSet.ExecSQL;
!     Result := DataSet.RowsAffected;
    finally
!     ReleaseDataSet(DataSet);
    end;
  end;