<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
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
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="+MapPath("EmployeeDatabase.mdb")
strSQL = "SELECT FirstName, LastName FROM Employee;"
objConnection = New OledbConnection(strConnection)
objAdapter = New OledbDataAdapter(strSQL, objConnection)
objAdapter.Fill(objDataSet, "Employees")
objDataSet.WriteXml(Server.MapPath("Employee2.xml"))
Response.Write("XML File Generated")
End Sub
EmployeeDatabase.zip( 10 k)