教你运用DOM解析VB.NET XML文件

开发 后端
这里介绍了利用DOM解析VB.NET XML文件的案例分析,案例主要范例以SQLSERVER的Northwind中Employee表进行示范,代码详细,喜欢用DOM解析XML文件的朋友看看。

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

2009-10-29 16:29:02

VB.NET文件系统对

2009-10-29 17:15:26

VB.NET控件

2009-10-28 15:01:59

VB.NET SHEL

2010-01-07 13:40:50

VB.NET读取XML

2009-11-03 09:37:33

VB.NET重载

2009-11-02 10:30:37

VB.NET EXCE

2009-11-10 15:18:35

VB.NET封面

2011-03-30 15:16:27

VB.NET.NETXML

2009-10-29 15:50:49

VB.NET Exce

2009-10-09 15:59:41

VB.NET对象

2010-01-11 17:58:36

VB.NET压缩ZIP

2009-11-10 15:52:20

VB.NET变量名

2009-10-19 17:42:31

VB.NET API函

2009-10-27 11:03:16

VB.NET文件夹操作

2010-01-11 14:28:14

VB.NET操作Exc

2010-01-15 16:46:05

VB.NET集合存储

2009-11-02 14:48:45

VB.NET HOOK

2010-01-14 17:41:57

VB.NET变量范围

2010-01-21 16:37:56

VB.NET变量声明

2009-10-29 17:01:03

VB.NET TXT文
点赞
收藏

51CTO技术栈公众号