VB.Net/Database ADO.net/Database to SOAP
Serialize Data from database to SOAP
<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() Dim MyDS2 As DataSet = New DataSet() MyDA.Fill(MyDS, "Employee") Dim s As Stream = File.Open("MyDS.soap", _ FileMode.Create, FileAccess.ReadWrite) Dim sf As SoapFormatter = New SoapFormatter() sf.Serialize(s, MyDS) s.Close() End Sub
End Class
</source>