Question

asp存储过程无法插入数据 求高手

if isarray(session("arr")) then
arr=session("arr")
pzs=ubound(arr,1)+1 '品种数
je=request.Form("ys") '总金额
selldate=now()
operator=session("name")
khname=request.Form("khname")
ys=request.Form("ys")
ss=request.Form("ss")
ws=request.Form("ws")
jsr=request.Form("jsr")
jsfs=request.Form("jsfs")
if ws=0 then
whether="是"
else
whether="否"
end if
'定义事务开始
err=0
on error resume next
conn.BeginTrans '事务开始
set objCmd=Server.CreateObject("Adodb.Command")
objCmd.ActiveConnection=conn
objCmd.CommandType=adCmdStoredProc '其为Stored Procedure
objCmd.CommandText="P_sell" '指定存储过程名称
objCmd.Parameters.Append _
objCmd.createparameter("pzs",adInteger,adparaminput)
objCmd.Parameters.Append _
objCmd.createparameter("je",adCurrency,adparaminput)
objCmd.Parameters.Append _
objCmd.createparameter("ss",adCurrency,adparaminput)
objCmd.Parameters.Append _
objCmd.createparameter("khname",advarchar,adparaminput,100)
objCmd.Parameters.Append _
objCmd.createparameter("selldate",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("sellid",adVarchar,adParamOutput,30)
objCmd.Parameters("pzs")=pzs
objCmd.Parameters("je")=je
objCmd.Parameters("ss")=ss
objCmd.Parameters("khname")=trim(khname)
objCmd.Parameters("selldate")=selldate
objCmd.Parameters("operator")=trim(operator)
objCmd.Parameters("jsr")=trim(jsr)
objCmd.Parameters("jsfs")=trim(jsfs)
objCmd.Execute'<!--调用存储过程插入销售主表信息

'从存储过程中取回销售单号

re_sellid = objCmd.Parameters("sellid")

'-->
'插入结账主表
sql="insert into tab_selljz_main values('"&re_sellid&"',"&ws&",'"&whether&"')"
conn.execute(sql)
'插入结账明细表信息
sql="insert into tab_selljz(xsid, khname, bcjk, ye, jkdate,czy ,jsr) values('"&re_sellid&"','"&khname&"',"&ss&","&ws&",'"&selldate&"','"&operator&"','"&jsr&"')"
conn.execute(sql)
For I = 0 To ubound(arr,1)
arr_spid=arr(I, 0)
arr_dj=arr(I,1)
arr_sl=arr(I,2)
……
'插入明细表数据
sql="insert into tab_sell_detail values('"&re_sellid&"','"&arr_spid&"',"&arr_dj&","&arr_sl&")"
conn.execute(sql)
'更新库存表'
sql="update tab_kucun set kcsl=kcsl-"&arr_sl&" where id='"&arr_spid&"'"
conn.execute(sql)
Next
conn.CommitTrans '事务结束

执行后 数据库销售表tab_sell_main 信息未见更新

Answer 1

给示范一次，适合初学者的
先获取值：ws=request.Form("ws")
添加到 存储过程：cmdTest.Parameters("job_id") = "1"

实例：http://www.d9soft.com/article/114/Article5883_1.htm

Answer 2

从新弄！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！