FireDAC批量导入数据示例-优快云博客

本文介绍如何使用FireDAC的批量处理插件快速将数据从单个文件导入到数据库中。通过创建TFDBatchMove及其相关组件，可以实现从内存表加载数据，并将其写入数据库表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

FDAC DataSet使用SaveToFile方法把数据存入单个文件后，使用批量处理插件，能够快速导入数据。在国外论坛上看到一篇文章，导入很方便。经测试可用。

function TSubDB.LoadDB(const aFilename: string): boolean;
var
  FQry: TFDQuery;
  FBatchMove: TFDBatchMove;
  FReader: TFDBatchMoveDataSetReader;
  FWriter: TFDBatchMoveSQLWriter;
  FMemTable: TFDMemTable;
begin
  FQry := TFDQuery.Create(nil);
  FQry.Connection := dmFB.myDB;
  FQry.FetchOptions.AssignedValues := [evItems];
  FQry.FetchOptions.Items := [fiBlobs, fiDetails];
  FBatchMove := TFDBatchMove.Create(nil);
  FBatchMove.Analyze := [taDelimSep, taHeader, taFields];
  FReader := TFDBatchMoveDataSetReader.Create(FBatchMove);
  FWriter := TFDBatchMoveSQLWriter.Create(FBatchMove);
  FMemTable := TFDMemTable.Create(nil);
  try
    FMemTable.LoadFromFile(aFileName, sfBinary);
    FReader.DataSet := FMemTable;
    FQry.SQL.Text := 'select * from test';
    FWriter.Connection := dmFB.myDB;
    FWriter.TableName := 'test';
    FBatchMove.Mode := dmAppendUpdate;
    FBatchMove.Execute;
    FQry.Open;
    FQry.Close;
  finally
    FMemTable.Free;
    FWriter.Free;
    FReader.Free;
    FBatchMove.Free;
    FQry.Free;
  end;
end;

转自： http://stackoverflow.com/questions/33154868/firedac-batchmove-from-memorytable