Mega Code Archive

 

Categories / ASP.Net / ADO Database

 

Save data from database to xml

<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <script language="VB" runat="server">   Sub Page_Load(Sender As Object, E As EventArgs)     Dim strConnection As String     Dim strSQL        As String     Dim objDataSet    As New DataSet()     Dim objConnection As OleDbConnection     Dim objAdapter    As OleDbDataAdapter     ' set the connection and query details     strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; " & _                     "Data Source=" & Server.MapPath("Northwind.mdb")     strSQL = "SELECT FirstName, LastName FROM Employees;"     ' open the connection and set the command     objConnection = New OledbConnection(strConnection)     objAdapter = New OledbDataAdapter(strSQL, objConnection)     ' fill the dataset with the data     objAdapter.Fill(objDataSet, "Employees")     objDataSet.WriteXml(Server.MapPath("Employees.xml"))          Response.Write("<a href='Employees.xml'>View XML file</a>")   End Sub </script>