Imports System
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.Runtime.Serialization.Formatters.Binary
public class MainClass
Shared Sub Main()
'Create Connection object
Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=MyDatabase")
Dim sql As String = "SELECT * FROM Employee"
Dim fs As New FileStream("Employee.bin",FileMode.Create)
Try
' Create Data Adapter
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(sql, thisConnection)
' Create and fill Dataset
Dim ds As New DataSet
da.Fill(ds, "Employee")
' Extract DataSet to XML file
ds.WriteXml("Employee.xml")
' Create binary formatter
Dim bf As New BinaryFormatter()
' Specify binary serialization for dataset
ds.RemotingFormat = SerializationFormat.Binary
' Output dataset
bf.Serialize(fs, ds)
Catch ex As SqlException
Console.WriteLine("Error: " & ex.ToString())
Finally
fs.Close()
thisConnection.Close()
Console.WriteLine("Connection Closed")
End Try
End Sub
End Class
|
