recordset对象的update方法更新ACCESS数据库时出现错误(100分)

[soft78]

我用recordset对象的update方法更新ACCESS数据库时出现错误，代码如下：
<%
set db=server.CreateObject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};DBQ="&_
server.mappath("date/employee.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from e2"
rs.open sql,db,adOpenDynamic,2
rs.addnew
rs("职工号")="abc"
rs.update
%>
一执行到rs.update时浏览器就显示错误,数据也没能添加进去;去掉rs.update程序就能执行，employee.mdb也没有只读属性。而如果换成SQL数据库就能执行,SQL代码如下：<%
set db=server.CreateObject("adodb.connection")
db.open "driver={sql server};server=server1;database=employee;uid=sa;pwd=psa"
set rs=server.createobject("adodb.recordset")
sql="select * from e2"
rs.open sql,db,adOpenDynamic,2
rs.addnew
rs("职工号")="abc"
rs.update
%>
请问为什么SQL数据库能通过而ACCESS数据库却不能通过呀？

[xx123731]

代码没错误,估计是你的ACCESS这个表中,有的字段不能为空,你增加一条记录,就写入这一条字段,就会出现问题,建议全字段增加,试一下,会否还出现这样的问题.

[soft78]

没人知道么

[lonaerd]

Public Function OpenTable(SQLCommand , ConnStr )
'返回值：　返回一个数据记录集
Dim rs
set rs=server.createobject("adodb.recordset")
'On Error GoTo Err1
rs.CursorLocation =3
rs.CursorType = 1
rs.LockType = 3 '****************************
rs.Open SQLCommand, ConnStr, , , adCmdText
Set OpenTable = rs


End Function

给你个通用表打开函数；你的参数设置有问题，请用上面的函数打开记录集：

set rs=opentable("select * from e2",db)
rs.addnew
rs("职工号")="abc"
rs.update

[ybfqlyq]

我用recordset对象的update方法更新ACCESS数据库时出现错误，代码如下：
rs.addnew
rs("职工号")="abc"
rs.update
------------
更新時不用加rs.addnew

[笨笨兔兔兔兔兔]

还有可能是如下:

我的电脑->工具->文件夹选项->查看->简单文件夹共享的勾去了

右键mdb->安全 把everyone权限加上

更新的时候我的游标也通常选1,3的

[soft78]

ybfqlyq(·YBFQ Restarting.....Go——>):我是想增加一条记录

[rb579]

我一般不用recordset更新数据库的
我都是直接用conn.execute
<%
'首先打开数据库连接conn
dim sql,str
str="abc"
sql="update e2 set 职工号='"& str &"'"
conn.execute(sql)
'我都是用这个更新，删除数据的，用recordset麻烦，用conn.execute直接执行sql语句就可以了
%>