美图齐众专注资阳网站设计 资阳网站制作 资阳网站建设
资阳网站建设公司服务热线：028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后，网站问题一站解决

教你运用DOM解析VB.NETXML文件

XML文件是安全的，在程序中我们大多数的文件都是XML文件，但是对于用DOM解析XML文件熟练运用的还是很少，如何使用DOM解析VB.NET XML文件呢？在这里就和大家一起看一个案例分析吧！
#T#1、建立字符串写文件，XML是由<>组成，实际上把所有字符形成后再写进文件中即可。但此类方法不适合大数据的操作。
2、XLST，相当与CSS，VB不适合。
3、DOM。
所以介绍的是使用DOM来写VB.NET XML文件。以下范例以SQLSERVER的Northwind中Employee表进行示范。VB.NET XML文件代码如下：

为泉港等地区用户提供了全套网页设计制作服务，及泉港网站建设行业解决方案。主营业务为网站设计制作、网站制作、泉港网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

 
 
    
  
  
  1. Option Explicit     
    2.   
  
  2. Public RsAs New ADODB.Recordset     
    3.   
  
  3. Public Conn As New ADODB.Connection     
    4.   
  
  4. Public tempDocAs MSXML2.DOMDocument 'xml文件     
    5.   
  
  5. Public tempNode As MSXML2.IXMLDOMNode     
    6.   
  
  6. Public Root As MSXML2.IXMLDOMElement     
    7.   
  
  7. Public tempelement As MSXML2.IXMLDOMElement     
    8.   
  
  8. Public tempattribute As MSXML2.IXMLDOMElement     
    9.   
  
  9. Public emp As MSXML2.IXMLDOMElement     
    10.   
  
  10. Private Sub Command1_Click()     
    11.   
  
  11. '生成一个XML DOMDocument对象     
    12.   
  
  12. Set tempDoc = New MSXML2.DOMDocument     
    13.   
  
  13. '生成根节点并把它设置为文件的根     
    14.   
  
  14. Set Root = tempDoc.createElement("employees")     
    15.   
  
  15. Set tempDoc.documentElement = Root    
    16.   
  
  16. '在节点上添加多个属性     
    17.   
  
  17. Call Root.setAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema")     
    18.   
  
  18. Call Root.setAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")     
    19.   
  
  19. Call Root.setAttribute("xmlns", "http://www.kingdee.com/ReK3Inventory")     
    20.   
  
  20. Do While Not Rs.EOF     
    21.   
  
  21. Set emp = tempDoc.createNode(MSXML2.NODE_ELEMENT, "employee", "")     
    22.   
  
  22. Root.appendChild emp     
    23.   
  
  23. '生成孩子节点添加到根节点上去，并且为这个节点设置一个属性     
    24.   
  
  24. Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Employeeid", "")     
    25.   
  
  25. tempNode.Text = Rs(0)     
    26.   
  
  26. emp.appendChild tempNode     
    27.   
  
  27. Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Firstname", "")     
    28.   
  
  28. tempNode.Text = Rs(1)     
    29.   
  
  29. emp.appendChild tempNode     
    30.   
  
  30. Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Title", "")     
    31.   
  
  31. tempNode.Text = Rs(2)     
    32.   
  
  32. emp.appendChild tempNode     
    33.   
  
  33. Rs.MoveNext     
    34.   
  
  34. Loop     
    35.   
  
  35. Dim pi As IXMLDOMProcessingInstruction     
    36.   
  
  36. Set pi = tempDoc.createProcessingInstruction("xml", "version='1.0' encoding='gb2312'")     
    37.   
  
  37. Call tempDoc.insertBefore(pi, tempDoc.childNodes(0))     
    38.   
  
  38. '直接保存成文件即可     
    39.   
  
  39. tempDoc.Save "c:\myTest.xml"     
    40.   
  
  40. Unload Me     
    41.   
  
  41. End Sub     
    42.   
  
  42. Private Sub Form_Load()     
    43.   
  
  43. '连接SQLSERVER     
    44.   
  
  44. Dim strConn As String     
    45.   
  
  45. strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=LocalHost"    
    46.   
  
  46. Conn.CursorLocation = adUseClient    
    47.   
  
  47. Conn.Open strConn     
    48.   
  
  48. If Rs.State <> adStateClosed Then Rs.Close     
    49.   
  
  49. Rs.Open "Select employeeid,Firstname,Title from employees ", Conn, adOpenStatic, adLockOptimistic     
    50.   
  
  50. End Sub     
    51.   
  
  51. Private Sub Form_Unload(Cancel As Integer)Rs.Close     
    52.   
  
  52. Set Rs = Nothing    
    53.   
  
  53. Conn.Close     
    54.   
  
  54. Set Conn = Nothing    
    55.   
  
  55. End Sub    
    56.

当前题目：教你运用DOM解析VB.NETXML文件
文章转载：http://zsjierui.cn/article/cogdhdj.html

其他资讯