VB中使用DOM写XML文件

整理以前旧问题，原帖地址：http://topic.csdn.net/t/20050628/16/4110312.html

1、建立字符串写文件，XML是由<></>组成，实际上把所有字符形成后再写进文件中即可。但此类方法不适合大数据的操作。

2、XLST，相当与CSS，VB不适合。

3、DOM。

所以介绍的是使用DOM来写XML文件。

以下范例以SQLSERVER的Northwind中Employee表进行示范。

代码如下： 

Option Explicit

Public Rs  As New ADODB.Recordset
Public Conn As New ADODB.Connection

Public 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.IXMLDOMElement

Private Sub Command1_Click()

    '生成一个XML   DOMDocument对象
    Set tempDoc = New MSXML2.DOMDocument

    '生成根节点并把它设置为文件的根
    Set Root = tempDoc.crea