将AdoDataSet的数据集传到ClientDataSet后遇到的有关问题…请大家帮忙解惑

2012-02-12

将AdoDataSet的数据集传到ClientDataSet后遇到的问题……请大家帮忙解惑AdoDataSet连接到本地的Access，按条

将AdoDataSet的数据集传到ClientDataSet后遇到的问题……请大家帮忙解惑
AdoDataSet连接到本地的Access，按条件获得几条数据。
然后我使用 http://topic.csdn.net/t/20050407/13/3916666.html# 中3楼pazee的方法将这几条数据传给了ClientDataSet

Delphi(Pascal) code

  dstRegistration.DisableControls;  try     dmData := TdmData.Create(nil);    dmData.cdsRegistration.Active := True;    dmData.cdsRegistration.Data := dspRegistration.Data;    dmData.cdsRegistration.Insert;     dmData.cdsRegistration.Post;    if (dmData.cdsRegistration.ChangeCount > 0) then      dmData.cdsRegistration.ApplyUpdates(-1);    dmData.cdsRegistration.Active := False;      finally    dstRegistration.EnableControls;    dmData.Free;      end;

去数据库查询，数据没有被插入……这是为什么呢？

[解决办法]
不知道你是怎么设置的.可以这样试试,使用ADOQuery查询,提供数据

ADOQuery.Connection=ADOConnection;
DataSetProvider.DataSet:=ADODataSet;
ClientDataSet.ProviderName=DataSetProvider;

with ADOQuery do
begin
Close;
SQL.Clear;
SQL.ADD('Select * From t');
Open;
end;
这样ClientDataSet就有数据了

而数据操作,就操作ClientDataSet即可,如:ClientDataSet.Append;Edit;Post;Cancel;...等等

提交到数据库:
if ClientDataSet.State In [dsEdit,dsInsert] then
ClientDataSet.Post;
if ClientDataSet.ChangeCount>0 then
ClientDataSet.ApplyUpdates(-1);

热点排行

.NET

将AdoDataSet的数据集传到ClientDataSet后遇到的有关问题…请大家帮忙解惑