当我删除一条记录时会跳出错误，谁帮我看看

Question

adoquery1.Open 
改为
adoquery1.execsql

Answer 1

procedure TForm1.Button11Click(Sender: TObject);
var
InputString:string;
begin
 InputString:=InputBox('提示', '输入工号', '');
 adoquery1.Close ;
 adoquery1.SQL.Clear ;
 adoquery1.SQL.Add('delete  from worker where workid='+''''+InputString+'''');
//不能用此句
 adoquery1.Open ;
//改用此句
ADOQuery1.ExecSQL;end;

Answer 2

用try except封装起来
procedure TForm1.Button11Click(Sender: TObject);
var
InputString:string;
begin
 InputString:=InputBox('提示', '输入工号', '');
 adoquery1.Close ;
 adoquery1.SQL.Clear ;
 adoquery1.SQL.Add('delete  from worker where workid='+''''+InputString+'''');  try
 adoquery1.Open ;
  except
  end;
end;