存储过程调用，有这方面经验的进来看看，来者有分！！！！！！

[lirenjun119]

调用过程：
set Cmd= Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = Conn
cmd.CommandText = "demo"
cmd.CommandType = adCmdStoredProc
Cmd.Parameters.Append
cmd.CreateParameter("@proid",adchar,adParamReturnValue,4,0)

Cmd.Parameters("@proid")

proiddemo=cmd.Parameters("@proid").value

存储过程：
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO


ALTER PROCEDURE demo
@proid char(2) output
AS
declare @m_getid char(2)
set @m_getid='not'
select top 1 @m_getid=right(left(userval,3),2) from pro_objectval order by userval desc
if @m_getid='not' or @m_getid=null
begin
set @proid='AA'
return
end
else
begin
if right(@m_getid,1)='Z'
set @proid=char(ascii(left(@m_getid,1))+1)+char(ascii(left(@m_getid,1))+1)
else
set @proid=left(@m_getid,1)+char(ascii(right(@m_getid,1))+1)
update pro_objectval set userval=@proid
return;
end



出错地方：
调用子程序时不能使用括号

/open/requestsave.asp，行75

cmd.CreateParameter("@proid",adchar,adParamReturnValue,4,0)
-----------------------------------------------------------^

[lirenjun119]

dim cmd
dim adCmdStoredProc
Dim adchar
Dim adParamReturnValue
dim proiddemo
dim RetCode

adCmdStoredProc=4
adchar = 100
adParamReturnValue = 2
已经定义：

[GageCSDN]

解一:
cmd.CreateParameter "@proid",adchar,adParamReturnValue,4,0

解二:
Call cmd.CreateParameter("@proid",adchar,adParamReturnValue,4,0)

[lirenjun119]

错误的参数个数或无效的参数属性值: 'Parameters.Append'

/open/requestsave.asp，行75

[wtiancai]

set theCmd = Server.CreateObject("ADODB.Command")
set theCmd.ActiveConnection = conn
theCmd.CommandType=adCmdSPStoredProc '命令类别为4,表示为存储过程
theCmd.CommandText = "GetRecordFromPage" '存储过程名称
theCmd.Parameters.Append theCmd.CreateParameter("@tblName",adVarChar,adParamInput,255,tblName)
theCmd.Parameters.Append theCmd.CreateParameter("@fldName",adVarChar,adParamInput,255,fldName)
theCmd.Parameters.Append theCmd.CreateParameter("@OrderfldName",adVarChar,adParamInput,255,OrderfldName)
theCmd.Parameters.Append theCmd.CreateParameter("@StatfldName",adVarChar,adParamInput,255,"")
theCmd.Parameters.Append theCmd.CreateParameter("@PageSize",adInteger,adParamInput,4,intPerPage)
theCmd.Parameters.Append theCmd.CreateParameter("@PageIndex",adInteger,adParamInput,4,PageIndex)
theCmd.Parameters.Append theCmd.CreateParameter("@IsCount",adTinyInt,adParamInput,1,0)
theCmd.Parameters.Append theCmd.CreateParameter("@OrderType",adTinyInt,adParamInput,1,1)
theCmd.Parameters.Append theCmd.CreateParameter("@strWhere",adVarChar,adParamInput,1000,strWhere)

set rsList = theCmd.Execute()

[cheng17]

Dim cur_id
cur_id = ""
if request.form("adid") <> "" then cur_id = strleach(request.form("adid"))

set oosid = Server.CreateObject("ADODB.Command")
oosid.ActiveConnection = conn
oosid.CommandText = "dbo.sp_crtint_id"
oosid.Parameters.Append oosid.CreateParameter("@RETURN_VALUE", 3, 4)
oosid.Parameters.Append oosid.CreateParameter("@id_name", 129, 1,20,"adinpr_bill_id")
oosid.Parameters.Append oosid.CreateParameter("@cur_id", 129, 1,20,cur_id)
oosid.Parameters.Append oosid.CreateParameter("@ret_id", 129, 2,10)
oosid.CommandType = 4
oosid.CommandTimeout = 0
oosid.Prepared = false
oosid.Execute()
retadid = oosid.Parameters.Item("@ret_id").Value '存储过程返回的单号