Execute the command and retrieve and XmlReader to access the results
Imports System
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
Public Class MainmClass
Public Shared Sub ConnectedExample()
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
While reader.Read
If reader.NodeType = XmlNodeType.Element Then
Dim currentEle As XElement = XElement.ReadFrom(reader)
Console.WriteLine("Element: {0}", currentEle.Name)
If currentEle.HasAttributes Then
For i As Integer = 0 To currentEle.Attributes.Count - 1
Console.Write(" {0}: {1}", currentEle.Attributes()(i).Name, currentEle.Attributes()(i).Value)
Next
End If
End If
End While
End Using
con.Close()
End Using
End Using
End Sub
Public Shared Sub Main()
ConnectedExample()
End Sub
End Class
Related examples in the same category
