Testar se tabela existe dentro do FB

Question

Preciso fazer um IF dentro de um banco FB para saber se determinada tabela existe ou n�o, tipo:

if Tabela Exist then
Drop Table.....

Como fa�o? Como � a sintaxe?
Aten��o!!! N�o � via Delphi, eu preciso criar uns Scripts e gosto de come�ar com drop e se a tabela n�o existir(Primeira vez) d� erro.

Joaoshi · Answer

Colega, v� se ajuda:[b:95b0b5980b]select rdb$relation_name from rdb$relations[/b:95b0b5980b] where rdb$relation_name = �NomeSuaTabela�;...

Paulo · Answer

JOAO, EU DOU UM IF EXISTS(SELECT.....) = 0 THEN DROP...? OU COMO FA�O?...

Joaoshi · Answer

Paulo, pelo que entendi seria pelo IF EXISTS....

Paulo · Answer

N�o funcionou. Da erro no if:[quote:e795371f30]IF EXISTS(SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WRDB$RELATION_NAME = �VENDA_ITENS� THEN  DROP TABLE VENDA_ITENS;[/quote:e795371f30]...

Joaoshi · Answer

Tente com este c�digo:[code:1:adeb6b21c5]IF EXISTS(SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = �VENDA_ITENS�) THEN DROP TABLE VENDA_ITENS;[/code:1:adeb6b21c5]...

Paulo · Answer

� o mesmo c�digo que o meu. Continua dando erro....

Joaoshi · Answer

No seu c�digo n�o estava escrito corretamente o WHERE  e faltava fechar o parentesis ap�s �VENDAS_ITENS�.Espero ter ajudado....

Martins · Answer

N�o testei as dicas do senhores, mas vejam se a dica do sr. Vampas ajuda vcs.

Procedure TForm1.BitBtn1Click(Sender: TObject);
var L:TStringList;
begin
{A classe TStringList � utilizada para armazenar e manipular
uma lista de strings. Atrav�s do m�todo Add da classe � poss�vel
inserir uma nova string a lista}

//criando Stringlist na mem�ria
L := TStringList.Create;
//pega o nome da tabela
SQLConnection1.GetTableNames(L);
//pega a posi��o do tbteste(come�a no 0)
if L.IndexOf(�tbteste�) >= 0 then
begin
Showmessage(�Esta tabela j� existe no BD!�);
Abort
end
else
begin
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add(�create table tbteste(�);
SQLQuery1.Sql.Add(�cod_teste integer not null primary key, �);
SQLQuery1.Sql.Add(�nome_teste varchar(40))�);
SQLQuery1.ExecSQL;
L.Free;
ShowMessage(�Tabela Criada com sucesso!�);
end;
end;

Por esse c�digo � poss�vel ter uma id�ia, mas assim q o tempo me permitir irei olhar os c�digos postados pelos senhores.

Boa sorte e bons c�digos.

Martins · Answer

Qual o erro q d� nesse c�digo? Vc est� usando IBExpert?

IF EXISTS(SELECT RDB$RELATION_NAME FROM RDB$RELATIONS
WHERE (RDB$RELATION_NAME = �VENDA_ITENS�) and
(RDB$VIEW_BLR is NULL)) THEN

DROP TABLE VENDA_ITENS;

Pestana_ · Answer

tente assim:[code:1:e7ee0b7ea5]IF (EXISTS(SELECT RDB$RELATION_NAME           FROM RDB$RELATIONS           WHERE (RDB$RELATION_NAME = �VENDA_ITENS�)           AND   (RDB$VIEW_BLR IS NULL))) THEN  EXECUTE STATEMENT �DROP TABLE VENDA_ITENS�;[/code:1:e7ee0b7ea5]flw....

Pestana_ · Answer

estou supondo que voc� esteja utilizando SP!flw....

F�rum Testar se tabela existe dentro do FB #60030