Tabela Existe?

Uso o Interbase com banco de dados...

Vc pode utilizar o seguinte codigo:

If FileExist( ´sua_tabela_com_path´ ) then
showmessage( ´Tabela existe´ )
else
showmessage( ´Tabela nao existe´ )
end;

Valeu?

O Que eu preciso é o seguinte, eu tenho uma tabela chamada TEMP, que é criada no inicio da operação e destruido no final, só que as vezes nào chega ao final e ela não é destruida e qd vou entrar denovo, acusa que a tabela TEMP já existe no banco. Eu quero um comando que verifica dentro do banco se a tabela TEMP existe ou não.


André

Havilux,

coloque o seguinte código:

try
Query.SQL.Add(´SELECT * TEMP´);
Query.Open
// se houver a necessidade de apága-la
// dê um DROP nela aqui (fechando-a antes, é claro)
except
//Coloque aqui o código de criação da tabela
end;

Se eu fizer um SQL do tipo ´select * from TEMP´ e a tabela não exister, ele me dá uma msg de erro dizendo que a tabela de consulta não foi encontrada...


E agora???

Uma Maneira De Saber Se Uma Tabela Existe Via Programação Delphi é Usar a Procedure ´Exists´. Agora, Como Voce Poderá Tirar Proveito Disto, é Outro Problema. De Qualquer Forma Segue o Código
[color=red:8c53037b94]if not TEMP.Exists Then
//Faça o que For Conveniente
else
// Faça a Outra Parte[/color:8c53037b94]

Ae cara o componente te da essa resposta. tem uma propriedade la tableexists. testa ae

Havilux,

try
Query.SQL.Add(´SELECT * TEMP´);
Query.Open // Se não existir a tabela irá ocorrer uma exceção, que
// será vista somente quando você estiver executando o
// programa pelo delphi, então será executado o que
// estiver dentro do bloco abaixo (except - end;)
except
// Aqui você deve executar o Script de criação da tabela
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(´CREATE TABLE ....´);
Query.ExecSQL;
end;

Colega,

Veja: http://delphiforum.icft.com.br/forum/viewtopic.php?t=35335