Changing DataSets using the DOM APIs from XmlDataDocument (VB) : XmlDataDocument « XML « ASP.NET Tutorial

1. ASP.NET Tutorial
2. XML
3. XmlDataDocument

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

File: Default.aspx.vb

Imports System.Data
Imports System.Data.SqlClient
Imports System.Xml

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
           Handles Me.Load
        Dim connStr As String = "database=Northwind;Data Source=.\SQLEXPRESS; " _
               & "User id=Tom;pwd=password"

        Using conn As New SqlConnection(connStr)
            Dim command As New SqlCommand("select * from customers", conn)
            conn.Open()
            Dim ds As New DataSet()
            ds.DataSetName = "Customers"
            ds.Load(command.ExecuteReader(), LoadOption.OverwriteChanges, "Customer")

            Dim doc As New XmlDataDocument(ds)
            doc.DataSet.EnforceConstraints = False
            Dim node As XmlNode = _
            doc.SelectSingleNode("//Customer[CustomerID = 'ANATR']/ContactTitle")
            node.InnerText = "Boss"
            doc.DataSet.EnforceConstraints = True

            Dim dr As DataRow = doc.GetRowFromElement(CType(node.ParentNode, XmlElement))
            Response.Write(dr("ContactName").ToString() & " is the ")
            Response.Write(dr("ContactTitle").ToString())
        End Using
    End Sub
End Class