Probar una conexi贸n por medio de C贸digo
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
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
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
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