VB.Net by API/System.Xml/XmlWriteMode — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 12:50, 26 мая 2010

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>