关于数据库操作一问

Question

Microsoft VBScript 编译器错误 错误 '800a03f6' 
缺少 'End' 
/iisHelp/common/500-100.asp，行242 
ADODB.Recordset 错误 '800a0cb3' 
对象或提供者不能执行所需的操作。 
/test.asp，行325 错误提示在如下代码rs.addNew一行，请问这是什么原因？
本机安装的是Access2003，代码如下：
<%
Dim db,ConnStr,sql
Db = "DB/test.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
name="123"
sql="select * from [test] where name='"&name&"'"
rs.open sql,conn,3,3           '这里我用 3,2;2,2;都试过了，错误依然
If not rs.eof and not rs.bof Then
             response.write "已经有了"
Else
  rs.addnew
  rs("name")=name
  rs("test")="新增加"
         End If%>

Answer 1

If not rs.eof or  not rs.bof Then
             response.write "已经有了"
Else
  rs.addnew
  rs("name")=name
  rs("test")="新增加"
           rs.update
         End If

Answer 2

為何不到asp版裡問，這是asp問題。。

Answer 3

是啊,100分哦,
换个方法
if rs.recordcount<>0

Answer 4

不如使用sql代码实现，直接insert

Answer 5

不是rs.update的问题，程序里边有我试了用数据库连接对象直接执行sql语句，仍然提示错误，错误意思大概是用使用一个有更新功能的数据库连接，好像说我使用的数据库连接没有更新功能。不知道为什么。

Answer 6

Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft JET Database Engine 错误 '80004005' 操作必须使用一个可更新的查询。 /inc/Dv_ClsMain.asp，行1275 

Answer 7

到asp版，回答的人会更多

Answer 8

操作必须使用一个可更新的查询。 /inc/Dv_ClsMain.asp，行1275 
======================================
没权限

Answer 9

Dim db,ConnStr,sql
Db = "DB/test.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
name="123"
sql="select * from [test] where name='"&name&"'"
Set rs=Server.Creatobject("ADODB.recordset")
rs.open sql,conn,3,3           
If rs.eof and rs.bof Then
             response.write "已经有了"
Else
  rs.addnew
  rs("name")=name
  rs("test")="新增加"
           rs.update
           
         End If%>
像上面这样写是没有错误的，你最后测试一下你的sql语句是否有效，还有name的值是否存在。

Answer 10

Set rs=Server.Creatobject("ADODB.recordset")这句你原来的代码中有没有？

Answer 11

搞定了,是数据库文件权限的问题.在ASP版20分就搞定了,这里我花大价钱了,苦!