Jump to content

Mensaje de no conectado a la Base de Datos


Recommended Posts

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

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy