delphi - Delphi，ADOQuery，ClientDataSet

我想将ClientDataSet保存到文件，然后在AdoQuery（AdoQuery.LoadFromFile（））中打开此文件。
可能吗？

或者如何将数据集保存为pfADTG文件格式？

最好的祝福

帕维尔

最佳答案

我想将ClientDataSet保存到文件，然后在AdoQuery（AdoQuery.LoadFromFile（））中打开此文件。可能吗？


不能。TClientDataSet和TCustomAdoDataSet后代（如TAdoQuery）使用的文件格式在二进制版本或XML版本中都不兼容。我想您可以尝试使用Delphi的TXmlTransform将保存的CDS文件转换为Ado格式，但我自己从未做过。


或者如何将数据集保存为pfADTG文件格式？


如果通过“数据集”表示TClientDataSet，则不能直接执行此操作。最好的办法是从CDS到AdoQuery逐字段逐行复制，然后在AdoQuery上调用SaveToFile。

更新：恐怕我不得不拒绝对此答案进行编辑，您询问如果AdoDataSet为空并且没有连接字符串该怎么办；好吧，当然可以使用SaveToFile和LoadFromFile使用TAdoDataSet在本地存储数据。下面是一个简约项目，该项目创建并填充ClientDataSet，然后将其结构和数据复制到AdoDataSet。

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  //  Note: ClientDataSet1 has had two FieldDefs created in the IDE,
  //  an ID integer field and an AName string field with a size of 20

  // Create and populate ClientDataSet1
  ClientDataSet1.CreateDataSet;
  ClientDataSet1.InsertRecord([1, 'Name1']);
  ClientDataSet1.InsertRecord([2, 'Name2']);

  //  Copy ClientDataSet1's FieldDefs to AdoDataSet1
  AdoDataSet1.FieldDefs.Assign(ClientDataSet1.FieldDefs);

  //  Now, copy the data fielf-by-field, row-by-row
  AdoDataSet1.CreateDataSet;

  try
    ClientDataSet1.DisableControls;
    AdoDataSet1.DisableControls;
    ClientDataSet1.First;
    while not ClientDataSet1.Eof do begin
      AdoDataSet1.Insert;
      for i := 0 to ClientDataSet1.FieldCount - 1 do begin
        AdoDataSet1.Fields[i].Value := ClientDataSet1.Fields[i].Value;
      end;
      AdoDataSet1.Post;
      ClientDataSet1.Next;
    end;

  //  Save Ado data to file, beware of path used!
  AdoDataSet1.SaveToFile(ExtractFilePath(Application.ExeName) + 'AdoData', pfADTG);

  finally
    AdoDataSet1.EnableControls;
    ClientDataSet1.EnableControls;
  end;
end;