Conexão Firebird

[Arnaldo 0]

Boa Tarde

 

Tenho uma conexão em rede banco de dados Firebird 2.1 como abaixo

Dim Comc as string
comc="192.168.0.2:C:\Pasta\Banco.FDB"
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.Open "Provider=IBOLE.PROVIDER;Data Source=" & Comc & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey"

Funciona perfeitamente porém anda algumas vezes acontecendo o seguinte

 

Quando faço um select

Set Rs1=cnn.execute("Select * tblProduto Where Codigo='" & me.Codigo & "'")

O sistema simplesmente trava, fui verificar e percebi que a rede está instavel, desconecta,conecta,desconecta etc.

isso acontece quando a maquina fica por algum tempo parada sem que nenhum usuario utilize o sistema.

 

ai pensei

 

Teria uma forma de ao fazer um select passados se 10 segundos sem obter a resposta do servidor, enviar uma mensagem para o usuario que a rede está desconectada ? isso sem trava o sistema ,tipo um timeout

 

ouvi dizer que tem como definir isso na conexão, alguem sabe como posso resolver este Problema ?

 

Obrigado.

[Brown. 1]

Segue: http://www.comunidade-firebird.org/cflp/downloads/CFLP_O015.PDF