如何调用带输出参数的存储过程。

[蔡健常熟]

CREATE PROCEDURE Build_SP
@Str_ZW as char(40),
@Str_PY as char(20) output
AS
select @Str_PY=......
return
GO

我用
dim pydm as string
RS.open "exec Build_sp " & text1.text & "," & pydm & "Output"
出错，怎么才能把Build_sp 的@Str_PY这个输出参数赋值给变量pydm?

[蔡健常熟]

谢谢指教！

[frankwong]

Dim Cmd As New Command
Cmd.ActiveConnection =连接对象
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "Build_SP"
Cmd.Parameters("@Str_ZW")=text1.text
Cmd.Parameters("@Str_PY").Direction = adParamOutput
Cmd.Execute
dim pydm as string
pydm=Cmd.Parameters("@Str_PY")

[frankwong]

另外：执行存储过程，特别是输入参数值可以由手工任意输入的最好不要象楼主这样执行，对服务器很危险。