<?xml version="1.0" standalone="yes" ?>
- <NewDataSet>
- <Empls>
<Id>1</Id>
<Name>App. Panda</Name>
<MiddleName>O</MiddleName>
<LastName>D</LastName>
<ManagerId>18</ManagerId>
<Salary>12500.00</Salary>
<Status>true</Status>
</Empls>
- <Empls>
<Id>2</Id>
<Name>Ramakrishna</Name>
<MiddleName>K</MiddleName>
<LastName>R</LastName>
<ManagerId>18</ManagerId>
<Salary>12500.00</Salary>
<Status>false</Status>
</Empls>
</NewDataSet>
Codes :
Imports System.Data
Imports System.Data.SqlClient
Partial Class Default3
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'Generating XML files and Write the Deatils from DataBase in XML file
Dim strCon As String = "Password=wizardpass;Persist Security Info=True;User ID=wizard;Initial Catalog=Testing;Data Source=IBM\SQL2005" '"Server=127.0.0.1;uid=sa;pwd=;Database=Northwind;"
Dim strSQL As String = "Select Id,Name,MiddleName,LastName,ManagerId,Salary,Status from Employee order by Id desc"
Dim objDataSet As New DataSet()
Dim objCon As SQLConnection
Dim objAdapter As SQLDataAdapter
objCon = New SQLConnection(strCon)
objAdapter = New SQLDataAdapter(strSQL, objCon)
objAdapter.Fill(objDataSet, "Empls")
objDataSet.WriteXml(Server.MapPath("employee_xml_file.xml"))
Response.Write("<a href=employee_xml_file.xml>Check your XML file</a>")
End Sub
End Class