eu utilizo assim.
TbAux.SelectSQL.Text := 'select * from PRODUTOS where CODPRODUTO is null';
TbAux.Open;
if TbAux.FindField('QTDEANT') = nil then
ExecutaSQL('ALTER TABLE PRODUTOS ADD QTDEANT NUMERIC(15, 3)');
TbAux.Close;
----- Original Message -----
From: Anderson Quandt Venancio
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 09, 2005 1:52 PM
Subject: [delphi-br] Verificar se coluna existe (Firebird)
Pessoal, eu já havia enviado esta dúvida no grupo sobre Firebird, mas
disseram para perguntar prá vocês ...
Lá vai:
No meu programa DELPHI, tenho uma função em que tenho o seguinte
comando SQL:
SELECT rdb$relation_fields.field_name
FROM rdb$relation_fields.rdb$relation_name = 'TABELA'
WHERE rdb$relation_fields.rdb$field_name = 'CAMPO_TABELA'
Só que quando executo este comando pelo programa ele não encontra,
mesmo existindo a coluna na tabela em questão ....
Tanto que se eu pego este SQL (no Debugger) e executo no IBExpert,
por exemplo, ele retorna correto (encontra a coluna)...
Já fiz um teste, retirando a condição da coluna (rdb$field_name),
deixando somente o teste da tabela, e daí ele encontra. Mas quando
coloco a verificação da coluna daí deixa de funcionar.
Alguém sabe o que está errado ou sabe como posso fazer para testar se
determinada coluna existe ou não em uma tabela, no Firebird?
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
