查人人中国名人网上海经济合作组织意义:rt.NewAdd
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 12:39:07
<%
Dim control
control="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("shj.mdb")
set lj=Server.CreateObject("ADODB.Connection")
lj.open control
%>
<%
exec="select * from mx"
set rt=Server.CreateObject("ADODB.Recordset")
rt.Open exec,lj,1,3
%>
<html>
<head>
</head>
<body>
<%
rt.Addnew
rt("number")=Request.Form("number")
rt("name")=Request.Form("name")
rt("value")=Request.Form("value")
rt("date")=Request.Form("date")
rt.Update
rt.close
set rt=nothing
%>
<a href="index.asp">返回</a>
</body>
</html>
提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine 错误 '80040e09'
不能更新。数据库或对象为只读。
本人是新手，请问一下如何调试。
rt.Open exec,lj,1,3
换成
rt.Open exec,lj,2,3
还是不行，提示问题还是一样。
Dim control
control="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("shj.mdb")
set lj=Server.CreateObject("ADODB.Connection")
lj.open control
%>
<%
exec="select * from mx"
set rt=Server.CreateObject("ADODB.Recordset")
rt.Open exec,lj,1,3
%>
<html>
<head>
</head>
<body>
<%
rt.Addnew
rt("number")=Request.Form("number")
rt("name")=Request.Form("name")
rt("value")=Request.Form("value")
rt("date")=Request.Form("date")
rt.Update
rt.close
set rt=nothing
%>
<a href="index.asp">返回</a>
</body>
</html>
提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine 错误 '80040e09'
不能更新。数据库或对象为只读。
本人是新手，请问一下如何调试。
rt.Open exec,lj,1,3
换成
rt.Open exec,lj,2,3
还是不行，提示问题还是一样。
去看一下你的数据库是不是只读属性，文件夹如果是在NTFS分区上还得看一下是不是guest组可写的
rt.Open exec,lj,1,3
换成
rt.Open exec,lj,2,3
看看
理论上你这么写没有什么问题
看了半天，代码也没有发现错误！！！
“不能更新。数据库或对象为只读。”是不是你的表中有自增量的问题！？