Validating Modified 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() Dim validation As ValidationEventHandler = New ValidationEventHandler(AddressOf SchemaValidationHandler) navigator.MoveToChild("bookstore", "http://www.yourname.com/books") navigator.MoveToChild("book", "http://www.yourname.com/books") navigator.MoveToChild("author", "http://www.yourname.com/books") navigator.AppendChild("<title>Book Title</title>") document.Validate(validation) navigator.MoveToParent() navigator.MoveToChild("price", "http://www.yourname.com/books") navigator.SetTypedValue(DateTime.Now) 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