欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

創(chuàng )建存儲過(guò)程

CREATE PROCEDURE FPTransBar9
@datestart as datetime, --開(kāi)始時(shí)間
@dateend as datetime, --終止時(shí)間
@bar9 as char(9), --9位款號
@shopno as smallint, --店號

@percent as decimal(18,4) OUTPUT
AS 。。。

調用存儲過(guò)程

Public Con As New Connection

Public Cmd As New Command

Dim conStr As String

conStr="Provider=SQLOLEDB.1;Integratedsecurity=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