如何将TClientDataSet数据导出到Tadodataset中

[lhb2000]

如何将TClientDataSet数据导出到Tadodataset中

[gobiz]

不明白你说的意思，试试添加一个DataSource，然后设置该DataSource的DataSet为ClientDataset，然后将ADODataset的DataSource设置为刚才添加的这个DataSource。

[lhb2000]

我的意思是:
function GetData(ADataSet: TDataSet): OleVariant;
begin
with TDataSetProvider.Create(nil) do
try
DataSet := ADataSet;
Result := Data ;
finally
Free;
end;;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.Data := GetData(ADODataSet1);
end;

这个是将ADodataset导到clientdataset
如何反过来?

[zxcnmv]

一般情况下可以在同一种数据库组件中进行导入与导出,比如2个ClientDataSet间可以相互导.

[lhb2000]

我是作了一个Webservices　在里面用adodataset取出数据返回　客户端用clientdataset接收数据　并修改　然后再到webservices中更新　
ds1.commandtext:=......
ds1.open;
with TDataSetProvider.Create(nil) do
try
DataSet := ds1;
cds.Data := Data ;
finally
Free;
end;
Result :=cds.Data;
这样数据可以返回给客户端　但客户端修改后的数据如何再更新到数据库中呢?

[lhb2000]

up

[lhb2000]

现在的问题是传回webservices的data插入　更新　都可以　如果有删除则不行
cds.data :=data;//得到客户端的更新过的　但里面不能有删除　否则不行