写了一个密码修改界面，但修改不成功

[ppxstar]

下面是全部代码
string oldpwd,newpwd,newpwd2
oldpwd=trim(sle_oldpwd.text)
newpwd=trim(sle_newpwd.text)
newpwd2=trim(sle_newpwd2.text)

if oldpwd="" then
messagebox("提示","请输入原始密码！")
sle_oldpwd.setfocus()
return
end if
if oldpwd<>userpwd then
messagebox("提示","原始密码不正确！")
sle_oldpwd.setfocus()
return
end if
if newpwd="" then
messagebox("提示","请输入新密码！")
sle_newpwd.setfocus()
return
end if
if newpwd2="" then
messagebox("提示","请再输入一遍新密码！")
sle_newpwd2.setfocus()
return
end if
if newpwd<>newpwd2 then
messagebox("提示","两次输入密码不一致！")
return
end if

UPDATE tbluser
SET password = :newpwd
WHERE tbluser.id = :userid
;

//判断修改结果
if sqlca.sqlcode=-1 then
messagebox("出错","修改失败，请再试一次，如果多次不成功请与开发商联系！"+sqlca.sqlerrtext)
rollback;
else
userpwd=newpwd
messagebox("提示","修改成功！请牢记您的密码，下次登录使用！")
close(parent)
end if

提示错误码是:SQLSTATE=3000 UPDATE语句语法错误。

但我的UPDATE语句是自动生成的，就我以前使用经验来看没有什么不对呀！

[nimittz]

你直接到库里去跑跑你那句update呢

[velen]

有没有连接数据库啊?

[nimittz]

有没有可能是库没连接上呢，或者试试WHERE id = :userid

[ppxstar]

我用的access数据库

[polestarxu]

先看看你的autocommit设置为0（手动提交）还是1（自动提交）
如果是0 参照如下
UPDATE tbluser
SET password = :newpwd
WHERE tbluser.id = :userid
;
//判断修改结果
string ls_errtext
if sqlca.sqlcode=-1 then
ls_errtext = sqlca.sqlerrtext
rollback;
messagebox("出错","修改失败，请再试一次，如果多次不成功请与开发商联系！"+ ls_errtext)
else
userpwd=newpwd
commit;//必须提交，而且要写在提示信息前，防止对数据库独占资源，形成死锁
messagebox("提示","修改成功！请牢记您的密码，下次登录使用！")
close(parent)
end if

[suckerawood]

加一个commit;应该可以

[ppxstar]

我的连接语句是代码如下

SQLCA.DBMS = "OLE DB"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PROVIDER='Microsoft.Jet.OLEDB.4.0',DATASOURCE='mydb.mdb'"
//SQLCA.LogPass = ""
//SQLCAa.LogId = ""

CONNECT USING SQLCA;

IF SQLCA.sqlcode = -1 THEN
Messagebox('连接错误',SQLCA.sqlerrtext)
halt close
END IF

open(win_loginform)

polestarxu(polestar)
我把你的语句整个拷贝过去都不行
如何判断有没有连接数据库啊?
难道每一次对数据库操作都要重写一段连接数据库的代码？？？

[ppxstar]

试过了，不可以
还没有到commit；就出问题了

[ppxstar]

这种问题没有人会吗？？？

[zjw7789]

把你的SQL语句直接到数据库上执行一下看看错误在什么地方,这种问题还是要自己多测试!

[kitty_961111]

试试这个：
integer li_row
select count(*)into:li_row from t_employee
where emp_id=:str_sys.userid and emp_password=:sle_old.text;
if li_row=0 or isnull(li_row)then
messagebox("出错提示","输入的旧密码有错,请核对",stopsign!)
return
end if
if sle_new.text<>sle_again.text then
messagebox("出错提示","两次输入的新密码不同,请重新输入",stopsign!)
return
end if
update t_employee
set emp_password=:sle_new.text
where emp_id=:str_sys.userid;
if sqlca.sqlnrows>0 then
commit using sqlca;
messagebox("信息提示","修改密码成功")
close(parent)
else
rollback using sqlca;
messagebox("出错提示","修改密码失败",stopsign!)
return
end if

[ppxstar]

直接执行没有问题

[clank]

试试把条件里id前面的前缀同时去掉是什么状况,是不是password和id的前缀要一致,呵呵,胡乱猜测一个

[ikgan]

你把password改成[password]试试,可能关键字冲突吧...

[ppxstar]

好奇怪，我发现用同样的语句更新其它列没有问题，惟独更新password这个字段时出错
查看数据库设置，没有问题，全是一样的。

[ppxstar]

找到问题了，但是不明白
为什么要写成tbluser.password 才可以呢？？？

大家说说原因
傍晚结贴