ADOQuery1.Open ExecSQL 内部区别

function TADOQuery.ExecSQL: Integer;
begin
  InitializeMasterFields(Self);
  Command.Execute(FRowsAffected, EmptyParam);
  Result := FRowsAffected;
end;

ADOQuery1.Open
ADOQuery1.ExecSQL;

d:\program files\borland\delphi7\source\vcl\adodb.pas

 

function TADOQuery.ExecSQL: Integer;
begin
  InitializeMasterFields(Self);
  Command.Execute(FRowsAffected, EmptyParam);
  Result := FRowsAffected;
end;

 

procedure TCustomADODataSet.OpenCursor(InfoQuery: Boolean);

 var
  VarRecsAffected: OleVariant;
begin
  if not Assigned(Recordset) then
  begin
    InitializeConnection;
    InitializeRecordset;
    Recordset.Open(Source, ActiveConnection,
      CursorTypeValues[FCursorType], LockTypeValues[FLockType],
      Integer(CommandTypeValues[CommandType]) + ExecuteOptionsToOrd(ExecuteOptions));
    while Recordset.State = adStateClosed do
    try
      FRecordsetObject := Recordset.NextRecordset(VarRecsAffected);
      if Recordset = nil then Abort;
    except
      DatabaseError(SNoResultSet, Self);
    end;
  end else
    EnableEvents;
  if (eoAsyncExecute in ExecuteOptions) and ((Recordset.State and adStateExecuting) <> 0) then
    SetState(dsOpening);
  inherited OpenCursor(False);
end;

function TCustomADODataSet.NextRecordset(
  var RecordsAffected: Integer): _Recordset;
var
  VarRecsAffected: OleVariant;
begin
  CheckBrowseMode;
  Result := RecordSet.NextRecordSet(VarRecsAffected);
  RecordsAffected := VarRecsAffected;
end;