Read XML without schema and output its structure
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>
Related examples in the same category
