Private Sub SetParameters()
Dim Command As New SqlClient.SqlCommand("SalesByCategory")
‘SalesByCategory为存储过程名
Command.CommandType = CommandType.StoredProcedure
Command.Connection = dcNorthwind
Dim CategoryName As New SqlClient.SqlParameter() ‘定义参数变量
CategoryName.ParameterName = "@CategoryName" ‘指定参数变量对应的参数
CategoryName.SqlDbType = SqlDbType.NVarChar ‘指定参数的类型
Dim OrdYear As New SqlClient.SqlParameter()
OrdYear.ParameterName = "@OrdYear"
OrdYear.SqlDbType = SqlDbType.NVarChar
CategoryName.Value = "Condiments" ‘指定参数变量的值
OrdYear.Value = "1998"
Command.Parameters.Add(CategoryName)
Command.Parameters.Add(OrdYear)
Dim daSalesByCategory As New SqlClient.SqlDataAdapter()
daSalesByCategory.SelectCommand = Command
Dim dsNorthwind As New DataSet()
daSalesByCategory.Fill(dsNorthwind)
End Sub