急急急！！！

Question

在存储过程中:select * from tablename or viewnamereturn value

Answer 1

create procedure sp_name @parameter1 varchar[20] output
as
....
select * FROM table or view
returen [inter_expression]
--------------------------------
declare @para1 varchar[20]
EXEC sp_name @para1
select @para1

Answer 2

yxsalj(落入水里的石头)： 存储过程中必须要加return value吗？我是要在vb中调用这个结果集，怎么办？

Answer 3

CREATE PROC myNextproc AS
SELECT * FROM titles
SELECT * FROM publishers
GOThe stored procedure generates two result sets: one for the result of SELECT * FROM titles and the other for the result of SELECT * FROM publishers.The ADO code syntax is:Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset    cn.Provider = "sqloledb"
cn.Properties("Data Source") = "MyServerName"
cn.Properties("Initial Catalog") = "pubs"
cn.Properties("user ID") = "sa"
cn.Properties("password") = ""
cn.OpenCmd.CommandText = "myNextProc"
Cmd.CommandType = adCmdStoredProcSet rs = Cmd.Execute
While Not rs Is Nothing
    If (Not rs.EOF) Then
        Debug.Print rs(0)
    End If
    Set rs = rs.NextRecordset
Wend

Answer 4

set rst=conn.execute("存储过程名")

Answer 5

OpenVMS(半知半解)  ：仍然不可以！我也是同样的用法啊！告诉我recordSet对象关闭！ [如果没看错，这个例子应该是MSDN上的]

Answer 6

1、错误信息：
runtime Error '3704'
对象关闭时，操作不允许！
2、源码如下：
Public Function GetProductRecord()
    
    Dim strSQL As String
    Dim flag As Boolean
    Dim objCMD As New ADODB.Command
'    Dim gNewageConn As New ADODB.Connection
    Dim intRecordAffected As Integer
    flag = True
'-----------------2002-04-22----------为修改成为可以多个WebE Job同时运行
    strSQL = "exec sp_selectDealProduct"
'=======================================================================
    Set adoRSTemp = New Recordset
    
    objCMD.ActiveConnection = gNewageConn
    objCMD.CommandText = "sp_selectDealProduct"
    objCMD.CommandType = adCmdStoredProc
    
    Set adoRSTemp = objCMD.Execute
    
    'strSQL = "SELECT TOP 1 * FROM PRO_REGPRO AS A LEFT JOIN PRO_MODELNO AS B ON B.HPM_ID=A.HPM_ID WHERE PRG_ID=99435"
    'adoRSTemp.Open strSQL, gNewageConn, adOpenStatic, adLockOptimistic
    
'    Set adoRSTemp = gNewageConn.Execute(strSQL, intRecordAffected)
    
    If adoRSTemp.EOF Then flag = False
    
    GetProductRecord = flag
    
End Function