数据库生成xml格式

最新推荐文章于 2021-02-23 13:47:11 发布

原创最新推荐文章于 2021-02-23 13:47:11 发布 · 532 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#数据库 #xml #c

收录于

xml.Active:=True;
  xml.Version:='1.0';
  xml.Encoding:='GB2312';
  xmlroot:=xml.AddChild('root');

    while not qrySQL.Eof do begin
      for j:=0 to qrySQL.Fields.Count-1 do
      begin
        xmlField:=xmlroot.AddChild(qrysql.fields[i]);
        xmlField.Text:=qrySQL.FieldByName(qrysql.fields[i]).AsString;
      end;
      qrySQL.Next;
    end;

xml.SaveToFile('c:\aa.xml');