- In Notepad, create a new XML document named Books.xml, and paste the following XML:
<!-- This file represents a fragment of a bookstore inventory database -->
- Save Books.xml in the root folder of drive C.
- Open a new Standard EXE project in Microsoft Visual Basic. Form1 is created by default.
- From the Project menu, click References, and then select the Microsoft XML 3.0 check box.
- Drag a Command button, and drop it onto Form1.
- Copy and paste the following code in the Click event procedure of the Command button:
Dim doc As MSXML2.DOMDocument
Dim nlist As MSXML2.IXMLDOMNodeList
Dim node As MSXML2.IXMLDOMNode
Set doc = New MSXML2.DOMDocument
doc.setProperty "SelectionLanguage", "XPath"
Set nlist = doc.selectNodes("//book/Title[contains(.,'ADO')]")
MsgBox "Matching Nodes : " & nlist.length
For Each node In nlist
Debug.Print node.nodeName & " : " & node.Text
- The preceding code loads the XML from Books.xml into an instance of the MSXML DOMDocument object. It then runs an XPath query that uses the contains XPath function to identify all Book titles that contain the word ADO. Finally, the For loop iterates through the selected nodes and displays the matching titles that were identified by running the XPath query.
- The first parameter of the contains XPath function is used to specify the source node or string against which the comparison is to be executed. The second parameter is a string that specifies the word or string value to look for in the source node. It is important to remember that the string or word that is supplied as the second parameter of the contains function is case sensitive.