Testar conexão ADO SQL Server 2000 remoto
Ola pessoal, aqui na minha empresa tenho 5 servidores de banco de dados espalhados em varias filiais interligadas atraz de VPN, estou precisando criar um programa para validação de dados entre bancos. Pois existem casos que o meu servidor de replicação não envia ou não recebe dados. O programa já está pronto, mas quando mando executar, devido a grande quantidade de registros a conexão entre os bancos acaba caindo e automaticamente para o programa. Estou precisando incluir alguma especie de verificador de conexao, tipo de estiver desconectado o mesmo deverá ficar tentando conectar, e uma maneira de se a conexao cair o sistema não pare e fique aguardando ´Tentado´ conexão.
Alguém poderia me ajudar.
Alguém poderia me ajudar.
Geison.risso
Curtidas 0
Respostas
Ruysalles
05/10/2007
Quando você for executar as suas querys pode fazer o seguinte:
with AdoConnection do
begin
while connection.active = false do
connection.active := true
end;
espero ter ajudado
with AdoConnection do
begin
while connection.active = false do
connection.active := true
end;
espero ter ajudado
GOSTEI 0
Geison.risso
05/10/2007
Quando você for executar as suas querys pode fazer o seguinte:
with AdoConnection do
begin
while connection.active = false do
connection.active := true
end;
espero ter ajudado
Veja se está correto:
with AdoConnection1 do
while ADOConnection1.Connected = false do
begin
try
ADOConnection1.Connected := true;
except
end;
Caso sim... não deu... ainda continua dando erro e parando o programa...
GOSTEI 0