sqlstoredprocedurequery.aspx

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

<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<%
Dim conPubs As SqlConnection
Dim cmdSelect As SqlCommand
Dim dtrAuthors As SqlDataReader

conPubs = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=pubs" )
cmdSelect = New SqlCommand( "SelectAuthors", conPubs )
cmdSelect.CommandType = CommandType.StoredProcedure
conPubs.Open()
dtrAuthors = cmdSelect.ExecuteReader()
While dtrAuthors.Read()
  Response.Write( "<li>" )
  Response.Write( dtrAuthors( "au_lname" ) )
End While
dtrAuthors.Close()
conPubs.Close()
%>