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

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.

Hola

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