Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24183/Brokers/UIB
Modified Files:
InstantUIB.pas
Log Message:
dropped UsePreparedQuery feature, superseded by the statement cache
Index: InstantUIB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantUIB.pas 21 Feb 2005 10:22:33 -0000 1.6
--- InstantUIB.pas 22 Feb 2005 10:59:22 -0000 1.7
***************
*** 120,126 ****
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
--- 120,123 ----
***************
*** 421,425 ****
AssignDataSetParams(Query, AParams);
Result := Query;
-
except
Query.Free;
--- 418,421 ----
***************
*** 471,484 ****
end;
- function TInstantUIBBroker.ExecuteQuery(DataSet: TDataSet) : integer;
- begin
- //don't call inherited!
- with TJvUIBDataSet(DataSet) do
- begin
- Execute;
- Result := RowsAffected;
- end;
- end;
-
function TInstantUIBBroker.GetConnector: TInstantUIBConnector;
begin
--- 467,470 ----
***************
*** 519,532 ****
end;
- procedure TInstantUIBBroker.PrepareQuery(DataSet: TDataSet);
- begin
- inherited;
- end;
-
- procedure TInstantUIBBroker.UnprepareQuery(DataSet: TDataSet);
- begin
- inherited;
- end;
-
{ TInstantUIBTranslator }
--- 505,508 ----
|
