Output data relation from XML document
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