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

[liuleijava]

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 然后如果字段不存在，就弹出一个窗口说字段不存在，请重新输入。。。。

求高端大大指导一下

[bdmh]

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

[liuleijava]

[Quote=引用 1 楼 的回复:]
你干脆try...except的了，要不还得获取一下字段列表，看看在不在
[/Quote]
try
query.Close;
query.SQL.Clear;
query.SQL.Text := 'alter table tChildren drop column '+Trim(zdedit.Text);
query.ExecSQL;
except
.....

[liuleijava]

[Quote=引用 2 楼 的回复:]
引用 1 楼 的回复:
你干脆try...except的了，要不还得获取一下字段列表，看看在不在

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


那么如果要实现 如果那一列已经删除了，然后就停止查询继续运行呢？

[liuleijava]

[Quote=引用 2 楼 的回复:]
引用 1 楼 的回复:
你干脆try...except的了，要不还得获取一下字段列表，看看在不在

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


那么如果要实现 如果那一列已经删除了，然后就停止查询继续运行呢？

[kaikai_kk]

判斷一下

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