sqladdproduct.aspx

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

<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<%
Dim conNorthwind As SqlConnection
Dim cmdAddProduct As SqlCommand
Dim parmProductID As SqlParameter
Dim intProductID As Integer

conNorthwind = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=Northwind" )
cmdAddProduct = New SqlCommand( "AddProduct", conNorthwind )
cmdAddProduct.CommandType = CommandType.StoredProcedure

' Add Return Value Parameter
parmProductID = cmdAddProduct.Parameters.Add( "ReturnValue", SqlDbType.Int )
parmProductID.Direction = ParameterDirection.ReturnValue

' Add firstname Input Parameter
cmdAddProduct.Parameters.Add( "@ProductName", "Biscuits" )

' Add lastname Input Parameter
cmdAddProduct.Parameters.Add( "@UnitPrice", 23.87 )

conNorthwind.Open()
cmdAddProduct.ExecuteNonQuery()
intProductID = cmdAddProduct.Parameters( "ReturnValue" ).Value
conNorthwind.Close()
%>
The ID for the new product is <%=intProductID%>