終止具有處理時間限制的SQL查詢

Question

我可以使用DELPHI，dbgo數據庫組件和SQL Server數據庫服務器編寫SQL查詢嗎？

像

select * from table where ...... 

和process_time_limit = 5 sec？

更好

你給我行的10％的時間限制，而不是等待數小時後才進行完整的查詢數據集

Answer 1

ADO組件中：

我會給一個嘗試異步數據取。當您執行查詢時，您會記得您何時啓動並且每次觸發事件時，都會檢查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;