Mega Code Archive

 

Categories / VB.Net / ADO Database

 

Serializing DataSet into an XML DOM

Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Data.OleDb Imports System.Data.Common Imports System.Data.SqlClient Imports System.Data Imports System.Runtime.Serialization.Formatters Imports System.Runtime.Serialization.Formatters.Soap Imports System.Runtime.Serialization.Formatters.Binary Imports System.Xml.Serialization Public Class MainClass          Shared Sub Main()         Dim Connection As SqlConnection = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI")       Dim MyDA As SqlDataAdapter = New SqlDataAdapter( _          "SELECT * FROM Employee", Connection)       Dim MyDS As DataSet = New DataSet()       Console.WriteLine("Serializing DataSet into an XML DOM...")       Dim xStream As Stream = File.Open("MyDS.xml", _          FileMode.Create, FileAccess.ReadWrite)       Dim xs As XmlSerializer = New XmlSerializer(GetType(DataSet))       xs.Serialize(xStream, MyDS)       xStream.Close()     End Sub End Class