в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:45:37Z

1 версия

Новая страница

==De-Serializing Graph from SOAP Envelope==

<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()
Console.WriteLine("De-Serializing Graph from SOAP Envelope...")

Dim r As Stream = File.Open("MyDS.soap", _
FileMode.Open, FileAccess.Read)
Dim sf2 As SoapFormatter = New SoapFormatter()
MyDS2 = CType(sf2.Deserialize(r), DataSet)
r.Close()
Console.WriteLine( _
"After Deserialization, MyDS2 contains {0} Employee", _
MyDS2.Tables("Employee").Rows.Count)

End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Network Remote/SOAP Envelope - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия