数据库修改问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 13:11:37
大家帮我看看这段代码.也提示修改成功了,可是数据库还是没有被修改,
我找好长时间也没有找到原因
Sub OperateUser()
dim axingming, anianling, axingbie, azhuzhi, ashuoming
axingming = GetSafeStr(Trim(Request.Form("xingming")))
anianling = GetSafeInt(Trim(Request.Form("nianling")),0)
axingbie = GetSafeStr(Trim(Request.Form("xingbie")))
azhuzhi = GetSafeStr(Trim(Request.Form("zhuzhi")))
ashuoming = GetSafeStr(Trim(Request.Form("shuoming")))

on error resume next
err.clear
oConn.begintrans
sSql="update Admin set A_xingming='"&axingming&"', A_nianling='"&anianling&"', A_xingbie='"&axingbie&"', A_zhuzhi='"&azhuzhi&"', A_Remark='"&ashuoming&"' WHERE A_UserID ='"&daihao&"'"
oConn.execute(sSql)
if err.number<>0 then
oConn.rollbacktrans
Call AlertMsg("用户修改错误！！&q

sSql="update Admin set A_xingming='"&axingming&"', A_nianling='"&anianling&"', A_xingbie='"&axingbie&"', A_zhuzhi='"&azhuzhi&"', A_Remark='"&ashuoming&"' WHERE A_UserID ='"&daihao&"'"

SQL语句执行成功并不代表一定会修改数据，检查WHERE A_UserID ='"&daihao&"'"是否存在，最好是先把SQL语句在数据库中执行一下，以确认是否正确。