XmlWriteMode.DiffGram
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>
Related examples in the same category