[Instantobjects-cvscommit] Source/Brokers/IBX InstantIBX.pas,1.7,1.8

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

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

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

Index: InstantIBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** InstantIBX.pas	10 Feb 2005 23:06:23 -0000	1.7
--- InstantIBX.pas	22 Feb 2005 10:56:08 -0000	1.8
***************
*** 25,36 ****
   *
   * Contributor(s):
!  * Carlo Barazzetta:
!  * - blob streaming in XML format (Part, Parts, References)
!  * - Prepared queries support
!  * - OnLogin event support
!  * Nando Dessena:
!  * - option to disable the use of delimited identifiers in dialect 3 databases
!  * - implemented InternalCreateDatabase and GetDatabaseExists
!  *   NOTE: requires at least version x.07 of IBX.
   * ***** END LICENSE BLOCK ***** *)
  
--- 25,30 ----
   *
   * Contributor(s):
!  * Carlo Barazzetta, Nando Dessena
!  *
   * ***** END LICENSE BLOCK ***** *)
  
***************
*** 127,133 ****
      function GetSQLQuote: Char; override;
      function InternalCreateQuery: TInstantQuery; override;
-     procedure PrepareQuery(DataSet : TDataSet); override;
-     procedure UnprepareQuery(DataSet : TDataSet); override;
-     function ExecuteQuery(DataSet : TDataSet) : integer; override;
      procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); override;
    public
--- 121,124 ----
***************
*** 466,479 ****
  end;
  
- function TInstantIBXBroker.ExecuteQuery(DataSet: TDataSet) : integer;
- begin
-   //don't call inherited!
-   with TIBQuery(DataSet) do
-   begin
-     ExecSQL;
-     Result := RowsAffected;
-   end;
- end;
- 
  function TInstantIBXBroker.GetConnector: TInstantIBXConnector;
  begin
--- 457,460 ----
***************
*** 514,529 ****
  end;
  
- procedure TInstantIBXBroker.PrepareQuery(DataSet: TDataSet);
- begin
-   inherited;
-   TIBQuery(DataSet).Prepare;
- end;
- 
- procedure TInstantIBXBroker.UnprepareQuery(DataSet: TDataSet);
- begin
-   inherited;
-   TIBQuery(DataSet).Unprepare;
- end;
- 
  { TInstantIBXTranslator }
  
--- 495,498 ----