Mega Code Archive

 

Categories / ASP.Net Tutorial / Response

 

Extracting XML from a SQL Server with System Data DataSet (VB)

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %> File: Default.aspx.vb Imports System.Data Imports System.Data.SqlClient 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")             Response.ContentType = "text/xml"             ds.WriteXml(Response.OutputStream)         End Using     End Sub End Class