VERIFICAR CONEXAO DE REDE
Amigos, tenho um sistema que desenvolvi no Access que funciona em rede. No sistema as tabelas estão vinculadas, ou seja, as tabelas no servidor e o restante nas estações. Quando o usuário faz o login o sistema verifica o nome e senha do usuário para validação. Até aà tudo bem, acontece que quando, por qualquer motivo a rede está desconectada, logicamente o sistema não consegue fazer a validação, contudo não é dada nenhuma mensagem ao usuário. Gostaria de saber se tem como, antes do sistema fazer a validação do usuáio, possa ser feita uma verificação da conexão de rede e em caso negativo, exibir uma mensagem ao usuário. Grato.
BOAS,
voce pode usar com componente wnsock do visual Basic,
Insira o componente no seu projeto e crie uma procedure,mas antes renomeie o Socket pra wSock Ok,segue o codigo:
neste codigo voce verifica se tem acesso à rede e a internet.
voce pode usar com componente wnsock do visual Basic,
Insira o componente no seu projeto e crie uma procedure,mas antes renomeie o Socket pra wSock Ok,segue o codigo:
Private Sub Form_Load()
wSock.Close
wSock.RemoteHost = ([Ô]www.microsoft.com[Ô])
wSock.RemotePort = 80
wSock.Connect
End Sub
Private Sub wSock_Connect()
MsgBox ([Ô]Conectado![Ô])
End Sub
Private Sub wSock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox ([Ô]Erro[Ô])
End Sub
neste codigo voce verifica se tem acesso à rede e a internet.
Tratar o erro é o metodo mais simples, ou seja no form oonde ocorre o erro, anote o numero do erro que é gerado quando não ha conexão e trate assim:
e pronto
On Error Goto TrataErro
[ô]...codigo de conexão
Exit Sub
TrataErro:
If Err.Number = (aqui coloque o numero do erro) Then
Msgbox [Ô] Não há conexão no momento. Tente mais Tarde![Ô]
End Ife pronto
Tópico encerrado , respostas não são mais permitidas