首页 / DELPHI / 如何使用delphi将Clientdataset的Delta保存到数据库中

如何使用delphi将Clientdataset的Delta保存到数据库中

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了如何使用delphi将Clientdataset的Delta保存到数据库中，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1143字，纯文字阅读大概需要2分钟。

内容图文

[delphi]
 view plain copy
//ATableName-表名, AKeyField-主键，多个主键用;隔开，如 ;pid;times;  from：unit HlsImplBase;
[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;

 

内容总结

以上是互联网集市为您收集整理的如何使用delphi将Clientdataset的Delta保存到数据库中全部内容，希望文章能够帮你解决如何使用delphi将Clientdataset的Delta保存到数据库中所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/896842.html

来源：【匿名】