XmlWriteMode.DiffGram : XmlWriteMode « System.Xml « VB.Net by API






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