Fórum Testar se Campo,Tabela,Generator e etc existem. #41593

Galera,

Existe uma unit no meu programa que atualiza a base quando necessário, mas olha que coisa de índio.
A pessoa que programou fez assim:

procedure TfrmAtualizaBase.Atu3240;
begin
with DmDados.QryGenerica do
begin
Close;
Sql.Clear;
Sql.Add(´ALTER TABLE BANCO ´);
Sql.Add(´ ADD CODINSTR1 VARCHAR(2),´);
Sql.Add(´ ADD CODINSTR2 VARCHAR(2)´);
[b:445863b7db] Try
ExecSql;
Except
end;[/b:445863b7db] Close;
Sql.Clear;
end;
end;

Notem o Try..Except..End;

Isso é feito porque se os campos CODINTRS1 E CODINSTR2 já existirem um erro será gerado, mas como
o Except está vazio não é mostrado o erro.

Bom, eu quero fazer diferente, aliás o correto. Algo como

Se CampoX não existir então
Cria;

Se TabelaX não existir então
Cria;

Se GeneratorX não existir então
Cria;

etc.

Existe isso no IB ???

Meu IB é o 6.0

Obrigado.