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
'
'
' ' model = "closed" />
'
'
'
'
'
'
'