HOW TO: Validate an XML Document by Using Multiple Schemas in Visual Basic .NET

schemaColl.Add("urn:author", "authors.xsd");
schemaColl.Add("urn:author", "names.xsd");
				

Back to the top

Requirements

• Microsoft Visual Studio .NET installed on a compatible Microsoft Windows operating system

• Microsoft Visual Basic .NET
• XML standards
• XSD schemas

Back to the top

Create the Book.xsd File

1. Open a text editor such as Notepad.
2. Copy and paste the following code into Notepad:

   <xs:schema xmlns="urn:bookstore-schema"
            targetNamespace="urn:bookstore-schema"
            xmlns:xs="http://www.w3.org/2001/XMLSchema">
      <xs:element name="book">
         <xs:complexType>
            <xs:simpleContent>
               <xs:extension base="xs:string">
                  <xs:attribute name="price" type="xs:decimal" />
               </xs:extension>
            </xs:simpleContent>
         </xs:complexType>
      </xs:element>
   </xs:schema>
   					

3. Save the file as C:\Book.xsd.

Back to the top

Create the Tape.xsd File

1. Open a text editor such as Notepad.
2. Copy and paste the following code into Notepad:

   <xs:schema xmlns="urn:tapestore-schema"
            targetNamespace="urn:tapestore-schema"
            xmlns:xs="http://www.w3.org/2001/XMLSchema">
      <xs:element name="tape" type="xs:string"/>
   </xs:schema>
   					

3. Save the file as C:\Tape.xsd.

Back to the top

Create the Mixed.xml File

1. Open a text editor such as Notepad.
2. Copy and paste the following code into Notepad:

   <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:dvdstore-schema" targetNamespace="urn:dvdstore-schema">
       <xs:element name="dvd" type="xs:string" />
   </xs:schema>
     <pb:book price="7.99" xmlns:pb="urn:bookstore-schema">The Autobiography of Benjamin Franklin</pb:book>
     <pd:dvd xmlns:pd="urn:dvdstore-schema">The Godfather</pd:dvd>
     <pt:tape xmlns:pt="urn:tapestore-schema" xsi:schemaLocation="urn:tapestore-schema tape.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">Il Postino</pt:tape>
   					

3. Save the file as C:\Mixed.xml.

Back to the top

Create a Visual Basic .NET Project

1. Start Visual Studio .NET.
2. On the File menu, point to New, and then click Project.
3. Click Visual Basic Projects under Project Types, click Windows Application under Templates, and then click OK. Form1 is added to the project by default.
4. Drag a Button control to Form1.
5. Add the following namespaces to the top of the form:

   Imports System.Xml
   Imports System.Xml.Schema
   Imports System.IO
   					

6. Add the following sub procedure to create a ValidationEventHandler delegate that raises validation errors in the XmlValidatingReader object:

   Public Sub MyvalidationEventHandle(ByVal sender As Object, ByVal args As ValidationEventArgs)
          Console.WriteLine(args.Message)
       End Sub
   					

7. Paste the following code in the Button1_Click event procedure:

    Dim myschemacoll As New XmlSchemaCollection()
           Dim vr As XmlValidatingReader
           Dim stream As FileStream
           Try
               stream = New FileStream("c:\Mixed.xml", FileMode.Open)<BR/>
               'Load the XmlValidatingReader.
               vr = New XmlValidatingReader(stream, XmlNodeType.Element, Nothing)
   
               'Add the schemas to the XmlSchemaCollection object.
               myschemacoll.Add("urn:bookstore-schema", "c:\Book.xsd")
               myschemacoll.Add("urn:tapestore-schema", "c:\tape.xsd")
               vr.Schemas.Add(myschemacoll)
               vr.ValidationType = ValidationType.Schema
               AddHandler vr.ValidationEventHandler, AddressOf MyvalidationEventHandle
   
               While vr.Read()
               End While
               Console.WriteLine("Validation completed")
           'This code catches any XML exceptions. 
           Catch XmlExp As XmlException
               Console.WriteLine(XmlExp.Message)
           'This code catches any XML schema exceptions.
           Catch XmlSchemaExp As XmlSchemaException
               Console.WriteLine(XmlSchemaExp.Message)
           'This code catches any standard exceptions.
           Catch GeneralExp As Exception
               Console.WriteLine(GeneralExp.Message)
           Finally
           'Clean up.
               vr = Nothing
               myschemacoll = Nothing
               stream = Nothing
           End Try
   					

8. When the following message appears in the output window, the XML document is valid against all three of the schemas that it references:

   Validation completed
   						

Back to the top