From: Nando D. <na...@us...> - 2005-02-22 10:59:50
|
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 ---- |