delphi把Clientdataset的Delta保存到数据库

版权声明：本文为博主原创文章，未经博主允许不得转载。

[delphi] view plain copy

1. //ATableName-表名, AKeyField-主键，多个主键用;隔开，如 ;pid;times;  from：unit HlsImplBase;  

[delphi] view plain copy

1. function THlsImplBase.UpdateTableData(ATableName, AKeyField: AnsiString; var AData: Variant): Boolean;  
2. var  
3.   LSql: string;  
4.   LDataSet: TDataSet;  
5.   LProvider:  TProvider;  
6.   LErrCount: Integer;  
7.   I: Integer;  
8. begin  
9.   Result := False;  
10.   if ATableName = '' then Exit;  
11.   if AKeyField = '' then Exit;  
12.   
13.   LSql := 'select * from ' + ATableName + ' where 1 = 2';  
14.   LDataSet := CreateDataSet(LSql);  
15.   if not Assigned(LDataSet) then Exit;  
16.   
17.   LProvider := TProvider.Create(nil);  
18.   LProvider.UpdateMode := upWhereKeyOnly;  
19.   LProvider.DataSet := LDataSet;  
20.   AKeyField := LowerCase(AKeyField);  
21.   for I := 0 to LDataSet.FieldCount - 1 do  
22.   begin  
23.     if (LowerCase(LDataSet.Fields[I].FieldName) = AKeyField) or  
24.         (Pos(';' + LowerCase(LDataSet.Fields[I].FieldName) + ';', AKeyField) > 0) then  
25.       LDataSet.Fields[I].ProviderFlags := LDataSet.Fields[I].ProviderFlags + [pfInKey]  
26.     else  
27.       LDataSet.Fields[I].ProviderFlags := [];  
28.   end;  
29.   try  
30.     try  
31.       LProvider.ApplyUpdates(AData, -1, LErrCount);  
32.     except  
33.     end;  
34.     Result := LErrCount = 0;  
35.   finally  
36.     LDataSet.Free;  
37.     LProvider.Free;  
38.   end;  
39.     
40. end;