<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
Sub Page_Load(Sender As Object, E As EventArgs)
Dim objDataSet As New DataSet()
' read in the XML file
objDataSet.ReadXml(Server.MapPath("NewEmployees.xml"))
' show it in a grid
dgEmployees1.DataSource = objDataSet.Tables(0).DefaultView
dgEmployees1.DataBind()
' modify a row
objDataSet.Tables("employee").Rows(0).Item("firstName") = "Bob"
objDataSet.Tables("employee").Rows(0).Item("lastName") = "Dylan"
' add a new row to the table
Dim objTable As DataTable
Dim objNewRow As DataRow
objTable = objDataSet.Tables("employee")
objNewRow = objTable.NewRow()
objNewRow.Item("firstName") = "Norman"
objNewRow.Item("lastName") = "Blake"
objTable.Rows.Add(objNewRow)
' save it to a new file
objDataSet.WriteXml(Server.MapPath("Employees2.xml"))
' read in the new file
Dim objDataSet2 As New DataSet()
objDataSet2.ReadXml(Server.MapPath("Employees2.xml"))
' show it in another grid
dgEmployees2.DataSource = objDataSet2.Tables(0).DefaultView
dgEmployees2.DataBind()
End Sub
<%--
Nancy
Lee
Seattle
WA
98122
Jason
Wang
Vancouver
WA
98123
--%>