SQL存儲過程返回值小問﹐在線等待

Question

過程如下﹕
CREATE PROCEDURE spUserLogin 
@UserID char(4),@UserName char(50),@LoginSucc bit output
As
declare @procError int
 if exists(select UserID from tblUser where UserID=@UserID and UserName=@UserName)
   begin   
        set @LoginSucc=1
   end
else
    begin
        set @LoginSucc=0
     end
GO
在FORM中調用過程并取過程中@LoginSucc的值﹐應該如何編寫代碼比較簡單（最好用對象﹐當然用adodc控件）﹐謝謝。

Answer 1

Public Function getloginsucc(userid As Long, UserName As String)
    Dim LoginSucc As intger
    Dim rs As ADODB.Recordset
    Dim comm As New ADODB.Command
    
On Error GoTo err
    comm.ActiveConnection = conn
    comm.CommandType = adCmdStoredProc
    comm.CommandText = "spUserLogin "
    conn.CursorLocation = adUseClient
    
    Set param = comm.CreateParameter("@UserID ", adInteger, adParamInput, 4, UserID )
    comm.Parameters.Append param
    Set param = comm.CreateParameter("@UserName ", adVarChar, adParamInput, 50, UserName )
    comm.Parameters.Append param
    Set param = comm.CreateParameter("@LoginSucc ", adTinyInt, adParamOutput, 1)
    comm.Parameters.Append param
         
    Set rs = comm.Execute
    LoginSucc= comm.Parameters("@LoginSucc").Value
err:
    Call DisplayERR
End Function

Answer 2

dim com as ADODB.Command
dim cn as string         
Set com = New ADODB.Command
cn=""'连接字符串
    com.ActiveConnection = CN
 com.CommandText = "spUserLogin "
    com.CommandType = adCmdStoredProc    com.Parameters("@UserID") = "bbb"
    com.Parameters("@UserName") ="bbb"
text1.text=com.Parameters("@LoginSucc")

Answer 3

Dim comStr As ADODB.Command
Dim prmStr As Parameter
Set comStr = New ADODB.Command
comStr.CommandType = adCmdStoredProc
comStr.CommandText = "spUserLogin"
Set prmStr = comStr.CreateParameter("", , adParamOutput)
comStr.Parameters.Append prmStr
comStr.Execute

Answer 4

http://blog.csdn.net/online/archive/2004/08/05/66376.aspx