这样调用存储过程错在那里?

Question

CREATE PROCEDURE SelectCmd 
@uid varchar(11) 
AS
select * from product where [userid]=@uid
GO
----------------------------------------
代码:
 Dim DS As DataSet
'建立数据连接和命令对象 
Dim rConn As SQLConnection
'设置命令对象
Dim rComm As SQLCommand
'建立数据库的连接
rConn = New SQLConnection("server=localhost;uid=sa;pwd=;database=test1")
rComm = New SQLCommand("SelectCmd",rConn)
rComm.commandtype=commandtype.StoredProcedure
Dim sampParm As SqlParameter = rcomm.Parameters.Add(New SQLParameter("@uid", SQLDbType.nVarChar, 11))
rComm.parameters("@uid")=Request.QueryString("id") (id为上个界面传递下来的数据)     
'获得纪录的ID号码
rComm.CommandTimeout = 30
Dim custDA As SqlDataAdapter = New SqlDataAdapter
custDA.SelectCommand = rComm
'填充数据集
DS = new DataSet()
custDA.Fill(ds, "product")
'打包
rDG.DataSource=ds.Tables("product").DefaultView
rDG.DataBind()
然望帮忙

Answer 1

楼上LoveCherry改好了，后面加个value就可以了：rComm.parameters("@uid").value = Request.QueryString("id")

Answer 2

Dim nwindConn As SqlConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;" & _
                                                   "Initial Catalog=northwind")Dim salesCMD As SqlCommand = New SqlCommand("SalesByCategory", nwindConn)
salesCMD.CommandType = CommandType.StoredProcedureDim myParm As SqlParameter = salesCMD.Parameters.Add("@CategoryName", SqlDbType.NVarChar, 15)
myParm.Value = "Beverages"nwindConn.Open()Dim myReader As SqlDataReader = salesCMD.ExecuteReader()Console.WriteLine("{0}, {1}", myReader.GetName(0), myReader.GetName(1))Do While myReader.Read()
  Console.WriteLine("{0}, ${1}", myReader.GetString(0), myReader.GetDecimal(1))
LoopmyReader.Close()
nwindConn.Close()