Zitat von
kolio:
Delphi-Quellcode:
procedure TForm1.Button17Click(Sender: TObject);
begin
T1 := Time;
ADOQuery4.Close;
ADOQuery4.SQL.Text := 'Select SerNr From Tabelle1 ' +
'Where (SerNr + 1) Not In (Select SerNr From Tabelle1)';
ADOQuery4.Open;
T2 := Time;
ShowTime;
end;
Hast einen Index auf das Feld SerNr gelegt?