为什么不能更新啊

[leizhiyong]

我的代码如下
<%
dim strsql,strsql1
dim xhtr,xmstr
xhstr=trim(request.Form("xh"))
xmstr=trim(request.Form("xm"))
strSQL="select * from student where xh='"&xhstr&"'"
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("database.mdb") &";Persist Security Info=true"
set con =server.CreateObject("adodb.connection")
set rst=server.CreateObject("ADODB.Recordset")
con.Open strconn
rst.Open strSQL,con,3




'直接更新
rst("xm")=xmstr
rst.Update


response.Write("<br><p align='center'>提交更新完毕!</p></br>")
response.Write("<a href=test0.asp><p align='center'>返回</p></a>")
%>

网页执行后，却报错：ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。

请问怎么解决啊

[rushman]

加上试试
rst.CursorType = 3; // adOpenStatic
rst.CursorLocation = 2; // adUseServer

[小逗狗]

rst.Open strSQL,con,3 改成rst.Open strSQL,con,1,3 试试

[苍白之月]

rst.Open strSQL,con,3 ,3

再不能改 就是权限的问题了 请设置Access相应的访问权限