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.

zusammenfalten · markieren

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 ...

Access zu langsam

Access zu langsam

Forumregeln