Question

delphi update 语法错误

Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('update users set password=:A2,qx=:A3');
Adoquery1.SQL.Add('where users=:A1');
Adoquery1.Parameters.ParamByName('A2').Value:=Edit2.Text;
Adoquery1.Parameters.ParamByName('A1').Value:=Edit1.Text;
Adoquery1.Parameters.ParamByName('A3').Value:=edit5.Text;
ADOQuery1.ExecSQL ;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from users');
//ADOQuery1.Open;
ADOtable1.Close ;
ADOtable1.Open;
ADOtable1.Refresh;
运行提示update 语法错误

Answer 1

Adoquery1.SQL.Add('update users set password=:A2,qx=:A3');
Adoquery1.SQL.Add('where users=:A1');

你这样连起来 sql语句实际是
update users set password='123',qx='aaa'where user='aaa'

where之前没有空格

应该改为：
Adoquery1.SQL.Add('update users set password=:A2,qx=:A3 ');
Adoquery1.SQL.Add('where users=:A1');

Answer 2

Adoquery1.SQL.Add('update users set password=:A2,qx=:A3');
Adoquery1.SQL.Add('where users=:A1');

第二句的“where”之前加个空格。