<%@ 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