delphi把Clientdataset的Delta保存到数据库

最新推荐文章于 2023-09-27 15:01:34 发布

Hmillet

最新推荐文章于 2023-09-27 15:01:34 发布

阅读量3.1k

点赞数

分类专栏： delphi delphi 基础语法文章标签： delphi dataset 基础语法

77 篇文章

订阅专栏

65 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的通用函数UpdateTableData，该函数用于更新指定表中的记录。函数接收表名、主键字段及待更新的数据作为参数，并通过创建数据集和提供者组件来完成更新操作。

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

[delphi] view plain copy

[delphi] view plain copy

function THlsImplBase.UpdateTableData(ATableName, AKeyField: AnsiString; var AData: Variant): Boolean;
var
LSql: string;
LDataSet: TDataSet;
LProvider: TProvider;
LErrCount: Integer;
I: Integer;
begin
Result := False;
if ATableName = '' then Exit;
if AKeyField = '' then Exit;
LSql := 'select * from ' + ATableName + ' where 1 = 2';
LDataSet := CreateDataSet(LSql);
if not Assigned(LDataSet) then Exit;
LProvider := TProvider.Create(nil);
LProvider.UpdateMode := upWhereKeyOnly;
LProvider.DataSet := LDataSet;
AKeyField := LowerCase(AKeyField);
for I := 0 to LDataSet.FieldCount - 1 do
begin
if (LowerCase(LDataSet.Fields[I].FieldName) = AKeyField) or
(Pos(';' + LowerCase(LDataSet.Fields[I].FieldName) + ';', AKeyField) > 0) then
LDataSet.Fields[I].ProviderFlags := LDataSet.Fields[I].ProviderFlags + [pfInKey]
else
LDataSet.Fields[I].ProviderFlags := [];
end;
try
try
LProvider.ApplyUpdates(AData, -1, LErrCount);
except
end;
Result := LErrCount = 0;
finally
LDataSet.Free;
LProvider.Free;
end;
end;