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

[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;

Atas ialah kandungan terperinci 如何使用delphi将Clientdataset的Delta保存到数据库中. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!