请教一个存储过程 输出问题(output)

Question

直接取即可：
Set DBConn = Application("DBConn")
set comm=server.createobject("ADODB.command")  
comm.commandtype=4
comm.commandtext="DBO.WH_CHANGE"
comm.Parameters.Append comm.CreateParameter("@Vend",200,1,8,VendNo) 
comm.Parameters.append comm.CreateParameter("@ErrMessage",200,2,50)--@ErrMessage是output
set comm.ActiveConnection = DBConn
comm.Execute
ERRORMSG = comm.Parameters("@ErrMessage")--直接取出来

Answer 1

存储过程只能返回int型，所以：Return @Result要去掉
@Result已经是输出参数，所以不必返回任何值
Declare @Result varchar
================〉
Declare @Result varchar(100)

Answer 2

谢谢 兄  和   MorningTea(一勺抹茶) ( ) 按照 vivianfdl（）兄的指点，运行通过 但是表 AD.dbo.AS_user 没有记录添加 运行结果：
命令已成功完成。但没有记录添加，请问vivianfdl（） 是什么问题?谢谢..

Answer 3

先把修改的存储过在sql 分析其里面运行以下看是否有结果。可以在 Exec(@sql)后面加一个select @@rowcount 看是否有列产生。

Answer 4

Begin
          Select @u=userID From HQEW.dbo.userProfile Where userID=@UserID
          If @u is null       
             Set @sql = 'Insert into AD.dbo.AS_user (AS_profileID,AS_CompanyName,AS_Address,AS_Contact,AS_Phone,AS_Email) Select UserID,CorpName,Address,Contactor,Phone,Email From HQEW.dbo.userProfile Where userID='+ Rtrim(@UserID)
          Else
             Set @Result = '登录名已经存在'
          End
  -----------这句好像有问题，你的@userid和@u好像都是NULL
Select UserID,CorpName,Address,Contactor,Phone,Email From HQEW.dbo.userProfile Where userID='+ Rtrim(@UserID)
这句没有结果

Answer 5

to iwl() ( )没有列名产生。to QQMagicer() @UserID 不为空的  谢谢你

Answer 6

to MorningTea(一勺抹茶) ( )                  Set objConn =  Server.CreateObject("ADODB.Connection")
                 Set objCmd  =  Server.CreateObject("ADODB.Command")
                 Set objRs   =  Server.CreateObject("ADODB.Recordset")
                 
                 '执行存储过程....
                 objConn.Open = Application("AD")
                 objCmd.ActiveConnection = objConn
                 objCmd.CommandType = 4
                 objCmd.CommandText = "pr_userUnload1"
                 
                 '判断是否ID或用户名
                 If userID <> "" Then
                      objCmd.Parameters("@UserID") = userID
                      objCmd.Parameters("@UserName") = Null
                 Else
                      objCmd.Parameters("@UserID") = Null
                      objCmd.Parameters("@UserName") = userName
                 End If
                 objCmd.Execute我这里需要怎么改才能把 output 在程序执行时候 表现出来？

Answer 7

set Result = objCmd.Parameters("@Result") 这样就取出返回值@Result