CONEXAO REMOTA

PROCURADO 16/08/2012 15:07:34
#408032
Boa Tarde

criei uma conexao remota conforma abaixo


gADO_Remotal = [Ô]PROVIDER=MSDASQL;dsn=[Ô] & gODBC_Remota & [Ô];uid=postgres;pwd=postgres;database=[Ô] & gODBC_remota


gConexao_Remota.Open gADO_Remoto
If gConexao_Remota.State = 0 Then
MsgBox [Ô]Não Houve Conexão com a Base de Dados Local ![Ô], vbInformation, [Ô]VMSNote[Ô]
Screen.MousePointer = 0
Exit Sub
End If


Desenvolvi um aplicativo que me atualiza a minha base de dados a cada 15 minutos, porem ao tentar conectar minha conexao remota me da um erro e fecha o aplicativo, tudo porque nao tenho nenhuma internet no momento para fazer essa conexao. de que forma posso controlar essa verificao se existe uma conexao de internet.

o erros da nesta string gConexao_Remota.Open gADO_Remoto, quando vai abrir meu dsn criado.

agradeço-lhes pela ajuda
MARCELO.TREZE 16/08/2012 16:04:34
#408035 Resposta escolhida
Bom primeira coisa a tentar é tratar o erro assim:

[txt-color=#0000f0]On Error Goto TrataErro[/txt-color]

gADO_Remotal = [Ô]PROVIDER=MSDASQL;dsn=[Ô] & gODBC_Remota & [Ô];uid=postgres;pwd=postgres;database=[Ô] & gODBC_remota


gConexao_Remota.Open gADO_Remoto
If gConexao_Remota.State = 0 Then
MsgBox [Ô]Não Houve Conexão com a Base de Dados Local ![Ô], vbInformation, [Ô]VMSNote[Ô]
Screen.MousePointer = 0
Exit Sub
End If

[txt-color=#0000f0]Exit Sub
TrataErro:
If Err.Number = numero do erro que apareceThen
Msgbox [Ô]Não Há conexão Com a internet[Ô]
End If[/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar