错误类型： Microsoft JET Database Engine (0x80040E09) 不能更新。数据库或对象为只读。 /test/addNew.asp, 第 29 行 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("QQ.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

dim sql sql = "select * from QQ"

rs.Open sql,conn,1,3

'Response.Write("数据库打开成功！") rs.AddNew rs("qq") = QQNum rs("txtShow") = show rs("txtMore") = more rs("age") = age rs("sex") = sex rs.Update

你的数据库是打开状态吗?
打开的时候不能操作

还有注意数据库的字段类型
特别是数字型的
不能加引号

[此贴子已经被作者于2005-5-18 14:14:54编辑过]

把完整的代码那上来
顺便说一下最好把数据库连接和操作单独写成独立的模块

主要是这个问题我一直遇见 所有现在重新安了系统后测试下 代码比较简单 如下示： <% dim QQNum,QQShow,QQMore,Sex,Age QQNum = Request.Form("qqNum") QQShow = Request.Form("show") QQMore = Request.Form("more") Sex = Request.Form("sex") Age = Request.Form("age")

Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("QQ.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

dim sql sql = "Select * From QQ" rs.LockType = 3

rs.Open sql,conn

'Response.Write("数据库打开成功！") rs.AddNew rs("qq") = QQNum rs("txtShow") = QQShow rs("txtMore") = QQMore rs("age") = Age rs("txtSex") = Sex rs.Update

rs.Close

set rs = Nothing Set conn = Nothing

%> 数据库所有的字段都是文本 在线等！！！

代码改了下 使用sql写的添加代码 但是错误提示如下： 错误类型： Microsoft JET Database Engine (0x80004005) 操作必须使用一个可更新的查询。 /test/addNew.asp, 第 27 行 代码如下： <% dim QQNum,QQShow,QQMore,Sex,Age QQNum = Request.Form("qqNum") QQShow = Request.Form("show") QQMore = Request.Form("more") Sex = Request.Form("sex") Age = Request.Form("age")

Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("QQ.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

dim sql sql = "Insert Into QQ(qq,txtShow,txtMore,txtSex,age) values('"& QQNum &"','"& QQShow &"','"& QQMore &"','"& Sex &"','"& Age &"')" 'rs.LockType = 3

rs.Open sql,conn,3,3

'Response.Write("数据库打开成功！") 'rs.AddNew 'rs("qq") = QQNum 'rs("txtShow") = QQShow 'rs("txtMore") = QQMore 'rs("age") = Age 'rs("txtSex") = Sex 'rs.Update

'rs.Close

set rs = Nothing Set conn = Nothing

%>

ding xia  zj

查看一下是不是使用了只读锁定或者有没有写权限。

[此贴子已经被作者于2005-5-18 18:07:27编辑过]

rs.LockType = 3
这里不是设置了读写权限了？

新安的系统？！！！

ding xia la!

你确定你对数据库有足够的权限吗?
就是你的数据库没有设置成只读形式的.....
或者你对数据库的文件夹有写入的权限吗?
比如NTFS分区的系统
你对那个文件夹没有权限的话
也不行