Imports System
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
Public Class MainmClass
Public Shared Sub DisconnectedExample()
Dim doc As New XDocument
Using con As New SqlConnection
con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;"
Using com As SqlCommand = con.CreateCommand
com.CommandType = CommandType.Text
com.CommandText = "SELECT DepartmentID, [Name], GroupName FROM HumanResources.Department FOR XML AUTO;"
con.Open()
Using reader As XmlReader = com.ExecuteXmlReader
Dim root As XElement = <Results></Results>
While reader.Read
If reader.NodeType = XmlNodeType.Element Then
Dim newChild As XNode = XElement.ReadFrom(reader)
root.Add(newChild)
End If
End While
doc.Add(root)
End Using
con.Close()
End Using
End Using
Console.WriteLine(doc.ToString)
End Sub
Public Shared Sub Main()
DisconnectedExample()
End Sub
End Class
|
