Serialize Data to Binary and XML at the same time : Serialize Object « File Directory « VB.Net

1. VB.Net
2. File Directory
3. Serialize Object

Serialize Data to Binary and XML at the same time

  
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


           
         
    
  

Related examples in the same category