如何获取已删除记录的数量？

Question

我试过了：

function TMyClass.removeRecords(...) : integer;
var
  aC : TADOCommand;
  aRS : _RecordSet;
begin
  aC := createADOCommand;
  try
    aC.Connection := fConnection;
    aC.commandText := getDeleteModelSQLCommand( ... );
    aRS := aC.Execute;
    {$ifdef debug_AlwaysOne}
      result := 1;
    {$else}
      result := aRS.RecordCount;
    {$endif}
  finally
    releaseADOCommand( aC );
  end;
end;

它在 debug_AlwaysOne 条件定义的情况下正常运行。

但是，在读取RecordCount 的行中，它会引发错误：

对象关闭时不允许操作

有什么方法可以获取删除记录的数量吗？我知道我可以在删除之前执行聚合查询。但是我可以在没有另一个 SQL 命令调用的情况下执行此操作吗？

Answer 1

使用具有RecordsEffected 输出参数的TADOCommand.Execute() 的重载版本：

function Execute(var RecordsAffected: Integer; const Parameters: OleVariant): _Recordset; overload;

例如：

function TMyClass.removeRecords(...) : integer;
var
  aC : TADOCommand;
begin
  aC := createADOCommand;
  try
    aC.Connection := fConnection;
    aC.commandText := getDeleteModelSQLCommand( ... );
    {$ifdef debug_AlwaysOne}
    aC.Execute;
    Result := 1;
    {$else}
    aC.Execute(Result, EmptyParam);
    {$endif}
  finally
    releaseADOCommand( aC );
  end;
end;