如何处理有结果的ADO查询与无结果的查询？

Question

我使用MSSQL和ADO运行各种SQL语句。

代码序列如下所示：

aADOQuery.Active := False;
aADOQuery.SQL.Text := ' MY SQL STATEMENT ';
aADOQuery.ExecSQL;
aADOQuery.Active := True;

如果SQL返回结果为空，则最后一条语句将失败。如何检查这种情况以避免运行时错误？

注意：SQL语句来自用户在其中键入SQL的备忘录。

Answer 1

如果您的查询返回记录集（SELECT报表），你应该 不 使用ExecSQL，而只是aADOQuery.Open或Active := True。

对于不返回记录集例如查询INSERT/ UPDATE/
DELETE，使用ExecSQL。在大多数情况下，您会aADOQuery.RowsAffected通过查询返回。

其他SQL语句，你应该使用ExecSQL是CREATE/ ALTER/
DROP/EXEC等…（没有RowsAffected在这种情况下返回）

如果查询没有将游标返回到数据（例如INSERT语句），则尝试Open或将其设置TDataSet为Active将失败。

您可以使用ADOConnection.Execute代替TADOQuery执行命令文本，然后检查是否有一个有效的Recordset返回ADOConnection。在ADOConnection.OnExecuteComplete你可以做这样的事情：

procedure TForm1.ADOConnection1ExecuteComplete(Connection: TADOConnection;
  RecordsAffected: Integer; const Error: Error;
  var EventStatus: TEventStatus; const Command: _Command;
  const Recordset: _Recordset);
begin
  // check for errors
  if Assigned(Error) then
  begin        
    Memo1.Lines.Add('Error: ' + Error.Description);
  end;
  // check for a valid recordset
  if Assigned(Recordset) then
  begin
    MyDataSet.Recordset := Recordset; // MyDataSet is TADODataSet
  end;
  // check for affected rows
  if RecordsAffected >= 0 then
    Memo1.Lines.Add('Records affected: ' + IntToStr(RecordsAffected))
  else
    Memo1.Lines.Add('Record count: ' + IntToStr(MyDataSet.RecordCount));
end;