Question

asp能新增，删除数据库记录，但无法修改

我的代码如下：请高手指点
<%
dim zhuanlibianhao
zhuanlibianhao=trim(request.form("bianhao"))
'读取新添加的专利信息
dim falvzhuangtai,zhongzhiriqi,zhongzhiyuanyin,shifouyouxiao,xianzhuang
'获取信息
falvzhuangtai=trim(request.form("falvzhuangtai"))
zhongzhiriqi=trim(request.form("nian"))&trim(request.form("yue"))&trim(request.form("ri"))
zhongzhiyuanyin=trim(request.form("zhongzhiyuanyin"))
shifouyouxiao=trim(request.form("shifouyouxiao"))
xianzhuang=trim(request.form("xianzhuang"))
'打开数据库连接并读取记录
dim conn,strsql,objrs
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.MapPath("data.mdb")
conn.Open
set objrs=Server.CreateObject("ADODB.Recordset")
'sql语句
strsql="select * from c_zl where 专利编号='" & zhuanlibianhao & "'"
objrs.open strsql,conn,1,3
objrs("法律状态")=falvzhuangtai
objrs("终止日期")=zhongzhiriqi
objrs("终止原因")=zhongzhiyuanyin
objrs("是否有效")=shifouyouxiao
objrs("现状")=xianzhuang
objrs.update
objrs.close
set objrs=nothing
conn.close
set conn=nothing
response.write "修改成功!"
response.write "<a href='zlck.asp'>请返回</a>"
%>

错误类型：
ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/tijiao.asp, 第 21 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TheWorld)

网页：
POST 165 ??? /tijiao.asp

POST Data:
falvzhuangtai=flztRES%283%29&nian=2015&yue=05&ri=02&zhongzhiyuanyin=%D7%A8%C0%FB%C8%A8%BD%EC%C2%FA&shifouyouxiao=SFYX1&falvzhuangtai=xzRES%284%29&tijiao=%CC%E1%BD%BB

Answer 1

'sql语句
strsql="select * from c_zl where 专利编号='" & zhuanlibianhao & "亏洞'"
objrs.open strsql,conn,1,3

你这里取得的记录集为空造成的。没烂配有符合条件(专利编号＝zhuanlibianhao)的记录（此时 objrs.eof and objrs.bof）
记录集中无任何记录，你再进行objrs("法律状态")=falvzhuangtai …… objrs.update 等更新操作 所以发生该错误！

解决方法：
检索符合条件的记录后先判断是否有记录存在，若无符合条件的记录存在则退出或提示等饥空指操作。
在 objrs.open strsql,conn,1,3 后面增加以下语句：
if objrs.eof and objrs.bof then
Response.Write("找不到专利编号为"&zhuanlibianhao &"的记录")
Response.End()
end if

Answer 2

你的数据库是不是空的？
操作需要一个纪录.你没有纪录怎么让电脑操作.

Answer 3

将RECORDSET对桐羡象的OPEN属性改成
objrs.open strsql,conn,2,3
你的错误原因是因为你的变量还没有获取到任何值散饥
所以会局掘拍报错,从上个页面浏览 把1改成2
如果还不对
加297494110

Answer 4

加一个判断
if objrs.eof and objrs.bof then
Response.Write("找不到专利编号为"&zhuanlibianhao &"的记录")
end if
如果显示出“找不到专森缺碧利编号为"此举&zhuanlibianhao &"的记扮余录”那就表示数据库为空。

Answer 5

专利编号='" & zhuanlibianhao & "'"

有内容嘛？