Update and insert XML Element with DataSet : XML DataSet « XML « VB.Net






Update and insert XML Element with DataSet

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

1.Read XML schema with DataSet and output its structureRead XML schema with DataSet and output its structure
2.Load xml document to DataSet