一种更让人满意的方法可能就是使用可以让你直接把Recordset转换成xml的工具。如果你安装了Microsoft Data
Access Components(MDAC)2,6(或者更高版本)以及Microsoft xml(MSxml)2.6(或者更高版本),那么你就可以快速创建xml。
假设你已经有了一个到数据库的活动连接,那么你可以执行一个简单的查询来获得某些数据:
Set rs.ActiveConnection = conn 'our active connection.
rs.Open "SELECT * FROM DB.USERS"
现在你已经获取了USERS表格中的所有字段,包括user_id、fname和zip。不必用一个While语句来循环Recordset中的所有字段,用Recordset的Save方法来把这些信息直接保存到DOMDocument要简单的多:
Dim oDOM
Set oDOM = Server.CreateObject("MSxml2.DOMDocument")
oDOM.async = False
rs.SaveoDOM, 1 'adPersistxml