呵呵,我正在写一个远程传输的东西,用到这个东西。顺手 with adq1 do begin Close; Connection := ADOConnection1; SQL.Text := Memo1.Text; Open; SaveToFile('E:\1.adq', pfXML); end; with adq2 do begin Close; LoadFromFile('E:\1.adq'); end;
To ssq237712(流亡帅哥) 老大,我的代码和你的基本一样,可是数据表里的数据不显示在XML里,只有字段但没有字段值
with adq1 do
begin
Close;
Connection := ADOConnection1;
SQL.Text := Memo1.Text;
Open;
SaveToFile('E:\1.adq', pfXML);
end; with adq2 do
begin
Close;
LoadFromFile('E:\1.adq');
end;
有数据表:user
数据如下:
name age qq
caca 19 154222225
xiaom 18 153324677
......... .... ..........
那么生成的xml文档格式应该为:
<?xml version="1.0" encoding="gb2312"?>
<data>
<user>
<name>caca</name>
<age>19</age>
<qq>154222225</qq>
</user>
<user>
<name>xiaom</name>
<age>18</age>
<qq>153324677</qq>
</user>
</data>