Question

怎样在VB客户端调用带输出参数的存储过程？存储过程已经写在了SQL服务器中

谢谢高手！

Answer 1

这是我工作中写过的代码，贴出来分享。
是VB．NET2008，不知可用否。
VB6的就没有现成的，不过将这些代码稍改一下，就可用。

'执行储存过程procCheckStock，来校验盘点数据的正确性。
Dim cmd As SqlClient.SqlCommand
Dim Errcode As Integer
Dim ErrMsg As String

cmd = New SqlClient.SqlCommand("procCheckStock", dsisComFun.GetDBConnction)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add(New SqlClient.SqlParameter("@plantno", SqlDbType.VarChar, 7))
cmd.Parameters("@plantno").Value = invPlant

cmd.Parameters.Add(New SqlClient.SqlParameter("@host", SqlDbType.VarChar, 255))
cmd.Parameters("@host").Value = My.Computer.Name

cmd.Parameters.Add(New SqlClient.SqlParameter("@ip", SqlDbType.VarChar, 255))
cmd.Parameters("@ip").Value = dsisComFun.HostIPAddress

cmd.Parameters.Add(New SqlClient.SqlParameter("@userid", SqlDbType.VarChar, 7))
cmd.Parameters("@userid").Value = dsisComFun.LoginUserID

cmd.Parameters.Add(New SqlClient.SqlParameter("@entdt", SqlDbType.VarChar, 20))
cmd.Parameters("@entdt").Value = dsisComFun.ServerDate.ToShortDateString

cmd.Parameters.Add(New SqlClient.SqlParameter("@option", SqlDbType.Int))
cmd.Parameters("@option").Value = 1 '1=校验盘点数据选项

cmd.Parameters.Add(New SqlClient.SqlParameter("@errmsg", SqlDbType.VarChar, 200))
cmd.Parameters("@errmsg").Direction = ParameterDirection.Output

cmd.Parameters.Add(New SqlClient.SqlParameter("@r", SqlDbType.Int))
cmd.Parameters("@r").Direction = ParameterDirection.ReturnValue

cmd.ExecuteNonQuery()

Errcode = cmd.Parameters("@r").Value '处理的错误代码
ErrMsg = cmd.Parameters("@errmsg").Value '处理的错误