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

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)

         ' 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

         ' 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())
         Console.WriteLine("Connection Closed")
      End Try
   End Sub
End Class


Related examples in the same category

1.Serialize Object to XML Stream and output to screen
2.Save Serializable Object to binary file: create a sequential-access file
3.Serializable Person Object
4.Serialize to Xml
5.Simple Serializable Person Object
6.MarshalByRefObject access objects across application domain