相关疑难解决方法(0)

您好，我在 Delphi 中遇到 TClientDataset 问题。我想获得一个包含更改后的数据的数据集。

这是我的代码：

procedure TForm2.btnUpdateClick(Sender: TObject);
var
  I: Integer;
  counter : Integer; //for testing
  value : String;
begin
     if not Self.DatasetArtikel.Active then
     begin
       ShowMessage('Nicht aktiv');
       Exit;
     end;

     if Self.DatasetArtikel.ChangeCount = 0 then
     begin
     ShowMessage('Delta is empty');
     Exit;
     end;

     counter := DatasetArtikel.ChangeCount;

      //DatasetArtikelUpdate.ClearFields;
      //DatasetArtikelUpdate.CreateDataSet;

       DatasetArtikel.Data := Self.DatasetArtikel.Delta; //here i want to transfer the changed data
       Release;

    //for I := 0 to DatasetArtikelUpdate.Fields.Count -1 do
      // if not DatasetArtikelUpdate.Fields[I].IsNull then
        //  value := DatasetArtikelUpdate.Fields[I].NewValue;

        value := DatasetArtikel.Fields[2].OldValue; 
        value := …

警告:完全重写.

场景:

我从TCustomADODataset后代的数据库中加载了一些数据.之后,我将这些数据保存在XML临时文件中(使用TCustomADODataset.SaveToFile)以允许将XML数据作为字符串获取并将其作为文本blob存储在数据库表中 - 它是一个导出表.

另一个程序(不同于存储XML的程序)将获取该数据,显示内部元素,并允许用户选择要导入到主数据库模式的元素.

问题:

上述方法的问题是需要临时文件以允许TCustomADODataset使用LoadFromFile方法.

有没有其他方法可以将存储为数据库导出表中的文本的XML数据加载到不需要临时文件的TCustomADODataset中？

笔记:

• 在这种情况下, TClientDataset不是一个选项.