<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
Converting XML to DataSet and Vice versa.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Dim Ds As New DataSet
Ds.ReadXml(Server.MapPath("Data.XML"))
Ds.AcceptChanges()
Ds.Tables(0).Rows(0).Item("LastModified") = DateTime.Now.ToString()
Dim dsChanges As DataSet
dsChanges = Ds.GetChanges()
dsChanges.WriteXml(Server.MapPath("") & "\DataWrite.xml")
Catch ex As Exception
lblvalue.text = ex.Message
End Try
End Sub
DSRead.xml | DSWrite.xml