错误类型： 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

主要是这个问题我一直遇见 所有现在重新安了系统后测试下 代码比较简单 如下示： <% 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

%>