无敌

来源：互联网发布：windows下安装jenkins 编辑：程序博客网时间：2024/04/20 15:13

objCmd.ActiveConnection=conn
objCmd.CommandType=adCmdStoredProc
objCmd.CommandText="P_ruku"
objCmd.Parameters.Append _
objCmd.createparameter("pzs",adInteger,adparaminput)
objCmd.Parameters.Append _
objCmd.createparameter("je",adCurrency,adparaminput)
objCmd.Parameters.Append _
objCmd.createparameter("sf",adCurrency,adparaminput)
objCmd.Parameters.Append _
objCmd.createparameter("gysname",advarchar,adparaminput,100)
objCmd.Parameters.Append _
objCmd.createparameter("rkdate",advarchar,adparaminput,20)
objCmd.Parameters.Append _
objCmd.createparameter("operator",advarchar,adparaminput,30)
objCmd.Parameters.Append _
objCmd.createparameter("jsr",advarchar,adparaminput,30)
objCmd.Parameters.Append _
objCmd.createparameter("jsfs",advarchar,adparaminput,10)
objCmd.Parameters.Append _
objCmd.CreateParameter("rkid",adVarchar,adParamOutput,30)
objCmd.Parameters("pzs")=pzs
objCmd.Parameters("je")=je
objCmd.Parameters("sf")=sf
objCmd.Parameters("gysname")=trim(gysname)
objCmd.Parameters("rkdate")=rkdate
objCmd.Parameters("operator")=trim(operator)
objCmd.Parameters("jsr")=trim(jsr)
objCmd.Parameters("jsfs")=trim(jsfs)
objCmd.Execute
re_rkid=objCmd.Parameters("rkid") '从存储过程中取回入库单号
'-->
'插入结账主表
sql="insert into tab_rkjz_main values('"&re_rkid&"',"&wf&",'"&whether&"')"
conn.execute(sql)