如何运用DOM解析VB.NET XML文件

发布时间:2021-12-02 13:39:59 作者:小新
来源:亿速云 阅读:320

小编给大家分享一下如何运用DOM解析VB.NET XML文件,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

XML文件是安全的,在程序中我们大多数的文件都是XML文件,但是对于用DOM解析XML文件熟练运用的还是很少,如何使用DOM解析VB.NET XML文件呢?

1、建立字符串写文件,XML是由<></>组成,实际上把所有字符形成后再写进文件中即可。但此类方法不适合大数据的操作。
2、XLST,相当与CSS,VB不适合。
3、DOM。
所以介绍的是使用DOM来写VB.NET XML文件。以下范例以SQLSERVER的Northwind中Employee表进行示范。VB.NET XML文件代码如下:

Option Explicit     Public RsAs New ADODB.Recordset     Public Conn As New ADODB.Connection     Public tempDocAs 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.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 Me     End Sub     Private Sub Form_Load()     '连接SQLSERVER     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, adLockOptimistic     End Sub     Private Sub Form_Unload(Cancel As Integer)Rs.Close     Set Rs = Nothing    Conn.Close     Set Conn = Nothing    End Sub

以上是“如何运用DOM解析VB.NET XML文件”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注亿速云行业资讯频道!

推荐阅读:
  1. Android中怎么利用DOM解析XML
  2. DOM解析XML文件

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net xml

上一篇:VB.NET如何实现事件触发

下一篇:tk.Mybatis插入数据获取Id怎么实现

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》