Verificar se existe tabela Via Delphi

Question

Gostaria de Verificar se existe uma determinada tabela(Banco Firebird)
via Delphi !

Preciso fazer o seguinte:

Se existe a Tabela (MinhaTabela) ent�o : Drop Table MinhaTabela

isso via aplicativo Delphi.

se alguem puder me ajudar agrade�a !!!!!

Marco Salles · Answer

A maneira que eu conhe�o � usando o objeto global sesion.. Para acessar seus m�todos tem que definir [b:2301d93920]DBtables [/b:2301d93920]

Usamos ent�o o m�todo GetTableNames

Este m�todo possui cinco parametros

1)O Nome (Aliase) de um Banco de Dados.. [b:2301d93920]Acho que o caminho n�o serve[/b:2301d93920] 2)Uma string de filtro 3) um valor booleano indicando se as extensoes da tabela ser�o incluidas -->> No caso de uma pesquisa muito importante 4)um valor booleano indicando se as tebelas de sistemas serao incluida na lista(apenas para bancos de dados SQL) 5)O Componente TstringList

seria mais ou menos assim:

function (NomeDoBanco,NomeDaTabela):boolean;
var
lista:TStringList;
begin
result:=False;
Lista:=TstringList.Create;
 Session.GetTableNames (NomeDoBanco, ��,
    True, False,Lista);
if Lista.indexof(NomeDaTabela) > -1 then
 result:=true;
end;

Paullsoftware · Answer

Tente abrir a tabela dentro do bloco Try Except

Try
MinhaQuery.Close;
MinhaQuery.Sql:=�Select * From MinhaTabela�;
MinhaQuery.Open;
ShowMessage(�Tabela Existe�);
Except
//Caso contrario...
end;

sen�o abrir � pq n�o existe! :wink:

Andremuller · Answer

al�m das outras respostas, tamb�m � poss�vel consultar nas tabelas de sistema, op��o que sempre adoto em diversos bancos.
No caso do firebird seria ver se a query abaixo retorna algum resultado:

select rdb$relation_name 
from rdb$relations
where rdb$flags = 1
and rdb$view_blr is null
and rdb$relation_name = �SUA TABELA�

a vantagem de utilizar as tabelas de sistema � que essas consultas podem ser utilizadas tamb�m em procedures e triggers