Mensaje de no conectado a la Base de Datos

[marcosab]

Hola a todos

Requiero de su ayuda para completar el siguiente macro

 

Private Sub UserForm_Initialize()
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset, Sql As String
Dim Hoja As Object


ComboBox1.ColumnCount = 4
ComboBox1.ColumnWidths = "50;40;100;150"
Set Cnn = New ADODB.Connection
Cnn.Open "Driver={SQL Server}; Server=10.15.50.50; Database=pruebas; Uid=sa;Pwd=123456"
Set Rs = New ADODB.Recordset
Sql = "SELECT Usuario, Contraseña, Hojas_Activas, Nombre, Unidad FROM Usuarios"
Rs.Open Sql, Cnn, 3, 3, adCmdText
If Not Rs.EOF = True Then ComboBox1.Column = Rs.GetRows
Cnn.Close

 

Lo que requiero es lo siguiente

1 limitar a 10 segundo el tiempo maximo para buscar si la base de datos esta disponible

2 Que mande un mensaje cuando la base datos no esta disponible o no se puede conectar con el servidor SQL 

 

Muchas gracias por las ayudas

[marcosab]

Buenas tardes. Lo más importante es un mensaje donde se indique que la base de datos no esta disponible. Espero alguno me pueda ayuda.

Saludos.

[Abraham Valencia]

Hola

Dale una leída a la propiedad ConnectionTimeout de ADO, prueba y vuelve a comentar si es lo que necesitas o no. Saludos.