如何使用TADODataSet修改计算字段？

Question

我有一个用来执行的TADODataset (仅作为示例)：

SELECT id, name, lastname, name + ' ' + lastname as fullname
FROM persons
ORDER BY lastname

打开dataset后，我可以修改"name"和"lastname"字段，但不能修改"fullname"，因为它是经过计算的。

我尝试通过DataProvider打开TADODataset到TClientDataset，但时间太长(源数据集中大约有100K条记录)：

SrcDS.FieldDefs.Update;
for i := 0 to Pred(SrcDS.FieldDefs.Count) do
  SrcDS.FieldDefs[i].CreateField(SrcDS).ReadOnly := false;
DestDS := TClientDataset.Create(nil);
DestDS.SetProvider(SrcDS);
DestDS.Open;
DestDS.SetProvider(nil);

总而言之，我希望拥有一个具有可变字段的独立数据集。

如何修改数据集中的计算字段？

Answer 1

您必须在Delphi中计算该字段。右键单击TADODataset组件，选择New Field，为其命名并将其类型设置为'calculated‘，从而创建一个新字段。

在OnCalculateFields-Event中，只需写下：

Procedure TMyDataModule.MyDatasetCalculate(Sender : TDataset);
Begin
  MyDataSetFullName.AsString := MyDatasetFirstName.AsString+' '+MyDataSetLastName.AsString;
End;

更新:关于您的第二个问题(100.000条记录)：如果使用LockType = ltBatchOptimistic将它们加载到ADODataset中，则速度将足够快，并且不会将任何内容保存到数据库中，除非您调用UpdateBatch方法。

如果仍然太慢，请尝试使用异步加载功能(请参阅ExecuteOptions)