使用进程时间限制中止 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;