Access zu langsam

[kolio]

Hallo,

wer kann mir helfen? Ich muss jeweils 20 bis 30 Seriennummern aus einer TListBox in eine Access Datenbank übernehmen, welche sich auf dem Server befindet. Für jede Seriennummer soll ein eigener Datensatz angelegt werden. Je nach verwendeten PC geht es manchmal mit SQL-Befehlen und manchmal mit "ADODataSet.Edit / Append / Post" schneller. Prinzipiell würde ich aber SQL bevorzugen.

Das nachfolgende Beispiel benötigt auf einem 1 GHz Rechner ca. 10 s für 30 Datensätze.

Delphi-Quellcode:

function TForm1.WriteSNr: Boolean;
var
  i: Integer;
begin
  try
    for i := 0 to ListBox1.Count - 1 do
    begin
      ADOQuery4.Close;
      ADOQuery4.SQL.Text := 'INSERT INTO Tabelle4 (Seriennummer) ' +
                            'VALUES (:PSeriennummer)';
      ADOQuery4.Parameters.ParamByName('PSeriennummer').Value := ListBox1.Items.Strings[i];
      ADOQuery4.ExecSQL;
      Result := True;
    end;
  except
    Result := False;
  end;
end;

Wie kriege ich das schneller hin?

Vielen Dank schon mal ...