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 nsArray As String() = {""}
Dim MyDS As DataSet = New DataSet()
MyDS.ReadXml("book.xml")
Console.WriteLine("Relation without schema:")
Dim myRelation As DataRelation
For Each myRelation In MyDS.Relations
Console.WriteLine(myRelation.RelationName)
Next
End Sub
End Class
|