摘要：
//数据集串行化function RecordsetToXML(const Recordset: _Recordset): string;var RS: Variant; Stream: TStringStream;begin Result := ''; if Recordset = nil then Exit; Stream := TStringStream.Create(''); try RS := Recordset; // adPersistADTG保存为二进制文件 adPersistXML保存为xml。二进制的传输效率要高于XML RS.Save(TS 阅读全文
