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