Access zu langsam

[x000x]

Moin moin,

also ob es durch meinen Hinweis merklich (bei 30 DS) schneller wird, ist fraglich... aber trotzdem:

Delphi-Quellcode:

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

1. Die Datenmenge muss bei ExecSQL nicht immer wieder geschlossen werden, da keine geöffnet wird...
2. Das SQL Statement muss nicht bei jedem Durchlauf der Schleife neu gesetzt werden...
3. Prepared auf True setzen (Ob das bei Access auch was nützt??? ... hab keine Ahnung)
4. Result kann nach der Schleife gesetzt werden, da ja im Fehlerfall eh False

PS: Punkt 4 bringt dir bestimmt die erhoffte Geschwindigkeit