执行更新查询时查询表达式中的语法错误（缺少运算符）

Question

我似乎有一个更新查询的问题，我正在尝试使用它在使用 Delphi XE2 的 MS Access 数据库中更新用户的当前详细信息。我之前问了一个问题并获得了有关保留字的帮助，但现在我似乎在此查询中遇到了另一个错误。 错误是：

Syntax error(missing operator) in query expression '?
Surname=?
Username=?
[Password]=?
Grade=?'

这是我不断收到的错误 以下是我完成的编码：

procedure TUser.UpdateUser(pFirstname, pSurname, pUsername,
  pPassword: String; pGrade, pID: Integer);
var
  sSQL : String;
begin
  opendb('QuizDB.mdb');

  DB.Close;
  DB.SQL.Add('UPDATE tblUsers SET');
  DB.SQL.Add('Firstname=:Firstname');
  DB.SQL.Add('Surname=:Surname');
  DB.SQL.Add('Username=:Username');
  DB.SQL.Add('[Password]=:Password');
  DB.SQL.Add('Grade=:Grade');
  DB.SQL.Add('WHERE ID=:ID');

  Db.Parameters.ParamByName('Firstname').Value := pFirstname;
  Db.Parameters.ParamByName('Surname').Value := pSurname;
  Db.Parameters.ParamByName('Username').Value := pUsername;
  Db.Parameters.ParamByName('Password').Value := pPassword;
  Db.Parameters.ParamByName('Grade').Value := pGrade;
  DB.Parameters.ParamByName('ID').Value := pID;
  DB.ExecSQL;
end;

其中 DB 是一个 ADOQuery 组件，ID 是数据库中的主键，并且对每条记录都是唯一的。 TUser 是我作为对象创建的类。

请帮我解决这个问题。

Answer 1

请在 SQL 添加行中使用逗号：

DB.Close;
DB.SQL.Add('UPDATE tblUsers SET');
DB.SQL.Add('Firstname=:Firstname,');
DB.SQL.Add('Surname=:Surname,');
DB.SQL.Add('Username=:Username,');
DB.SQL.Add('[Password]=:Password,');
DB.SQL.Add('Grade=:Grade');
DB.SQL.Add('WHERE ID=:ID');