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 ----
|
