HOME > ASP > ASP Forum > ช่วยบวกค่าให้หน่อยครับ Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][ODBC Microsoft Access Driver] Too few parameters.
ช่วยบวกค่าให้หน่อยครับ Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][ODBC Microsoft Access Driver] Too few parameters.
<%
Function remTag(string1)
remTag=replace(string1,"<","<")
remTag=replace(remtag,">",">")
End function
%>
<% Response.Buffer = True %>
<%
Dim Conn
id = Request.Form("pNo")
Aget=remTag(Request.Form("Aget"))
NCCKD=remTag(Request.Form("NCCKD"))
NCSP=remTag(Request.Form("NCSP"))
NCJB=remTag(Request.Form("NCJB"))
Sql2="Update Productionplan Set SHCKDA=SHCKDA+NCCKD where pNo="&Request.Form("pNo")
Sql3="Update Productionplan Set SHBUA=SHBUA+Aget where pNo="&Request.Form("pNo")
Sql4="Update Productionplan Set SHSPA=SHSPA+NCSP where pNo="&Request.Form("pNo")
Sql5="Update Productionplan Set SHJBA=SHJBA+NCJB where pNo="&Request.Form("pNo")
(
Sql2="Update Productionplan Set SHCKDA=SHCKDA+NCCKD where pNo="&Request.Form("pNo")
Sql3="Update Productionplan Set SHBUA=SHBUA+Aget where pNo="&Request.Form("pNo")
Sql4="Update Productionplan Set SHSPA=SHSPA+NCSP where pNo="&Request.Form("pNo")
Sql5="Update Productionplan Set SHJBA=SHJBA+NCJB where pNo="&Request.Form("pNo")
id = Request.Form("pNo")
Aget=remTag(Request.Form("Aget"))
NCCKD=remTag(Request.Form("NCCKD"))
NCSP=remTag(Request.Form("NCSP"))
NCJB=remTag(Request.Form("NCJB"))
มาบวกไม่ได้นะครับมัน Error
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/PB/Productionplan/Shiping&QCS/Add_realtime.asp, line 46