Verificar conexão com o Banco de Dados

Delphi

20/10/2005

Pessoal, estou precisando de um exemplo de como posso verificar se a conexão com o Banco de Dados está sendo feita através do meu sistema, isso porque o sistema funciona via rede e de vez enquando alguém anda desligado o servidor do meu programa.

Obrigado

Obrigado


Leandrosl

Leandrosl

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

20/10/2005

Colega,

Para testar a conexão com o BD especificamente, vc pode envolver o processo de conexão em um bloco try..except:
try
  ComponenteDeConexao.Connect;
except
  // Aqui o erro. Não conseguiu se conectar.
end;

O único problema é que este processo, normalmente, é lento.

Se testar se o servidor/serviço estão no ar for suficiente para vc, veja exemplos nestes tópicos:
http://forum.clubedelphi.net/viewtopic.php?p=178428#178428
http://forum.clubedelphi.net/viewtopic.php?p=224705224705
Estes exemplos são válidos caso vc esteja utilizando algum SGBD que utilize comunicação pelo protocolo TCP.

T+


GOSTEI 0
Fx|hand

Fx|hand

20/10/2005

Bom... no Conector q eu uso pro MySql, ele jah vem com uma função...
agora eu não sei se vai servir pra vc....
seria:

If MySql.Ping then
  ShowMessage(´Ainda Conectado´)
else
  ShowMessage(´Conexão Perdida´);


´MySql.Ping´ ele retorna um valor boolean... ai fica facil saber se tah conectado ou naum !


GOSTEI 0
POSTAR