无法关闭或打开并激活或停用ADOQuery1

Question

两个代码都正常工作.但是不能ADOQuery1.close或ADOQuery1.open以及活动或非活动的ADOQuery1来查看更改.要查看更新的更改,我必须重新执行项目.提前致谢

procedure TForm1.Button4Click(Sender: TObject);
begin    
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update new set net='''+Edit1.Text+''' ' );
ADOQuery1.SQL.Add('where code=16');
ADOQuery1.ExecSQL;


procedure TForm1.Button4Click(Sender: TObject);
begin 
ADOQuery1.Active:=false;
ADOQuery1.SQL.Text := 'update new set net=:num where code=16';
ADOQuery1.Parameters.ParamByName('num').Value := Edit1.Text;
ADOQuery1.ExecSQL;

Answer 1

对每个方面使用查询组件

SelectQuery.SQL.Text := 'SELECT * FROM new';
UpdateQuery.SQL.Text := 'UPDATE new SET net=:num WHERE code=16';

要更新记录,只需设置参数,执行UpdateQuery并刷新SelectQuery.

procedure TForm1.Button4Click(Sender: TObject);
begin 
  UpdateQuery.Parameters.ParamByName('num').Value := Edit1.Text;
  UpdateQuery.ExecSQL;
  SelectQuery.Refresh;
end;

这很容易,简单甚至更快,因为在第一次执行UpdateQuery该语句之后就已经准备好了.