[分享]取得存儲過程返回值的最簡代碼

HG

Public Function dimission(emp_sn As Integer)
Dim comm As New ADODB.Command
With comm
  .ActiveConnection = CurrentProject.Connection
  .CommandType = adCmdStoredProc
  .CommandText = "usp_emp_dimission"
  .Parameters.Refresh
  .Parameters(1).Value = emp_sn
  .Execute
End With
If comm.Parameters(0).Value = 0 Then
  MsgBox "procedure was successful! tks your use!"
Else
  MsgBox "employee no:" & CStr(emp_sn) & " dimission fial", vbOKCancel, "HG_info"
End If
Set comm = Nothing
End Function
-----------------------------------------原創--------------------------
[em23]

HG

以下是引用royi在2003-6-23 9:13:25的发言：
搞定了!

你问下royi不就知道是怎么回事了吗？何不自忆多试试！
我用此法从没出过问题！

gofun

不行呀，我问了好多人都搞不清，为什么呀

HG

或者：
在cm.execute my_procedure后
就
debug.print cm.paramters(0)
看一看是不是你所想要的返回值!

HG

如果你取不到正确的返回值，试试在过程开始Set nocount on ，在过程结束时set nocount off.
如果过程成功执行返回值为0，若出错返回值为出错代码！
如过你还是取不到正确返回值，也可以试着把用输出参数来输出执行完毕结果，来实现类似return的功能！谢！

royi

搞定了!

royi

老大,你最上面发的代码不能执行呀,出错!
HG老大能详细的说一下如何取得存储过程的返回值吗?

royi

老大，有结果了吗？

HG

再次探討此問題，如果調用一個存儲過程，它有多個輸入和輸出參數，哪麼怎樣取得此過程執行後的返回值哪。用同樣的方法，也刷新參數，然後取第一個參數的值，卻判斷失敗。
請各位指點。多謝!