VB.Net by API/System.Xml/XmlWriteMode

XmlWriteMode.DiffGram

<source lang="vbnet"> 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>

 </source>