[Instantobjects-cvscommit] Source/Brokers/DBX InstantDBX.pas,1.3,1.4

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

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

Modified Files:
	InstantDBX.pas 
Log Message:
dropped UsePreparedQuery feature, superseded by the statement cache

Index: InstantDBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/InstantDBX.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantDBX.pas	16 Sep 2004 11:32:56 -0000	1.3
--- InstantDBX.pas	22 Feb 2005 10:54:23 -0000	1.4
***************
*** 103,110 ****
      function GetDatabaseName: string; override;
      function InternalCreateQuery: TInstantQuery; override;
!     procedure PrepareQuery(DataSet : TDataSet); override; //CB
!     procedure UnprepareQuery(DataSet : TDataSet); override; //CB
!     function ExecuteQuery(DataSet : TDataSet) : integer; override; //CB
!     procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); override; //CB
    public
      function CreateDataSet(const AStatement: string; AParams: TParams = nil): TDataSet; override;
--- 103,107 ----
      function GetDatabaseName: string; override;
      function InternalCreateQuery: TInstantQuery; override;
!     procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); override;
    public
      function CreateDataSet(const AStatement: string; AParams: TParams = nil): TDataSet; override;
***************
*** 414,428 ****
  begin
    with CreateDataSet(AStatement, AParams) as TSQLQuery do
!   try
!     Result := ExecSQL;
!   finally
!     Free;
!   end;
! end;
! 
! function TInstantDBXBroker.ExecuteQuery(DataSet: TDataSet): integer;
! begin
!   //don't call inherited!
!   Result := TSQLQuery(DataSet).ExecSQL;
  end;
  
--- 411,419 ----
  begin
    with CreateDataSet(AStatement, AParams) as TSQLQuery do
!     try
!       Result := ExecSQL;
!     finally
!       Free;
!     end;
  end;
  
***************
*** 442,457 ****
  end;
  
- procedure TInstantDBXBroker.PrepareQuery(DataSet: TDataSet);
- begin
-   inherited;
-   TSQLQuery(DataSet).Prepared := True;
- end;
- 
- procedure TInstantDBXBroker.UnprepareQuery(DataSet: TDataSet);
- begin
-   inherited;
-   TSQLQuery(DataSet).Prepared := False;
- end;
- 
  { TInstantDBXResolver }
  
--- 433,436 ----