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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.CloseLo 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