Mega Code Archive

 

Categories / VB.Net by API / System Data

 

DataSet WriteXmlSchema

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")       MyDS.WriteXmlSchema("InferredSchema.xds")     End Sub End Class