var I : Integer; bFlag : Boolean; begin bFlag := False; with ADOQuery1 do begin Close; SQL.Text := 'SELECT * FROM Table'; Open; for I := 0 to Fields.Count - 1 do begin if '字段名' = Fields[I].FieldName then begin bFlag := True; Break; end else Continue; end; end; if bFlag then ShowMessage('[字段名]存在'); end;
然后遍历他的字段与你要判断的字段名比较
取指定的字段
except
如果有异常抛出,表示该字段不存在。
end;
if query.isempty then
不存在
然后遍历他的字段与你要判断的字段名比较
----------------
沉沦中..........
沉沦中..........
I : Integer;
bFlag : Boolean;
begin
bFlag := False;
with ADOQuery1 do
begin
Close;
SQL.Text := 'SELECT * FROM Table';
Open;
for I := 0 to Fields.Count - 1 do
begin
if '字段名' = Fields[I].FieldName then
begin
bFlag := True;
Break;
end else Continue;
end;
end; if bFlag then ShowMessage('[字段名]存在');
end;