Mega Code Archive

 

Categories / VB.Net / XML

 

Validate contosoBooks xml

Imports System Imports System.Xml Imports System.Xml.Schema Imports System.Xml.XPath   Class ValidatingReaderExample     Shared Sub Main(ByVal args() As String)         Try             Dim settings As XmlReaderSettings = New XmlReaderSettings()             settings.Schemas.Add("http://www.yourname.com/books", "contosoBooks.xsd")             settings.ValidationType = ValidationType.Schema             Dim reader As XmlReader = XmlReader.Create("contosoBooks.xml", settings)             Dim document As XmlDocument = New XmlDocument()             document.Load(reader)             Dim navigator As XPathNavigator = document.CreateNavigator()         Catch e As Exception             Console.WriteLine("ValidatingReaderExample.Exception: {0}", e.Message)         End Try     End Sub     Shared Sub SchemaValidationHandler(ByVal sender As Object, ByVal e As ValidationEventArgs)         Select Case e.Severity             Case XmlSeverityType.Error                 Console.WriteLine("Schema Validation Error: {0}", e.Message)                 Exit Sub             Case XmlSeverityType.Warning                 Console.WriteLine("Schema Validation Warning: {0}", e.Message)                 Exit Sub         End Select     End Sub End Class