Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Imports System.Data
Imports System.Windows.Forms
Public Class MainClass
Shared Sub Main()
Dim nsArray As String() = {""}
Dim MyDS As DataSet = New DataSet()
MyDS.ReadXml("book.xml")
Console.WriteLine("Inferred Relational Structure:")
Dim myTable As DataTable
For Each myTable In MyDS.Tables
Console.WriteLine("Table {0}", myTable.TableName)
Dim myColumn As DataColumn
For Each myColumn In myTable.Columns
Console.WriteLine(" {0}", myColumn.ColumnName)
Next
Next
End Sub
End Class
'
'
'
' C# How to Program
'
'
' Java How to Program, 4/e
'
'
' Visual Basic .NET How to Program
'
'
' Advanced Java 2 Platform How to Program
'
'
' Python How to Program
'
'