Interruzione query SQL con limite di tempo di processo

Question

È possibile scrivere query SQL utilizzando DELPHI, componenti DB dbgo e un server di database SQL Server che sono limitati rispetto al tempo di elaborazione?

Come

select * from table where ...... 

e process_time_limit = 5 sec?

Meglio mi dai il 10% delle righe entro un limite di tempo, invece di ore di attesa per il set di dati di query completa

Answer 1

ADO componenti:

darei una prova per i dati asincrono recupero. Quando eseguirai la query, ti ricorderai quando hai iniziato e ogni volta che l'evento OnFetchProgress si attiva, controllerai se lo EventStatus è ancora nello stato esOK e controlla il tempo trascorso dall'esecuzione della query. Se è scaduto, è possibile annullare il recupero dei dati utilizzando il metodo Cancel sul set di dati.

volevo usare qualcosa come il seguente pseudocodice (non testato):

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;