delphi 用ADOquery 删除 数据库中的字段 想弹框提示，但是我实习不了

Question

procedure TForm1.ZdDeleteClick(Sender: TObject);
begin
  query.Close;
  query.SQL.Clear;
  query.SQL.Text := 'alter table tChildren drop column '+Trim(zdedit.Text);
  query.ExecSQL;
end; 这个是我删除字段的代码，但是我把字段删除了以后再删除一次就报错，我想用个if 然后如果字段不存在，就弹出一个窗口说字段不存在，请重新输入。求高端大大指导一下

Answer 1

你干脆try...except的了，要不还得获取一下字段列表，看看在不在

Answer 2

  try
    query.Close;
    query.SQL.Clear;
    query.SQL.Text := 'alter table tChildren drop column '+Trim(zdedit.Text);
    query.ExecSQL;
  except
    .....

Answer 3

判斷一下query.SQL.Add('if col_length(''tChildren'',''+Trim(zdedit.Text)+'') is not null');
query.SQL.Add('alter table tChildren drop column '+Trim(zdedit.Text));