Save result from 'select' command directly to a XML file

 
Imports System
Imports System.Data
Imports System.Data.SqlClient


public class MainClass
   Shared Sub Main()
      Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
          "integrated security=sspi;database=MyDatabase")
      ' Sql Query 
      Dim sql As String = _
         "SELECT * FROM Employee"

      Try
         ' Create Data Adapter
         Dim da As New SqlDataAdapter
         da.SelectCommand = New SqlCommand(sql, thisConnection)

         ' Create and fill Dataset
         Dim ds As New DataSet
         da.Fill(ds, "Employee")

         ' Extract DataSet to XML file
         ds.WriteXml("Employee.xml")

      Catch ex As SqlException
         ' Display error
         Console.WriteLine("Error: " & ex.ToString())
      Finally
         ' Close Connection
         thisConnection.Close()
         Console.WriteLine("Connection Closed")
      End Try
   End Sub
End Class

Related examples in the same category

1.	Serializing DataSet into an XML DOM
2.	Save data from database table directly to XML document
3.	Output data in database to XML directly
4.	Create and configure a new command that includes the FOR XML AUTO clause

Save result from 'select' command directly to a XML file : Database to XML « Database ADO.net « VB.Net

Related examples in the same category