FireDAC 批量执行命令（批量插入、更新、删除）

代码

批量插入

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  //建立连接
  FDConnection1.Connected := True;
  //开启事务
  FDConnection1.StartTransaction;
  try
    //设置语句
    FDCommand1.CommandText.Text := 'INSERT INTO tceshi VALUES(:ID, :Code, :Name, :Amount)';
    //设置参数类型和大小（ftString / ftWideString不设置大小会使用默认大小，占用缓冲区大小）
    FDCommand1.ParamByName('ID').DataType := ftInteger;
    FDCommand1.ParamByName('Code').DataType := ftString;
    FDCommand1.ParamByName('Code').Size := 10;
    FDCommand1.ParamByName('Name').DataType := ftString;
    FDCommand1.ParamByName('Code').Size := 20;
    FDCommand1.ParamByName('Amount').DataType := ftFloat;
    //设置插入的记录数
    FDCommand1.Params.ArraySize := 10000;
    //设置插入的内容
    for I := 0 to FDCommand1.Params.ArraySize - 1 do
    begin
      FDCommand1.ParamByName('ID').AsIntegers[I] := I + 1;
      FDCommand1.ParamByName('Code').AsStrings[I] := I.ToString;
      FDCommand1.ParamByName('Name').AsStrings[I] := I.ToString;
      FDCommand1.ParamByName('Amount').AsFloats[I] := I * 1.2;
    end;
    //设置进度条
    ProgressBar1.Max := 100;
    ProgressBar1.Position := 0;
    //循环批量提交
    for I := 1 to 100 do
    begin
      //从第0个索引项开始，插入100条记录
      //FDCommand1.Execute(100, 0);
      //从第100个索引项开始，插入200条记录
      //FDCommand1.Execute(300, 100);
      //循环执行，每次插入100条记录
      FDCommand1.Execute(100 * I, 100 * (I - 1));
      //更新进度条
      ProgressBar1.Position := I;
      Application.ProcessMessages;
    end;
    //提交事务
    FDConnection1.Commit;
  except on E: Exception do
    //回滚事务
    FDConnection1.Rollback;
  end;
end;

方法

FireDAC.Comp.Client.TFDCustomCommand.Execute

FireDAC.Comp.DataSet.TFDDataSet.Execute

procedure Execute(ATimes: Integer = 0; AOffset: Integer = 0; ABlocked: Boolean = False);

执行CommandText指定的SQL命令，它不返回结果集。如果命令返回结果集，则所有结果集都将被丢弃。

TFDCustomCommand、TFDQuery 和 TFDStoredProc 具有 Execute (ATimes: Integer = 0; AOffset: Integer = 0) 方法。

命令将从 AOffset 行开始执行 (ATimes - AOffset) 次。 ATimes 必须等于或小于 Params.ArraySize。

参数

ATimes 定义了数组的长度。

AOffset 是数组中第一个项的索引。

参考

https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Array_DML_(FireDAC)