1:
2:
3:
4:
5:

for i:=1 to 1000000 do
begin
  AdoCommand.CommandText := 'Insert INTO DATEN (NUMMER, TEXT) VALUES ('+IntToStr(i)+ ', ' + QuotedStr(tmpText) +')'
  AdoCommand.Execute;
end;

1:
2:
3:
4:
5:
6:
7:

ADOConnection.BeginTrans;
for i:=1 to 1000000 do
begin
  AdoCommand.CommandText := AdoCommand.CommandText + 'Insert INTO DATEN (NUMMER, TEXT) VALUES ('+IntToStr(i)+ ', ' + QuotedStr(tmpText) +');'
end;
//AdoCommand.Execute; //vielleicht noch nötig, mal ausprobieren
ADOConnection.CommitTrans;

1:
2:
3:
4:
5:
6:
7:

AdoCommand.CommandText := 'Insert INTO DATEN (NUMMER, TEXT) VALUES ';
for i:=1 to 1000000 do
begin
  AdoCommand.CommandText:= AdoCommand.CommandText + '('+IntToStr(i)+ ', ' + QuotedStr(tmpText) +'), ';  
end;
//Vorher hinten das letzte Komma abschneiden ;-)
AdoCommand.Execute;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

  Ok = FindFirst();
  while (Ok = 0) do
  begin
    // SQL mit Parametern anhand der Struktur in der ersten Zeile der Datei zusammenbauen
    ReadLn(Ueberschriften, Datei);
    
    Query.SQL.Clear;
    Query.SQL.Add('insert into Tabelle (A, B, C) values (:A, :B, :C)');

    while not Eof(Datei) do
    begin
      // Einzelne Werte aus der Datei lesen
      Wert := LeseWert(Datei);

      if (Spalte = ftInteger) then
        Query.ParamByName(SpaltenName).AsInteger := StrToInt(Wert)
      else if (Spalte = ftString) then
        Query.ParamByName(SpaltenName).AsInteger := Wert;

      Query.ExecSQL;
    end;

    Ok := FindNext();
  end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  Query.SQL.Add('insert into Tabelle (SpalteA, SpalteB)');
  Query.SQL.Add('values (:WertA, :WertB)');

  Query.Prepare;

  for I := 0 to 100000 do
  begin
    Query.ParamByName('WertA').AsInteger := I;
    Query.ParamByName('WertB').AsString := IntToStr(I);
    
    Query.ExecSQL;
  end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

try
 query.sql.text:= 'BEGIN TRANSACTION';
 query.ExecSQL;

 //SChleife
 query.sql.text:= '<InsertStatement>';
 query.ExecSQL;
 //Schleife-Ende

 query.sql.text:= 'COMMIT WORK';
 query.ExecSQL;
except
 query.sql.text:= 'ROLLBACK WORK';
 query.ExecSQL;
end;