Read XML data (1 Viewer)

  <?xml version="1.0" ?> 
- <compactdiscs>
- <compactdisc>
  <artist type="individual">Frank Sinatra</artist> 
  <title numberoftracks="4">In The Wee Small Hours</title>

<?xml version="1.0" ?> 
<compactdiscs>
	<compactdisc>
		<artist type="individual">Frank Sinatra</artist> 
		<title numberoftracks="4">In The Wee Small Hours</title>
	</compactdisc>
</compactdiscs>

Public Sub GetAttr()
    'Be sure to set a reference to Microsoft XML, I have version 5, but I believe a minimum of version 3 will be necessary
    'Instantiate our varibales
    Dim oxmldoc As DOMDocument30
    Dim oNode As IXMLDOMNode
    Set oxmldoc = New DOMDocument30
    
    'Load the xml file, I choose to load a local file in this example as it takes less code than an http request
    oxmldoc.Load ("temp.xml")
    
    'This will set our oNode variable to the root node of the xml file
    Set oNode = oxmldoc.selectSingleNode("compactdiscs")
    
    'From the root node, this is how you reference the attribute that you want for the first compactdisc entity
    Debug.Print oNode.childNodes(0).childNodes(0).Attributes(0).nodeTypedValue
    
End Sub

<?xml version="1.0"?>

<mycomputer>

   <pc type="Laptop" brand="Toshiba" model="Tecra 8000">

      <type type1="Laptop1" brand1="Toshiba1" model1="Tecra 80001">Laptop</type>

      <brand>Toshiba</brand>

      <model>Tecra 8000</model>

      <processor>300 Mhz Pentium II</processor>

      <ram>128 MB</ram>

      <drives>

         <drive>9 MB Hard Disk</drive>

         <drive>1.4 MB Floppy Disk</drive>

         <drive>CD-ROM</drive>

      </drives>

      <display>14 inch active matrix LCD panel</display>

      <modem>Toshiba internal V.90</modem>

      <network>Xircom Cardbus Ethernet II 10/100</network>

   </pc>

   <case brand="USL" color="black" fabric="vinyl"/>

</mycomputer>

Public Sub LoadDocument()
Dim xdoc As DOMDocument30
Dim xmlDoc As String

xmlDoc = "Yourpath\MyPc.xml"

Set xdoc = New DOMDocument30
xdoc.validateOnParse = False
If xdoc.Load(xmlDoc) Then
   ' The document loaded successfully.
   ' Now do something intersting.
    DisplayNode xdoc.childNodes, 0, xdoc

Else
   ' The document failed to load.
   Dim strErrText As String
   Dim xPE As MSXML2.IXMLDOMParseError
   ' Obtain the ParseError object
   Set xPE = xdoc.parseError
   With xPE
      strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With

    MsgBox strErrText, vbExclamation
End If

Set xPE = Nothing

End Sub

Public Sub DisplayNode(ByRef Nodes As MSXML2.IXMLDOMNodeList, _
   ByVal Indent As Integer, xdoc As DOMDocument30)
   
Dim xNode As IXMLDOMNode
Dim oNode As IXMLDOMNode
Dim xattr As IXMLDOMAttribute
Dim xattr1  As IXMLDOMAttribute
Dim xElem As IXMLDOMElement
Dim strSQL As String
Dim strSQL1 As String

   Indent = Indent + 1
    
On Error Resume Next

   For Each xNode In Nodes
      
      Debug.Print Space$(Indent) & xNode.parentNode.nodeName & _
            ":" & xNode.nodeValue & ":" & xNode.nodeTypedValue & _
            ":" & xNode.nodeType & ":";
      
        For Each xattr In xNode.parentNode.Attributes
        strSQL1 = strSQL1 & ": " & xattr.BaseName
        strSQL = strSQL & ": " & xattr.Value
        Next xattr
        
        For Each xattr1 In xNode.Attributes
        strSQL1 = strSQL1 & ": " & xattr1.BaseName
        strSQL = strSQL & ": " & xattr1.Value
        Next xattr1
    

    If xNode.hasChildNodes Then
        DisplayNode xNode.childNodes, Indent, xdoc
      
    End If
    Next xNode
   
End Sub