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