delphi根据数据库里内容生成xml

Question

如何根据数据库中表的内容生成xml，用xmldocument?
比如表User有这么几个字段 ID, UserName,UserPass,IsAdmin生成这样的
<?xml version='1.0' encoding='gb2312' ?>
<root>
  <User>
    <ID>1</ID>
    <UserName>aa</UserName>
    <UserPass>bb</UserPass>
    <IsAdmin>0</IsAdmin>
  </User>
  <User>
    <ID>2</ID>
    <UserName>bb</UserName>
    <UserPass>c</UserPass>
    <IsAdmin>1</IsAdmin>
  </User>
</root>
另外可以指定字段吧，比如那个表，我只要UserName,UserPass
<?xml version='1.0' encoding='gb2312' ?>
<root>
  <User>
    <UserName>aa</UserName>
    <UserPass>bb</UserPass>
  </User>
  <User>
    <UserName>bb</UserName>
    <UserPass>c</UserPass>
  </User>
</root>

Answer 1

SELECT USERNAME,USERPASS,ISADMIN
FROM USER
FOR XML
试一下

Answer 2

SELECT *
FROM ORDERS
FOR XML AUTO//少加一个Auto
另：用xmldocument比较麻烦，我一般都用NativeXML