The System.Xml Namespace
You'll use the System.Xml namespace for processing XML data. This namespace
supports an ever-expanding host of XML standards, such as the following:
XML 1.0
Namespaces
Schemas
XSL/T
SOAP 1.1
The System.Xml namespace contains classes that represent the various XML
elements, similar to the objects provided by the MSXML library for Visual
Basic 6.0 developers. For example, you'll find an XmlDocument class, an
XmlEntity class, and an XmlNode class. You can also use XmlValidatingReader
in order to read XML and validate it against a Document Type Definition
(DTD), XML Data Reduced (XDR) schema, or an XML Schema Definition (XSD).
The System.Xml namespace includes reader and writer classes that provide
fast, forward-only reading and writing of XML streams. Back in the
System.Data discussion, you learned about the DataReader class, which is
used for fast forward-only data access. XmlTextReader provides the same
basic functionality against an XML stream.
When you use a reader object to read XML, you can use properties of the
reader to determine each node type and act accordingly. A writer class has
methods such as WriteCData, WriteDocType, and WriteNode in order to create
an XML document, element by element.
A System.Xml Example
The example in Listing 4.5 combines several of the namespaces covered in
this chapter. First, it uses System.Data classes to read data from SQL
Server. Next, it uses System.IO classes to output that data into an XML
file. Finally, it reopens the original XML file and uses System.Xml to read
the contents of the file and copy the data into a text box. Here's the code:
NOTE
More node types are possible when reading in an XML document than are shown
in the Select Case statement. However, for brevity, the number of types
examined is small.
Listing 4.5 Use an XmlTextReader Class to Parse an XML Document
Imports System.IO
Imports System.XML
Imports System.Text
Imports System.Data.OleDb
Private Sub XMLWrite()
Dim strConn As String
Dim strSQL As String
Dim strName As String
Dim strXML As String
Dim sw As StreamWriter
Dim sr As XmlTextReader
Dim sb As New StringBuilder(256)
Dim da As OleDbDataAdapter
Dim ds As DataSet
strConn = "Provider=sqloledb;" & _
"Data Source=(local);" & _
"Initial Catalog=Northwind;" & _
"User ID=sa"
strSQL = "SELECT ProductID, ProductName FROM Products"
da = New OleDbDataAdapter(strSQL, strConn)
ds = New DataSet()
da.Fill(ds)
strName = "c:\test.xml"
sw = File.CreateText(strName)
sw.WriteLine(ds.GetXml)
sw.Close()
sr = New XmlTextReader(strName)
sr.WhitespaceHandling = WhitespaceHandling.None
' Parse the file and display each of the nodes.
While sr.Read()
Select Case sr.NodeType
Case XmlNodeType.Element
sb.AppendFormat("<{0}>", sr.Name)
Case XmlNodeType.Text
sb.Append(sr.Value)
Case XmlNodeType.XmlDeclaration
sb.Append("<?xml version='1.0'?>")
Case XmlNodeType.Document
Case XmlNodeType.DocumentType
sb.AppendFormat("<!DOCTYPE {0}[{1}]", _
sr.Name, sr.Value)
Case XmlNodeType.EndElement
sb.AppendFormat("</{0} >", sr.Name)
End Select
End While
txtXML.Text = sb.ToString()
End Sub
