创建存储过程
CREATE PROCEDURE FPTransBar9
@datestart as datetime, --开始时间
@dateend as datetime, --终止时间
@bar9 as char(9), --9位款号
@shopno as smallint, --店号
@percent as decimal(18,4) OUTPUT
AS 。。。
调用存储过程
Public Con As New Connection
Public Cmd As New Command
Dim conStr As String
conStr="Provider=SQLOLEDB.1;Integrated
security=SSPI;database=~"
Con.Open conStr
With Cmd
.ActiveConnection = Con
.CommandType = adCmdStoredProc
.CommandText = "proc_name"
.Parameters.Append .CreateParameter("@datestart",
addbdatetime,adParamInput, ,varDateStart)
.Parameters.Append .CreateParameter("@dateend", addbdatetime,
adParamInput, ,varDateEnd)
.Parameters.Append .CreateParameter("@bar9", adChar, adParamInput,
9,varCharBar9)
.Parameters.Append .CreateParameter("@shopno", adtinyint,
adParamInput,, varIntshopno9)
.Parameters.Append .CreateParameter("@percent", addouble,
adParamoutput, , varDbPercent)
.execute
with cmd
返回输出参数
set varDbpercent=cmd.Parameters("@percent").value
|