Office中国论坛/Access中国论坛

标题: [分享]取得存儲過程返回值的最簡代碼 [打印本页]

作者: HG 时间: 2002-11-9 02:17
标题: [分享]取得存儲過程返回值的最簡代碼
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 时间: 2002-11-26 22:51
再次探討此問題，如果調用一個存儲過程，它有多個輸入和輸出參數，哪麼怎樣取得此過程執行後的返回值哪。用同樣的方法，也刷新參數，然後取第一個參數的值，卻判斷失敗。
請各位指點。多謝!

作者: royi 时间: 2003-6-22 00:03
老大，有结果了吗？

作者: royi 时间: 2003-6-22 06:22
老大,你最上面发的代码不能执行呀,出错!
HG老大能详细的说一下如何取得存储过程的返回值吗?

作者: royi 时间: 2003-6-23 17:13
搞定了!

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

作者: HG 时间: 2003-8-12 02:05
或者：
在cm.execute my_procedure后
就
debug.print cm.paramters(0)
看一看是不是你所想要的返回值!

作者: gofun 时间: 2003-8-24 05:50
不行呀，我问了好多人都搞不清，为什么呀

作者: HG 时间: 2003-9-13 17:24

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)