FieldByName速度优化

最新推荐文章于 2021-05-03 16:07:02 发布

翻译最新推荐文章于 2021-05-03 16:07:02 发布 · 3.2k 阅读

文章标签：

#dataset #优化

数据库专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一种在大量数据处理中优化字段更新的方法。通过减少重复调用FieldByName提高效率，并展示了如何批量更新多个字段的示例代码。

调用FieldByName主要是调用FindField，会在主循环引进n个新子循环，如果有1万个记录，那效率会可想而知。

下面优化比较好

var
AField : TField;

begin
Assert(AdoQuery1.Active, 'Dataset is not active!');
try
AdoQuery1.DisableControls;
AField := AdoQuery1.FieldByName('MyFieldName');

    AdoQuery1.First;
    while not AdoQuery1.Eof do
    begin
      AdoQuery1.Edit;
      AField.Value := Edit1.Text;

      AdoQuery1.Post;
      AdoQuery1.Next;
    end;
finally
    AdoQuery1.EnableControls;
end;
end;

如果有多个字段，想简化一下

const ROWCOUNT = 1000000;
var
  k, j: Integer;
  FieldList: iFieldList;
begin
  FieldList := GetFieldList(ClientDataSet1);

  ClientDataSet1.Active := False;
  ClientDataSet1.Active := True;

  for j := 1 to ROWCOUNT do
  begin
    ClientDataSet1.Append;
    for k := 1 to 10 do
      FieldList.FieldByName('ClientDataSet1Field' + IntToStr(k)).AsInteger := k;
    ClientDataSet1.Post;
  end;
end;