Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Collections
Imports System.Data
Public Class MainClass
Shared Sub Main()
Dim MyDS As New DataSet()
MyDS.ReadXmlSchema("book.xdr")
MyDS.ReadXml("book.xml")
MyDS.AcceptChanges()
Dim NewBook As DataRow = MyDS.Tables("Book").NewRow()
NewBook("Title") = "This ADO.NET Book"
MyDS.Tables("Book").Rows.Add(NewBook)
MyDS.WriteXml("Books_Changes.xml", XmlWriteMode.DiffGram)
MyDS.AcceptChanges()
MyDS.WriteXml("Books_New.xml", XmlWriteMode.IgnoreSchema)
End Sub
End Class
"book.xdr
"<?xml version = "1.0"?>
"<Schema xmlns = "urn:schemas-microsoft-com:xml-data">
" <ElementType name = "title" content = "textOnly"
" model = "closed" />
" <ElementType name = "book" content = "eltOnly" model = "closed">
" <element type = "title" minOccurs = "1" maxOccurs = "1" />
" </ElementType>
" <ElementType name = "books" content = "eltOnly" model = "closed">
" <element type = "book" minOccurs = "0" maxOccurs = "*" />
" </ElementType>
"</Schema>