VB.Net/Database ADO.net/DataSet to Binary

Материал из VB Эксперт
Версия от 15:44, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Serializing DataSet to Binary Format

<source lang="vbnet"> Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Data.OleDb Imports System.Data.rumon 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("Now Serializing to Binary Format...")
     Dim bs As Stream = File.Open("MyDS.bin", _
        FileMode.Create, FileAccess.ReadWrite)
     Dim bf As BinaryFormatter = New BinaryFormatter()
     bf.Serialize(bs, MyDS)
     bs.Close()
   End Sub

End Class


      </source>