VERIFICAR CONEXAO DE REDE
Bom dia
tenho um sistema funcionando em rede, mas não sei porque vez em quando a conexão cai e o sistema trava.
alguem sabe um comando que verifique se a conexão está ativa.
a ideia é colocar antes dos selects esta verificação.
obrigado
tenho um sistema funcionando em rede, mas não sei porque vez em quando a conexão cai e o sistema trava.
alguem sabe um comando que verifique se a conexão está ativa.
a ideia é colocar antes dos selects esta verificação.
obrigado
Eu não sei o numero do erro, mas pegue este numero e trate o erro
exemplo
na sub em que estão os select
assim vc pode tratar da maneira que quiser até mesmo refazer a conexão novamente
exemplo
na sub em que estão os select
On Error Goto TrataErro
'seu código
Exit Sub
TrataErro:
If Err.Numer = 'coloque o numero do erro' Then
Msgbox [Ô]Sem Conexão de Rede.[Ô]
End ifassim vc pode tratar da maneira que quiser até mesmo refazer a conexão novamente
isso não resolve marcelo pois já existe.
o que acontece é que quando é feito o select o computador trava.
então teria que ser feito a verificação antes da execução do select.
o que acontece é que quando é feito o select o computador trava.
então teria que ser feito a verificação antes da execução do select.
se entendi bem !!! dê uma olhada veja se dar para adaptar.
[ô]
Option Explicit
[ô]Constantes para determinar que tipo de REDE estamos conectados
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
[ô]FUNCAO Api IsNetworkAlive para detectar _
SE ESTAMOS CONECTADOS A QUE TIPO DE REDE
Private Declare Function IsNetworkAlive Lib [Ô]SENSAPI.DLL[Ô] ( _
ByRef lpdwFlags As Long) As Long
Private Sub Command1_Click()
Dim Ret As Long
[ô]SE RETORNAR 0 NÃO Hà NENHUM TIPO DE CONEXAO DE REDE
If IsNetworkAlive(Ret) = 0 Then
MsgBox [Ô]SEU SISTEMA NÃO ESTà CONECTADO EM NENHUMA REDE![Ô], vbInformation
Else
[ô]SE TIVER CONECTADO MOSTRA O TIPO DE REDE
MsgBox [Ô]SEU SITEMA ESTà CONECTADO: [Ô] + _
IIf(Ret = NETWORK_ALIVE_AOL, [Ô]AOL[Ô], _
IIf(Ret = NETWORK_ALIVE_LAN, [Ô]LAN[Ô], [Ô]WAN[Ô])) + [Ô] network[Ô], vbInformation
End If
End Sub
[ô]
Option Explicit
[ô]Constantes para determinar que tipo de REDE estamos conectados
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
[ô]FUNCAO Api IsNetworkAlive para detectar _
SE ESTAMOS CONECTADOS A QUE TIPO DE REDE
Private Declare Function IsNetworkAlive Lib [Ô]SENSAPI.DLL[Ô] ( _
ByRef lpdwFlags As Long) As Long
Private Sub Command1_Click()
Dim Ret As Long
[ô]SE RETORNAR 0 NÃO Hà NENHUM TIPO DE CONEXAO DE REDE
If IsNetworkAlive(Ret) = 0 Then
MsgBox [Ô]SEU SISTEMA NÃO ESTà CONECTADO EM NENHUMA REDE![Ô], vbInformation
Else
[ô]SE TIVER CONECTADO MOSTRA O TIPO DE REDE
MsgBox [Ô]SEU SITEMA ESTà CONECTADO: [Ô] + _
IIf(Ret = NETWORK_ALIVE_AOL, [Ô]AOL[Ô], _
IIf(Ret = NETWORK_ALIVE_LAN, [Ô]LAN[Ô], [Ô]WAN[Ô])) + [Ô] network[Ô], vbInformation
End If
End Sub
Tópico encerrado , respostas não são mais permitidas