Access alternative für Paradox?

[kolio]

Danke "ak1",

mit SQL ist funktioniert das Ganze etwa um den Faktor 2,5 schneller.

Delphi-Quellcode:

procedure TForm1.Button26Click(Sender: TObject);
var
  i,
  SerNr,
  SerSt,
  Cnt: LongInt;
  SerTx: String;
begin
  // Max SerNr ermitteln -------------------------------------------------------
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'Select max(SerNr) as maxSerNr From Tabelle1';
  ADOQuery1.Open;
  SerSt := ADOQuery1.FieldByName('maxSerNr').AsInteger;
  SerNr := SerSt;
  // Anzahl der Datensätze -----------------------------------------------------
  Cnt := StrToInt(Edit3.Text);
  // ---------------------------------------------------------------------------
  T1 := Time;
  for i := 0 to Cnt - 1 do
  begin
    inc(SerNr);
    SerTx := 'IKM' + RightStr('00000000' + IntToStr(SerNr), 8);
    ADOQuery1.Close;
    ADOQuery1.SQL.Text := 'INSERT INTO Tabelle1 (SerNr, SerTx) ' +
                          'VALUES (:PSerNr, :PSerTx)';
    ADOQuery1.Parameters.ParamByName('PSerNr').Value := SerNr;
    ADOQuery1.Parameters.ParamByName('PSerTx').Value := SerTx;
    ADOQuery1.ExecSQL;
  end;
  T2 := Time;
  // ---------------------------------------------------------------------------
  showMessage(IntToStr(Cnt) + ' Datensätze');
  showTime;
end;

Nun hab ich noch ein Problem, was mit "ADODataSet1.LookUp" zwar schneller funktioniert als mit SQL aber immer noch viel zu langsam. Ich muss 100000 Datensätze durchsuchen, welche Seriennummern in aufsteigender Reihenfolge enthalten. Es kann sein, das irgendwo dazwischen eine Seriennummer fehlt. Genau die muss ich herausfinden. Zum Durchsuchen von 20000 Datensätzen brauch ich mit "LookUp" ca. 2,7 Sekunden, mit SQL dauert es eine Ewigkeit.

Mit LookUp:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
  i, SerNr: LongInt;
  V: Variant;
begin
  SerNr := ADODataSet1.FieldByName('SerNr').AsInteger;
  T1 := Time;
  for i := 0 to 99999 do
  begin
    V := ADODataSet1.Lookup('SerNr', SerNr, 'SerNr');
    if not (VarType(V) in [varNull]) then
      inc(SerNr)
    else
      Break;
  end;
  T2 := Time;
  ShowTime;
  ShowMessage('Seriennummer: ' + IntToStr(SerNr));
end;

Mit SQL:

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;