Validating XML documents against Schemas : XML Schema « XML « VB.Net Tutorial

1. VB.Net Tutorial
2. XML
3. XML Schema

Imports System.Xml
Imports System.Xml.Schema ' contains XmlSchemaSet class


Public Class Tester
   Private Shared schemas As XmlSchemaSet ' schemas to validate against
   Private Shared valid As Boolean = True ' validation result

    Public Shared Sub Main


      schemas = New XmlSchemaSet() ' create the XmlSchemaSet class

      schemas.Add("http://www.deitel.com/booklist", "book.xsd")

      Dim settings As New XmlReaderSettings()
      settings.ValidationType = ValidationType.Schema
      settings.Schemas = schemas
      AddHandler settings.ValidationEventHandler, AddressOf ValidationError

      Dim reader As XmlReader = XmlReader.Create("YourFile.xml", settings)

      While reader.Read()
      End While

      Console.WriteLine(valid)

      valid = True ' reset variable
      reader.Close() ' close reader stream 

    End Sub
   Private Shared Sub ValidationError(ByVal sender As Object, _
      ByVal arguments As ValidationEventArgs)
      Console.WriteLine(arguments.Message)
      valid = False
   End Sub 

End Class