sqladduniqueproduct.aspx

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

<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<%
Dim conNorthwind As SqlConnection
Dim cmdAddunique As SqlCommand
Dim parmReturnValue As SqlParameter

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

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

' Add product name Input Parameter
cmdAddUnique.Parameters.Add( "@ProductName", "Milk" )

' Add unit price name Input Parameter
cmdAddUnique.Parameters.Add( "@UnitPrice", 43.89 )

' Execute Command
conNorthwind.Open()
cmdAddUnique.ExecuteNonQuery()

If cmdAddUnique.Parameters( "ReturnValue" ).Value = 0 Then
  Response.Write( "New Product Added!" )
Else
  Response.Write( "Product already exists!" )
End If
conNorthwind.Close()
%>