|
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim objDataSet As New DataSet()
' read in the XML file
objDataSet.ReadXml(Server.MapPath("Employees.xml"))
' show it in a grid
dgEmployees1.DataSource = objDataSet.Tables(0).DefaultView
dgEmployees1.DataBind()
' modify a row
objDataSet.Tables("Employees").Rows(0).Item("FirstName") = "B"
objDataSet.Tables("Employees").Rows(0).Item("LastName") = "D"
' add a new row to the table
Dim objTable As DataTable
Dim objNewRow As DataRow
objTable = objDataSet.Tables("Employees")
objNewRow = objTable.NewRow()
objNewRow.Item("FirstName") = "A"
objNewRow.Item("LastName") = "B"
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
</script>
<html>
<body>
<table>
<tr>
<td valign="top"><asp:DataGrid id="dgEmployees1" runat="server" /></td>
<td valign="top"><asp:DataGrid id="dgEmployees2" runat="server" /></td>
</tr>
</table>
</body>
</html>
<%-- Employees.xml
<?xml version="1.0" standalone="yes"?>
<NewDataSet>
<Employees>
<FirstName>Z</FirstName>
<LastName>X</LastName>
</Employees>
<Employees>
<FirstName>W</FirstName>
<LastName>R</LastName>
</Employees>
</NewDataSet>
--%>
|
