instantobjects-cvscommit

[Steven M. <sr...@us...>]

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

Modified Files:
	InstantNexusDb.pas 
Log Message:
Dataset pooling update.

Index: InstantNexusDb.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/InstantNexusDb.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantNexusDb.pas	24 Apr 2005 07:21:09 -0000	1.1
--- InstantNexusDb.pas	18 Jun 2005 05:59:27 -0000	1.2
***************
*** 746,756 ****
  function TInstantNexusDbSQLBroker.Execute(
    const aStatement: string; aParams: TParams = nil): Integer;
  begin
!   with CreateDataSet(aStatement, aParams) as TNexusDbQuery do
    try
!     ExecSQL;
!     Result := RowsAffected;
    finally
!     Free;
    end;
  end;
--- 746,758 ----
  function TInstantNexusDbSQLBroker.Execute(
    const aStatement: string; aParams: TParams = nil): Integer;
+ var
+   DataSet: TNexusDbQuery;
  begin
!   DataSet := AcquireDataSet(aStatement, aParams) as TNexusDbQuery;
    try
!     DataSet.ExecSQL;
!     Result := DataSet.RowsAffected;
    finally
!     ReleaseDataSet(DataSet);
    end;
  end;