Mega Code Archive
Read XML schema with DataSet and output its structure
<![CDATA[
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>
]]>