Fórum Tabela Existe? #211915

05/02/2004

0

Existe alguma forma de eu saber se alguma tabela existe ou não via Delphi?



André


Havilux

Havilux

Responder

Posts

05/02/2004

Havilux

Uso o Interbase com banco de dados...


Responder

Gostei + 0

06/02/2004

Marcelo

Vc pode utilizar o seguinte codigo:

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

Valeu?


Responder

Gostei + 0

06/02/2004

Havilux

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é


Responder

Gostei + 0

06/02/2004

Everton

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;


Responder

Gostei + 0

09/02/2004

Havilux

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???


Responder

Gostei + 0

09/02/2004

Marco Salles

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]


Responder

Gostei + 0

09/02/2004

_nekinho_

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


Responder

Gostei + 0

09/02/2004

Everton

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;


Responder

Gostei + 0

09/02/2004

Aroldo Zanela

Colega,

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar