Hallo,
als Anfänger solltest du ja erst einmal anfangen,
statt sich gleich an die Optimierung zu setzen.
Was ist an 4 min Laufzeit sooo schlimm,
dieses Insert wird doch wohl nicht zu den Haupt-Aufgaben deines Programms gehören.
Mach doch erst mal so weiter.
Noch was zum Probieren
Delphi-Quellcode:
procedure TForm1.InputDatasetClick(Sender: TObject);
var i:Integer;
startzeit,stopzeit : TDateTime;
begin
startzeit := now;
Screen.Cursor := crHourGlass;
ZConnection.Database := 'c:\msql\firedb.fdb';
ZQuery1.SQL.text:='INSERT INTO TestTabelle (Wert1, Wert2) VALUES(:v1, :v2)';
ZQuery1.Prepare;
for i:=0 to SG1.RowCount-1 do
begin
with ZQuery1.params do
begin
ParamValues['v1']:=SG1.Cells[0, i];
ParamValues['v2']:=SG1.Cells[1, i];
end; // with
ZQuery1.ExecSQL;
end; // i
Screen.Cursor := crDefault;
stopzeit := now;
Panel1.Caption :='SuchZeit : '+ FormatDateTime('nn:ss:zzz', StopZeit - StartZeit) ;
end;
Was du leider immer noch nicht geschrieben hattest:
Hat deine Tabelle Indizes ?
Heiko