[Instantobjects-cvscommit] Source/Brokers/ADO InstantADO.pas,1.8,1.9

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

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