sql-server - 使用进程时间限制中止 SQL 查询

Question

我可以使用 DELPHI、dbgo DB 组件和 SQL Server 数据库服务器编写 SQL 查询吗？

像

select * from table where ......  

和process_time_limit = 5 sec？

最好在时间限制内给我 10% 的行，而不是等待几个小时才能获得完整的查询数据集

Answer 1

ADO 组件：

我会尝试异步数据获取。当您执行查询时，您会记住您何时开始以及每次OnFetchProgress事件触发时，您将检查是否EventStatus仍处于esOK状态并检查查询执行后经过的时间。如果它过去了，您可以使用数据集上的方法取消数据提取Cancel。

我的意思是使用类似以下（未经测试）的伪代码：

var
  FQueryStart: DWORD;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // configure the asynchronous data fetch for dataset
  ADOQuery1.ExecuteOptions := [eoAsyncExecute, eoAsyncFetchNonBlocking];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // store the query execution starting time and execute a query
  FQueryStart := GetTickCount;
  ADOQuery1.SQL.Text := 'SELECT * FROM Table';
  ADOQuery1.Open;
end;

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress,
  MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  // if the fetch progress is in esOK (adStatusOK) status and the time since
  // the query has been executed (5000 ms) elapsed, cancel the query
  if (EventStatus = esOK) and (GetTickCount - FQueryStart >= 5000) then
    DataSet.Cancel;
end;