’声明连接和结果集
Dim cConn As ADODB.Connection
Dim rsData As ADODB.Recordset
Private Sub Form_Load()
  ’连接数据库
  Dim query As String
  Set cConn = New ADODB.Connection
  cConn.ConnectionString = "DSN=nwind;UID=sa;PWD=;"
  cConn.Open

  ’执行数据库查询
  query = "Select * FROM clientList"
  Set rsData = cConn.Execute(query)

  ’将数据库返回结果集保存至文件
  On Error Resume Next
    Kill ("recordset.xml")
  rsData.Save "output.xml", adPersistXML
End Sub

下面给出的是该程序执行后生成的XML文档--output.xml。通过分析，可以发现，
它实际上是一个内嵌XML Schema的XML实例文档。该实例文档的主元素是<rs:data>，
命名空间rs由xmlns:rs=’urn:schemas-microsoft-com:rowset’定义；
数据库查询返回的每一条记录都作为<rs:data>的一个子元素，用<z:row>表示。
<z:row>子元素实际上是空元素，信息均以属性的方式体现，属性来自于返回的数据库字段。
内嵌的Schema部分<s:Schema id=’RowsetSchema’>定义了元素<row>的组织结构和规则。

<xml xmlns:s=’uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882’
     xmlns:dt=’uuid:C2F41010-65B3-11d1-A29F-00AA00C14882’
     xmlns:rs=’urn:schemas-microsoft-com:rowset’
     xmlns:z=’#RowsetSchema’
>
<s:Schema id=’RowsetSchema’>
  <s:ElementType name=’row’ content=’eltOnly’>
    <s:attribute type=’Name’/>
    <s:attribute type=’ID’/>
    <s:attribute type=’Company’/>
    <s:attribute type=’Email’/>
    <s:extends type=’rs:rowbase’/>
  </s:ElementType>

  <s:AttributeType name=’Name’ rs:number=’1’ rs:nullable=’true’         rs:write=’true’>
    <s:datatype dt:type=’string’ dt:maxLength=’10’/>
  </s:AttributeType>

  <s:AttributeType name=’ID’ rs:number=’2’ rs:nullable=’true’ rs:write=’true’>
    <s:datatype dt:type=’int’/>
  </s:AttributeType>

  <s:AttributeType name=’Company’ rs:number=’3’ rs:nullable=’true’ rs:write=’true’>
    <s:datatype dt:type=’string’ dt:maxLength=’20’/>
  </s:AttributeType>

  <s:AttributeType name=’Email’ rs:number=’4’ rs:nullable=’true’ rs:write=’true’>
    <s:datatype dt:type=’string’ dt:maxLength=’20’/>
  </s:AttributeType>
</s:Schema>

<rs:data>
  <z:row Name=’张三’ ID=’1’ Company=’A公司’ Email=’zhang@aaa.com’/>
  <z:row Name=’李四’ ID=’2’ Company=’B公司’ Email=’li@bbb.org’/>
</rs:data>
</xml>

ADO提供了文档保存功能，通过它，ASP可以将数据库返回结果集保存至XML文件，
这些XML文件经由XSL样式化后可以在浏览器直接显示，也可以传输至其他应用系统供再次利用。
另外，值得一提的是，微软在其ADO2.5和IIS5.0中又增加了更高级的支持，即，可以将数据库
返回的结果直接转换为XML在浏览器中显示，而不必先保存至文件。下面的实例片段有力地说明了这一点：

<%
  Set rsData = Server.CreateObject("ADODB.Recordset")
  Response.ContentType="text/xml"
  rsData.Open "select * from clientList", "File Name=" & Server.MapPath("ado.udl")
  rsData.Save Response, adPersistXML
  rsData.Close
  Set cConn = nothing
%>

(完)