Dim cklb As String
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
cmd.CommandText = "Exec usp_pd_price '" & ck & "', '" & strID & "','" & ds & "','" & de & "'," & cklb & " output "
'cmd.CommandText = "exec usp_pd_price ?,?,?,? ,? output" '带输出参数
'cmd.Parameters.Add("@ck",ck) '输入参数
'cmd.Parameters.Add("@strID",strID) '输入参数
'cmd.Parameters.Add("@ds",ds) '输入参数
'cmd.Parameters.Add("@de",de) '输入参数
'cmd.Parameters.Add("@cklb", "", True) '输出参数
cmd.ExecuteNonQuery
'msgbox(cmd.Parameters("@cklb"))
msgbox(cklb)
用上面注释掉的语句可以正确得到储存过程传回的输出参数值,但用红色传统的写法msgbox中却显示空值,应该如何写才正确?
谢谢!
加好友 
发短信
Post By：2019/12/13 11:18:00 [只看该作者]
