Fórum Delphi7 Firebird - Paleta IBX - perda de conexão #461174
15/11/2013
0
Utilizo a palheta INTERBASE com IBQuery para conexões ao Firebird.
Fiz uma pesquisa, pesquisei por 1 semana e nao consegui encontrar uma maneira de "tratar" este erro. Gostaria que o aplicativo reconectasse automaticamente quando ocorrer este problema, pq os clientes nao têem paciencia com isso.
Alguem pode me ajudar?
Barrys
Curtir tópico
+ 0Posts
15/11/2013
Járabe Emanuel
Vc tem certeza que essa tua rede tá legal? de repente não é o sistema e sim tua rede.
Uma forma meio gambiarra, é colocar no OnShow dos fomes para verificar se está conectado, se não estivesse ele conectaria ao banco.
Essa sua conexão é feita por IP ou pelo nome do PC?
Gostei + 0
15/11/2013
Barrys
eu faço conexão por IP, todo processo correto.
até tenho a conexão por meio de dominio, acessando via internet.
mas fiz um teste aqui, uma simulação para ver o problema.
Acessei o sistema, parei o serviço do Firebird e imediatamente voltei, mesmo assim o sistema dá erro e tem de ser reiniciado.
nao consigo de forma alguma "tratar" o erro e reconectar sem problemas.
aguardo ajuda
Gostei + 0
25/11/2013
Barrys
Gostei + 0
26/11/2013
Járabe Emanuel
Gostei + 0
26/11/2013
Járabe Emanuel
eu faço conexão por IP, todo processo correto.
até tenho a conexão por meio de dominio, acessando via internet.
mas fiz um teste aqui, uma simulação para ver o problema.
Acessei o sistema, parei o serviço do Firebird e imediatamente voltei, mesmo assim o sistema dá erro e tem de ser reiniciado.
nao consigo de forma alguma "tratar" o erro e reconectar sem problemas.
aguardo ajuda
Será que não é um problema com permissão de usuário do Windows ou Firewall que está te bloqueando?
Gostei + 0
26/11/2013
Barrys
configurei tudo corretamente no firewall e permissões...
fiz um outro teste simples para ver o problema : parei o serviço do Firebird e tentei usar o sistema novamente... mesmo problema da conexão em rede wireless.
continuo sem solução para este problema.
Gostei + 0
27/11/2013
Ricardo Araujo
Outra coisa post o erro da conexão também.
Gostei + 0
27/11/2013
Barrys
close;
sql.clear;
sql.add('');
active := true;
open;
Gostei + 0
27/11/2013
Ricardo Araujo
Usamos Conexão ADO, isto pode ser feito usando IBX também sem problema.
var
qQry : TADOQuery.
sSQL : String;
begin
qQry := TADOQuery.Create(Self);
try
sSQL := '';
sSQL := sSQL + ' select * from pedido ';
sSQL := sSQL + ' where cod_pedido = ' + QuotedStr(dmDados.cdsPedido.FieldByName('cd_pedido').AsString);
qQry.Close;
qQry.Connection := {Aqui passo a conexão do banco}
qQry.SQL.Clear;
qQry.SQL.Add(sSQL);
qQry.Open;
finally
FreeAndNil(qQry);
end;
end;
Att:
rbbarreto@hotmail.com
Gostei + 0
27/11/2013
Barrys
* inicie o sistema
* faça um consulta ao database (qualquer consulta)
* vá no Painel de controle e dê Stop no Firebird, logo depois acione Start (nao feche o sistema)
* tente fazer a mesma consulta
este procedimento faz o sistema travar com erro.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)