Read XML schema with DataSet and output its structure : XML DataSet « XML « VB.Net

1. VB.Net
2. XML
3. XML DataSet

Read XML schema with DataSet and output its structure

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")

        Console.WriteLine("Book Structure:")
        Dim Table As DataTable
        For Each Table In MyDS.Tables
            Console.WriteLine("Table {0}", Table.TableName)
            Dim Column As DataColumn
            For Each Column In Table.Columns
                Console.WriteLine("  {0}", Column.ColumnName)
            Next
        Next
    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