日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
教你運(yùn)用DOM解析VB.NETXML文件

XML文件是安全的，在程序中我們大多數(shù)的文件都是XML文件，但是對于用DOM解析XML文件熟練運(yùn)用的還是很少，如何使用DOM解析VB.NET XML文件呢？在這里就和大家一起看一個案例分析吧！
#T#1、建立字符串寫文件，XML是由<>組成，實(shí)際上把所有字符形成后再寫進(jìn)文件中即可。但此類方法不適合大數(shù)據(jù)的操作。
2、XLST，相當(dāng)與CSS，VB不適合。
3、DOM。
所以介紹的是使用DOM來寫VB.NET XML文件。以下范例以SQLSERVER的Northwind中Employee表進(jìn)行示范。VB.NET XML文件代碼如下：

為泉港等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及泉港網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作、泉港網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

 
 
    
  
  
  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. '生成根節(jié)點(diǎn)并把它設(shè)置為文件的根     
    14.   
  
  14. Set Root = tempDoc.createElement("employees")     
    15.   
  
  15. Set tempDoc.documentElement = Root    
    16.   
  
  16. '在節(jié)點(diǎn)上添加多個屬性     
    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. '生成孩子節(jié)點(diǎn)添加到根節(jié)點(diǎn)上去，并且為這個節(jié)點(diǎn)設(shè)置一個屬性     
    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.

本文標(biāo)題：教你運(yùn)用DOM解析VB.NETXML文件
分享網(wǎng)址：http://www.dlmjj.cn/article/cogdhdj.html