|
<%@ Page Language="vb" Src="DisplayXmlFromQuery.aspx.vb" Inherits="DisplayXml" %> <asp:xml id="xmlControl" runat="server" /> |
|
Imports System Imports System.Xml Imports System.Data Imports System.Data.SqlClient Public Class DisplayXml : Inherits System.Web.UI.Page Public xmlControl As System.Web.UI.WebControls.Xml Sub Page_Load(sender As Object, e As EventArgs) Dim objConn As SqlConnection Dim ds As New DataSet() objConn = New SqlConnection("server=localhost;database=Northwind;uid=sa;pwd=secret;") Dim dataAdapter As New SqlDataAdapter("Select Top 10 * From Customers", objConn) dataAdapter.Fill(ds, "Customers") ds.DataSetName = "CustomerListing" Dim xmlDoc As XmlDataDocument = New XmlDataDocument(ds) xmlControl.Document = xmlDoc End Sub End Class |