密码修改的问题

[iamltlb]

总是跳出update语法错误，我实在找不出来了，求各位大侠看一下
--------------------------------------------------------------------------------------------------
with FormLogin.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from b1 where username=:username and password=:password');
Parameters[0].Value := trim(EditUsr.Text);
Parameters[1].Value := trim(EditPwd.Text);
open;
if isempty then
begin
showmessage('请核对您的用户名和密码信息!');
end
else
begin
close;
sql.Clear;
sqlstr:='update b1 set password ='''+trim(EditSPwd.Text)+'''where username ='''+trim(EditUsr.Text)+'''';
sql.Text:=sqlstr;
Open;
ShowMessage('密码修改成功!');
end;
end;

[iamltlb]

这样应该是一样的吧，我再试试。

[iamltlb]

还是语法错误，会不会是其他地方的问题。实在弄不出来，只有把这个搞掉了。

[bxyqt]

sqlstr:='update b1 set password ='''+trim(EditSPwd.Text)+''' where username ='''+trim(EditUsr.Text)+ '''';
sql.Text:=sqlstr;
先把下面的语句"execsql;"注释掉,然后加一个memo控件,并增加语句:memo1.lines.add(sqlstr);
//execsql;
ShowMessage('密码修改成功!');
end;

执行后看memo中的内容,并复制到你sql server中验证即可查明原因.

[Wozhiyonglangqi]

where 前加个空格

[iamltlb]

加空格也不行

[Wozhiyonglangqi]

[Quote=引用 4 楼 iamltlb 的回复:]
加空格也不行
[/Quote]又是什么错误

[Wozhiyonglangqi]

update ，insert 语句就不要用 Open了 有 ExecSQL

[kaikai_kk]

update 语句不是用 open,是execsql

...
sql.Text:=sqlstr;
execsql;
ShowMessage('密码修改成功!');
end;
...

[阿三]

单步跟踪试一下看哪里出错了，把SQL截出来看看。

[wangj_0520]

execsql

[jhldelphi]

with FormLogin.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from b1 where username=:username and password=:password');
Parameters[0].Value := trim(EditUsr.Text);
Parameters[1].Value := trim(EditPwd.Text);
open;
if isempty then
begin
showmessage('请核对您的用户名和密码信息!');
end
else
begin
close;
sql.Clear;
sqlstr:='update b1 set password ='''+trim(EditSPwd.Text)+'''where username ='''+trim(EditUsr.Text)+'''';
sql.Text:=sqlstr;
Open; //这里错拉 用execsql
ShowMessage('密码修改成功!');
end;
end;

[jhldelphi]

with FormLogin.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from b1 where username=:username and password=:password');
Parameters[0].Value := trim(EditUsr.Text);
Parameters[1].Value := trim(EditPwd.Text);
open;
if isempty then
begin
showmessage('请核对您的用户名和密码信息!');
end
else
begin
close;
sql.Clear;
sqlstr:='update b1 set password ='''+trim(EditSPwd.Text)+'''where username ='''+trim(EditUsr.Text)+'''';
sql.Text:=sqlstr;
execsql;
ShowMessage('密码修改成功!');
end;
end;

[xiaocha]

试一试这样：
sql.Text := Format('update [b1] set [password]="%s" where [username]="%s"',[EditPsw.Text, EditUser.Text]);
sql.ExecSql;

另外，记得检查输入，如果EditPsw.Text和EditUser.Text中有"等字符时也不行！！！

[bobo_911]

是不是前面 没有param.clear!

[wendream]

with FormLogin.ADOQuery1  do 
  begin 
   close; 
   sql.Clear; 
   sql.Add('select * from b1 where username=:username and password=:password'); 
   Parameters[0].Value := trim(EditUsr.Text); 
   Parameters[1].Value := trim(EditPwd.Text); 
   open; 
   if isempty then 
    begin 
     showmessage('请核对您的用户名和密码信息!'); 
    end 
   else 
    begin 
     close; 
     sql.Clear; 
     sqlstr:='update b1 set [password] ='''+trim(EditSPwd.Text)+'''where [username] ='''+trim(EditUsr.Text)+''''; 
     sql.Text:=sqlstr; 
     ExecSql; 
     ShowMessage('密码修改成功!'); 
    end; 
  end;

[SZ大伟]

用TADOQuery操作SQL语句的时候要记住如下特点：如果SQL语句是查询语句(SELECT语句)则用TADOQuery.Open，如果是非查询语句则用TADOQuery.ExecSQL

[pengxuan]

要学会调试SQL语句

[iamltlb]

感谢xiaocha和wendream，终于成功了，只是还想问一下为什么要这么写：[password]，[username]

[genispan]

[Quote=引用 17 楼 michelsn 的回复:]
用TADOQuery操作SQL语句的时候要记住如下特点：如果SQL语句是查询语句(SELECT语句)则用TADOQuery.Open，如果是非查询语句则用TADOQuery.ExecSQL
[/Quote]

为什么要这么写：[password]，[username]

转义关键字？

[iamltlb]

[Quote=引用 21 楼 pengxuan 的回复:]
要学会调试SQL语句
[/Quote]
我会的，从这里我也学了不少了，谢谢各位。