ACCESS更新问题

来源:百度知道 编辑:UC知道 时间:2024/05/17 05:05:04
大家帮忙看下下面的语句
dUserID = Trim(Request.QueryString("id"))
on error resume next
err.clear
oConn.begintrans

oConn.Execute("DELETE FROM Admin WHERE A_UserID='"&dUserID&"'")
if err.number<>0 then
oConn.rollbacktrans
response.write("<center><font color=""#dd0000"">删除出现错误!</font></center><br>")
response.end
else
oConn.committrans
on error resume next
err.clear
oConn.begintrans
oConn.execute("update kehu set kh_yuangongkeshi='1' WHERE kh_yuangongid ='"&dUserID&"'")
if err.number<>0 then
oConn.rollbacktrans
Call AlertMsg("用户修改错误!!")
else
oConn.committrans
Call AlertMsg("用户修改成功!")
end if
end if

可以删除,也 提示修改成功,但是数据库中的字段根本就没有修改,
不知道是不是SQL语句的问题.
kh_yuangongkes

on error resume next 语句忽略了错误
所以你接受不到错误信息。

sql=update kehu set kh_yuangongkeshi='1' WHERE kh_yuangongid ='"&dUserID&"'"
response.write sql

然后把输出的sql在查询分析器里执行以下

-----------------------------------------
多想办法调试才能发现问题

看一下,更改的数据是否符合数据库表中字段的类型或长度