Save data from database table directly to XML document : Database to XML « Database ADO.net « VB.Net

1. VB.Net
2. Database ADO.net
3. Database to XML

Save data from database table directly to XML document

 
Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Data.SqlClient
Imports System.Collections
Imports System.Data


Public Class MainClass
    
    Shared Sub Main()
        Dim da As New SqlDataAdapter( _
                   "SELECT ID, FirstName, LastName FROM Employee", _
                   "Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI")

        Dim ds As New DataSet("Employee")
        da.FillSchema(ds, SchemaType.Source)
        ds.ReadXml("Employee.xml")

        Dim Table As DataTable = ds.Tables(0)
        Dim numCols As Integer = Table.Columns.Count

        Dim Row As DataRow
        For Each Row In Table.Rows
            Dim i As Integer
            For i = 0 To numCols - 1
                Console.WriteLine(Table.Columns(i).ColumnName & " = " & Row(i))
            Next
            Console.WriteLine()
        Next
    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.	Output data in database to XML directly
4.	Create and configure a new command that includes the FOR XML AUTO clause