在vb6.0种如何生成xml文档？？

Question

我需要生成一个xml文档，内容如下：<?xml version="1.0" encoding="GB2312" ?> 
<fault-ticket xmlns="http://isaBPM/faultTicket.xsd">
  <faultId>xxxdddddddddddddddd</faultId>
  <faultChildID>1</faultChildID>
  <faultGrade>严重</faultGrade>
  <faultType>ADSL故障</faultType>
  <faultOrigin>10000号</faultOrigin>
  <faultDate>2005-07-07 10:35</faultDate>
  <bussinessNO>5566888</bussinessNO>
  <busiType>ADSL</busiType>
  <areaFlag>0731</areaFlag>
</fault-ticket> 其它都好说，主要是
<?xml version="1.0" encoding="GB2312" ?> 
和
xmlns="http://isaBPM/faultTicket.xsd"
不知道怎么生成，望各位高人指点指点，在线等待了

Answer 1

这个简单，给你看前段时间写的例子Option ExplicitPublic Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPublic tempDoc As MSXML2.DOMDocument  'xml文件
Public tempNode As MSXML2.IXMLDOMNode
Public Root           As MSXML2.IXMLDOMElement
Public tempelement    As MSXML2.IXMLDOMElement
Public tempattribute     As MSXML2.IXMLDOMElement
Public emp As MSXML2.IXMLDOMElementPrivate Sub Command1_Click()    '生成一个XML DOMDocument对象
    Set tempDoc = New MSXML2.DOMDocument    '生成根节点并把它设置为文件的根
    Set Root = tempDoc.createElement("employees")
    Set tempDoc.documentElement = Root
    '在节点上添加多个属性
    Call Root.setAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema")
    Call Root.setAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
    Call Root.setAttribute("xmlns", "http://www.kingdee.com/ReK3Inventory")
        
    Do While Not Rs.EOF
        Set emp = tempDoc.createNode(MSXML2.NODE_ELEMENT, "employee", "")
        Root.appendChild emp        '生成孩子节点添加到根节点上去，并且为这个节点设置一个属性
        Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Employeeid", "")
        tempNode.Text = Rs(0)
        emp.appendChild tempNode
        
        Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Firstname", "")
        tempNode.Text = Rs(1)
        emp.appendChild tempNode        Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Title", "")
        tempNode.Text = Rs(2)
        emp.appendChild tempNode
        Rs.MoveNext
    Loop    Dim pi As IXMLDOMProcessingInstruction
    Set pi = tempDoc.createProcessingInstruction("xml", "version='1.0' encoding='gb2312'")    Call tempDoc.insertBefore(pi, tempDoc.childNodes(0))
    '直接保存成文件即可
    tempDoc.Save "c:\myTest.xml"    Unload MeEnd SubPrivate Sub Form_Load()
    Dim strConn As String
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=LocalHost"
    Conn.CursorLocation = adUseClient
    Conn.Open strConn    If Rs.State <> adStateClosed Then Rs.Close
    Rs.Open "Select employeeid,Firstname,Title from employees ", Conn, adOpenStatic, adLockOptimisticEnd Sub