Create and configure a new command that includes the FOR XML AUTO clause

  
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

Related examples in the same category

1.	Save result from 'select' command directly to a XML file
2.	Serializing DataSet into an XML DOM
3.	Save data from database table directly to XML document
4.	Output data in database to XML directly

Create and configure a new command that includes the FOR XML AUTO clause : Database to XML « Database ADO.net « VB.Net

Related examples in the same category