typeddataset.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<Script Runat="Server">

Sub Page_Load
  Dim conPubs As SqlConnection
  Dim dadTitles As SqlDataAdapter
  Dim objTitlesDS As TitlesDS
  Dim objTitleRow As TitlesDS.TitlesRow

  ' Fill the typed dataset
  conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Pubs" )
  dadTitles = New SqlDataAdapter( "Select * From Titles", conPubs )
  objTitlesDS = New TitlesDS()
  dadTitles.Fill( objTitlesDS, "Titles" )

  ' Display its titles
  For each objTitleRow in objTitlesDS.Titles
    Response.Write( "<br>" & objTitleRow.Title )
    If Not objTitleRow.IsNotesNull Then
      Response.Write( "<br>" & objTitleRow.Notes )
    End If
    Response.Write( "<hr>" )
  Next
End Sub

</Script>