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;
要写也只能写成"comment_flag=:i",还要通过ADO的Parameters属性访问。
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;