Ich noch mal ...
Hab alles getestet, allerdings nur lokal auf meinem 1,4 GHz P4 mobile. Geschwindigkeitszuwachs gleich Null. Für 30 Datensätze brauche ich genau 1,6 Sekunden.
Werde es morgen mal mit der
DB auf dem Server probieren.
Was allerdings nicht funktioniert ist dieser Vorschalg :
Delphi-Quellcode:
Result:=true;
try
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
for i := 0
to ListBox1.Count - 1
do
begin
ADOQuery4.SQL.Add := '
INSERT INTO Tabelle4 (Seriennummer) ' +
'
VALUES ('+ListBox1.Items.Strings[i]+'
)';
end;
ADOQuery4.ExecSQL;
Except
On E:
Exception do
begin
Result :=false;
showmessage('
Beim Speichern ist folgender Fehler aufgetreten: '+#13#10+e.
Message);
end;
end;
War bei dieser Sache sowieso skeptisch, da werden doch einfach nur alle
SQL-Kommandos hintereinander geschrieben.
Tschau