Update of /cvsroot/instantobjects/Source/Brokers/NexusDbSQL
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11316
Modified Files:
InstantNexusDbSQL.pas
Log Message:
Removed 'Prepare' code because of changes to IO core.
Index: InstantNexusDbSQL.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/InstantNexusDbSQL.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantNexusDbSQL.pas 18 Feb 2005 08:19:17 -0000 1.3
--- InstantNexusDbSQL.pas 1 Mar 2005 06:39:05 -0000 1.4
***************
*** 135,141 ****
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
--- 135,138 ----
***************
*** 558,574 ****
end;
- function TInstantNexusDbSQLBroker.ExecuteQuery(DataSet: TDataSet) : integer;
- begin
- //don't call inherited!
-
- //CodeSite.EnterMethod('TInstantNexusDbSQLBroker.ExecuteQuery');
- with TNexusDbQuery(DataSet) do
- begin
- ExecSQL;
- Result := RowsAffected;
- end;
- //CodeSite.ExitMethod('TInstantNexusDbSQLBroker.ExecuteQuery');
- end;
-
function TInstantNexusDbSQLBroker.GetConnector: TInstantNexusDbSQLConnector;
begin
--- 555,558 ----
***************
*** 598,613 ****
end;
- procedure TInstantNexusDbSQLBroker.PrepareQuery(DataSet: TDataSet);
- begin
- inherited;
- TNexusDbQuery(DataSet).Prepare;
- end;
-
- procedure TInstantNexusDbSQLBroker.UnprepareQuery(DataSet: TDataSet);
- begin
- inherited;
- TNexusDbQuery(DataSet).Unprepare;
- end;
-
{ TInstantNexusDbSQLQuery }
--- 582,585 ----
|
