[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1.
MicrosoftOLEDBProviderforODBCDrivers错误'80040e10'[Microsoft][ODBCMicrosoftAccessDriver...
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/bfxt/sjknew.asp，行 27 求解哪里错了
以下为提交的ASP文件
<div id="file"><!--页面主体-->
<form action="sjknew.asp" method="post" name="form1">
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("base/dataa.mdb")
exec="select * from lx"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table class="datalist" width="100%" border="0" cellspacing="0" cellpadding="0">
<td>AAA</td>
<td>BBB</td>
<td>CCC</td>
<td>DDD</td>
<td>EEE</td>
<td>FFF</td>
<td>GGG</td>
<td>HHH</td>
<td>III</td>
<td>JJJ</td>
<td>KKK</td>
<td>删除么</td>
<%dim i
i=0
do while not rs.eof
i=i+1 %><tr>
<td><%=rs("日期")%></td>
<td><%=rs("飞机号")%></td>
<td><%=rs("进港航班")%></td>
<td><textarea name="jxjc<%=i%>" cols="10" rows="1"><%=rs("机下检查")%></textarea></td>
<td><textarea name="jsjc<%=i%>" cols="10" rows="1"><%=rs("机上检查")%></textarea></td>
<td><textarea name="qw<%=i%>" cols="10" rows="1"><%=rs("勤务")%></textarea></td>
<td><textarea name="fx<%=i%>" cols="10" rows="1"><%=rs("放行")%></textarea></td>
<td><textarea name="hqqw<%=i%>" cols="10" rows="1"><%=rs("航前勤务")%></textarea></td>
<td><textarea name="hqjc<%=i%>" cols="10" rows="1"><%=rs("航前检查")%></textarea></td>
<td><textarea name="hqfx<%=i%>" cols="10" rows="1"><%=rs("航前放行")%></textarea></td>
<td><textarea name="PC<%=i%>" cols="10" rows="1"><%=rs("PC卡")%></textarea></td>
<td><%=rs("ID")%>##<%=i%><input type="hidden" name="<%=i%>" value="<%=rs("ID")%>"></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr> <td>
<input type="hidden" name="total" value="<%=i%>">
<input name="submit" type="submit" value="提交" /></td></tr>
</table>
</form>
</div>
以下是接收ASP
<title>数据库刷新</title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("base/dataa.mdb")
dim i,total,A1,A2,A3,A4,A5,A6,A7,A8
total=request.form("total")
for i=1 to total
A1=request.form("jxjc"&i)
A2=request.form("jsjc"&i)
A3=request.form("qw"&i)
A4=request.form("fx"&i)
A5=request.form("hqqw"&i)
A6=request.form("hqjc"&i)
A7=request.form("hqfx"&i)
A8=request.form("pc"&i)
exec="select * from lx where ID="&request.form(i)
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("机下检查")=A1
rs("机上检查")=A2
rs("勤务")=A3
rs("放行")=A4
rs("航前勤务")=A5
rs("航前检查")=A6
rs("航前放行")=A7
rs("PC卡")=A8
rs.update
rs.close
set rs=nothing
next
conn.close
set conn=nothing
response.write "<script>alert('更新成功!');location.href='sjka.asp';</script>"
%>
</body>
</html> 展开
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/bfxt/sjknew.asp，行 27 求解哪里错了
以下为提交的ASP文件
<div id="file"><!--页面主体-->
<form action="sjknew.asp" method="post" name="form1">
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("base/dataa.mdb")
exec="select * from lx"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table class="datalist" width="100%" border="0" cellspacing="0" cellpadding="0">
<td>AAA</td>
<td>BBB</td>
<td>CCC</td>
<td>DDD</td>
<td>EEE</td>
<td>FFF</td>
<td>GGG</td>
<td>HHH</td>
<td>III</td>
<td>JJJ</td>
<td>KKK</td>
<td>删除么</td>
<%dim i
i=0
do while not rs.eof
i=i+1 %><tr>
<td><%=rs("日期")%></td>
<td><%=rs("飞机号")%></td>
<td><%=rs("进港航班")%></td>
<td><textarea name="jxjc<%=i%>" cols="10" rows="1"><%=rs("机下检查")%></textarea></td>
<td><textarea name="jsjc<%=i%>" cols="10" rows="1"><%=rs("机上检查")%></textarea></td>
<td><textarea name="qw<%=i%>" cols="10" rows="1"><%=rs("勤务")%></textarea></td>
<td><textarea name="fx<%=i%>" cols="10" rows="1"><%=rs("放行")%></textarea></td>
<td><textarea name="hqqw<%=i%>" cols="10" rows="1"><%=rs("航前勤务")%></textarea></td>
<td><textarea name="hqjc<%=i%>" cols="10" rows="1"><%=rs("航前检查")%></textarea></td>
<td><textarea name="hqfx<%=i%>" cols="10" rows="1"><%=rs("航前放行")%></textarea></td>
<td><textarea name="PC<%=i%>" cols="10" rows="1"><%=rs("PC卡")%></textarea></td>
<td><%=rs("ID")%>##<%=i%><input type="hidden" name="<%=i%>" value="<%=rs("ID")%>"></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr> <td>
<input type="hidden" name="total" value="<%=i%>">
<input name="submit" type="submit" value="提交" /></td></tr>
</table>
</form>
</div>
以下是接收ASP
<title>数据库刷新</title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("base/dataa.mdb")
dim i,total,A1,A2,A3,A4,A5,A6,A7,A8
total=request.form("total")
for i=1 to total
A1=request.form("jxjc"&i)
A2=request.form("jsjc"&i)
A3=request.form("qw"&i)
A4=request.form("fx"&i)
A5=request.form("hqqw"&i)
A6=request.form("hqjc"&i)
A7=request.form("hqfx"&i)
A8=request.form("pc"&i)
exec="select * from lx where ID="&request.form(i)
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("机下检查")=A1
rs("机上检查")=A2
rs("勤务")=A3
rs("放行")=A4
rs("航前勤务")=A5
rs("航前检查")=A6
rs("航前放行")=A7
rs("PC卡")=A8
rs.update
rs.close
set rs=nothing
next
conn.close
set conn=nothing
response.write "<script>alert('更新成功!');location.href='sjka.asp';</script>"
%>
</body>
</html> 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
