存儲過程能不能輸出一個查詢表到recordset,怎麼實現?

[l000000]

set conn=server.CreateObject("ADODB.Connection")
set cmd=Server.CreateObject("ADODB.Command")
conn.open "driver={sql server};server=promise;uid=sa;pwd=promise;database=test1"
cmd.ActiveConnection=conn
cmd.CommandType=4
cmd.CommandText="liu"
cmd.parameters.append cmd.CreateParameter("@productid",adInteger,adParamInput)
cmd("@productid")="1"
Set adoRS = cmd.Execute

While Not adoRS.EOF
for each adoField in adoRS.Fields
Response.Write adoField.Name & "=" & adoField.Value & "<br>" & vbCRLF
Next
Response.Write "<br>"
adoRS.MoveNext
Wend


怎麼什麼結果都沒有，在sql中能輸出一個表的,存儲過程如下：

CREATE PROCEDURE liu
@productid int
AS
select * from product where productid=@productid

[l000000]

都有，在sql裡面測試過了的，存儲過程沒問題，現在用的試command，用recordset也實現不了

[l000000]

csdn裡怎麼沒人嗎

[wanglh100]

adoRS前面有定义成ADODB.RecordSet吗?

当productId = 1 时数据库里有记录吗?

[lzhblacker]

光柱

[sungcong]

set conn=server.CreateObject("ADODB.Connection")
set cmd=Server.CreateObject("ADODB.Command")
conn.open "driver={sql server};server=promise;uid=sa;pwd=promise;database=test1"

Set adoRS = conn.Execute "Execute liu @productid=1"

While Not adoRS.EOF
for each adoField in adoRS.Fields
Response.Write adoField.Name & "=" & adoField.Value & "<br/>" & vbCRLF
Next
Response.Write "<br/>"
adoRS.MoveNext
Wend

[小赵]

不是很懂

[u2g2000]

select * from product where productid=@productid

省略where部分看看

[好记忆不如烂笔头abc]

高手都跑哪去了？

[lonaerd]

参数类型错误：

cmd.parameters.append cmd.CreateParameter("@productid",adInteger,adParamInput)
cmd("@productid")="1"

改为

cmd("@productid")=1

如果是变量就要强制转换
cmd("@productid")=cint(v1)