Mega Code Archive

 

Categories / VB.Net / XML

 

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