<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
Using a Built-in Stored Procedure With Parameters
Sub Page_Load(Source As Object, E As EventArgs)
If Not IsPostBack Then
Dim strConnection As String = ConfigurationSettings.AppSettings("NorthWind")
Dim objConnection As New SqlConnection(strConnection)
Dim objCommand As New SqlCommand("SELECT CustomerID, CompanyName " & _
"FROM Customers", objConnection)
objConnection.Open()
lbCustomers.DataSource = objCommand.ExecuteReader()
lbCustomers.DataTextField = "CompanyName"
lbCustomers.DataValueField = "CustomerID"
lbCustomers.DataBind()
objConnection.Close()
End If
End Sub
Sub Submit(ByVal Source As Object, ByVal E As EventArgs)
Dim strConnection As String = ConfigurationSettings.AppSettings("NWind")
Dim objConnection As New SqlConnection(strConnection)
Dim objCommand As New SqlCommand("CustOrdersOrders", objConnection)
objCommand.CommandType = CommandType.StoredProcedure
Dim objParameter As New SqlParameter("@customerid", SqlDbType.NChar, 5)
objCommand.Parameters.Add(objParameter)
objParameter.Direction = ParameterDirection.Input
objParameter.Value = lbCustomers.SelectedItem.Value
objConnection.Open()
dgOutput.DataSource = objCommand.ExecuteReader()
dgOutput.DataBind()
objConnection.Close()
End Sub
Northwind.zip( 736 k)