Update of /cvsroot/instantobjects/Source/Brokers/ADO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22905/Brokers/ADO
Modified Files:
InstantADO.pas
Log Message:
dropped UsePreparedQuery feature, superseded by the statement cache
Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** InstantADO.pas 21 Feb 2005 12:13:38 -0000 1.8
--- InstantADO.pas 22 Feb 2005 10:53:50 -0000 1.9
***************
*** 172,178 ****
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
--- 172,175 ----
***************
*** 1098,1106 ****
end;
- function TInstantADOMSSQLBroker.ExecuteQuery(DataSet: TDataSet): integer;
- begin
- Result := TADOQuery(DataSet).ExecSQL;
- end;
-
function TInstantADOMSSQLBroker.GetSQLQuote: Char;
begin
--- 1095,1098 ----
***************
*** 1113,1126 ****
end;
- procedure TInstantADOMSSQLBroker.PrepareQuery(DataSet: TDataSet);
- begin
- TADOQuery(DataSet).Prepared := True;
- end;
-
- procedure TInstantADOMSSQLBroker.UnprepareQuery(DataSet: TDataSet);
- begin
- TADOQuery(DataSet).Prepared := False;
- end;
-
{ TInstantADOMSSQLQuery }
--- 1105,1108 ----
|
