Question

用ASP向数据库(ACCESS)中添加数据

<%
set con=Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
con.Open connstr

set cmd=Server.CreateObject("adodb.command")
set rs=Server.CreateObject("adodb.recordset")
cmd.CommandText="select * from user"
cmd.CommandType=1
set cmd.ActiveConnection=con
rs.Open cmd, , 1, 3
rs.AddNew
rs("username")=WWW
rs("usermail")=aaa
rs("view")=555
rs("indata")=11/23/1998
rs.Update
rs.close
set rs=nothing

con.Close
set con=nothing
%>
调度时它提示下面这个错误
错误类型：
Microsoft JET Database Engine (0x80040E14)
FROM 子句语法错误。
/0.asp, 第 131 行
153527663 - 见习魔法师 三级
谢谢你,那个问题没有了,又出现了一个新问题
错误类型：
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
我那个数据库没有问题,属性也没有问题
mngenius - 总监 九级
我近照你说的改了一下
出现了下面这个问题
错误类型：
ADODB.Recordset (0x800A0E7B)
无法更改以命令对象为源的记录集对象的 ActiveConnection 属性。

Answer 1

set con=Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
con.Open connstr

set rs=Server.CreateObject("adodb.recordset")
sql="select * from [user]" 'user是SQL里的保留字段所以必须的加[]
rs.Open sql,con , 1, 3
rs.AddNew
rs("username")=WWW
rs("usermail")=aaa
rs("view")=555
rs("indata")=11/23/1998
rs.Update
rs.close
set rs=nothing

con.Close
set con=nothing

如还是无法更新那是因为你的数据库文件所在的目录权限对特定的用户没有开启足够的权限，你只能进行只读访问，一般出现这种情况的文件系统为NTFS，那怎么解决呢？
首先，你找到数据库所在目录，也可以是上层目录，然后设置文件夹 安全 属性，最简单的是把everyone的权限设置成完全即可，那对于这个问题，应该使哪个对象的权限设置成完全呢？答案是 IUSER_您的机器名 。这个是哪个对象？这个是Internet来宾用户，有兴趣的读者可以查阅相关资料。至此，问题解决，你可以再运行一下看看是否解决了问题。

附：对于Windows XP的用户，也许你会茫然于更改文件夹的安全属性。因为在默认情况下，Windows XP使用了简单文件共享方法，所以，当你点 属性 的时候是看不到 安全 选项卡的。具体操作如下：

我的电脑-->文件夹选项-->查看-->取消 使用简单文件共享（推荐） 的勾选 即可。你查看一下你要更改文件夹的属性，是不是多了一个 安全 选项卡呢？然后把你电脑用户名的安全属性全部打开

Answer 2

<%
set con=Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
con.Open connstr

set cmd=Server.CreateObject("adodb.command")
set rs=Server.CreateObject("adodb.recordset")
cmd.CommandText="select * from user"
cmd.CommandType=1
set cmd.ActiveConnection=con
rs.Open cmd, , 1, 3
rs.AddNew
rs("username")=WWW
rs("usermail")=aaa
rs("view")=555
rs("indata")=11/23/1998
rs.Update
rs.close
set rs=nothing

con.Close
set con=nothing
%>

改为
<%
set con=Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
con.Open connstr

'set cmd=Server.CreateObject("adodb.command")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from [user]"
'cmd.CommandType=1
'set cmd.ActiveConnection=con
rs.Open sql,con , 1, 3
rs.AddNew
rs("username")=WWW
rs("usermail")=aaa
rs("view")=555
rs("indata")=11/23/1998
rs.Update
rs.close
set rs=nothing

con.Close
set con=nothing
%>

----------------------------------------------------------

cmd.CommandText="select * from user"
cmd.CommandType=1
set cmd.ActiveConnection=con
rs.Open cmd, , 1, 3

改为
cmd.CommandText="select * from [user]"
cmd.CommandType=1
set cmd.ActiveConnection=con
rs.Open cmd, con, 1, 3

Answer 3

<%
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from user"
rs.open sql,connstr,1,3
rs.AddNew
rs("username")=WWW
rs("usermail")=aaa
rs("view")=555
rs("indata")=11/23/1998
rs.Update

rs.close
set rs=nothing
%>

Answer 4

cmd.CommandText="select * from user"这句中的user改为[user]要不到数据库里改下表名，不用这个名字
这样改也可以
<%
set con=Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
con.Open connstr

set rs=Server.CreateObject("adodb.recordset")
sql="select * from [user]"
rs.Open sql,con,1,3
rs.addnew //忘记加了
rs("username")="WWW" //值都打上引号
rs("usermail")="aaa"
rs("view")="555"
rs("indata")="11/23/1998"
rs.Update
rs.close
set rs=nothing

con.Close
set con=nothing
%>

你先看下你的数据库有没有设属性只读（你调用的数据库右键--属性，去掉只读属性），上面的代码我改动了一下，你看下行了不

Answer 5

select * from [user]

错误类型：
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。

右键查看属性，看看数据库所在的文件夹的权限，把只读项去掉

这回该给分了吧

Answer 6

二楼的有理，表中的字段不要和关键字重复啊