哦,对了, comment_flag是整型.

解决方案 »

  1.   

    不能直接在SQL中引用Delphi的变量。
    要写也只能写成"comment_flag=:i",还要通过ADO的Parameters属性访问。
      

  2.   

    procedure TForm1MainMenu.Button1Click(Sender: TObject);
    var
      i: Integer;
    begin
      F_ADOQuery1 := TADOQuery.Create(self);
      F_ADOQuery1.Connection := ADOConnection1;
      with F_ADOQuery1 do
      begin
        with SQL do
        begin
          Clear;
          Add('Update service_department set comment_flag = ' + Trim(IntToStr)(i)');    
        end;
        ExecSQL;
      end;