jvera1967
10 de Agosto del 2005

Existe un servidor SQl Server que no siempre está disponible, y necesito de alguna forma comprobar si está disponible o no, por medio de código.

Otra forma sería saber si existe una dirección IP determinada en la RED.

Gracias de Antemano

mvallejos
10 de Agosto del 2005

Debes setear la propiedad ConnectionTimeout en un valor bajo, digamos 10 segundos, que es suficiente, la conexión a la base la ejecutas en una rutina con tratamiento de error. Capturas el error y tienes el mensaje adecuado

Saludos

carlos guerra
10 de Agosto del 2005

esta validacion te puede servir espero

si tu conexion es ado usa este codigo

Private Sub Form_Load()
cnns = "data source=war;initial catalog=northwind;provider=msdasql.1"
With cnn
.ConnectionString = cnns
.Open
If .State <> adStateOpen Then
MsgBox "no hay conexion"
Else
Me.Caption = "ACTIVE CONNECTION"
End If
sql = "select * from shippers"
rst.Open sql, cnn, adOpenStatic
mostrar

End With
End Sub

solo adecua tu data source

si necesitas algo mas escribeme al correo ok