|
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
'<?xml version = "1.0"?>
'<books xmlns = "x-schema:book.xdr">
' <book>
' <title>C# How to Program</title>
' </book>
' <book>
' <title>Java How to Program, 4/e</title>
' </book>
' <book>
' <title>Visual Basic .NET How to Program</title>
' </book>
' <book>
' <title>Advanced Java 2 Platform How to Program</title>
' </book>
' <book>
' <title>Python How to Program</title>
' </book>
'</books>
|
