Hola a todos...
Esta quizá sea una pregunta de los más trillada pero es que llevo horas pegada en un segmento de código que me genera error. Espero alguien me ayude a detectar cuál es el problema.
El código siguiente lo extraje del Form_Load de mi aplicación; resulta que estoy intentando leer de la bade de datos pero me arroja un mensaje de error como este: "No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto", en la línea 3.
1 Set rsData = New ADODB.Recordset
2 Cons = "Select Hora From Buffer"
3 rsData.Open Cons, cn, adOpenDynamic, adLockOptimistic
4 cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 5Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\ANALIZADOR\Analiza.mdb;Persist Security Info=False"
6 cn.Open
7 If cn.State = adStateClosed Then
8 MsgBox "Imposible Conectarse a la Base de Datos", vbCritical, "Error de Conexión!!!"
9 End
10 End If
11 cn.CursorLocation = adUseClient
12 Debug.Print "Conexión a Objeto Creada"
13 Combo1.clear
14 If rsData.RecordCount > 0 Then
15 While Not rsData.EOF
16 Combo1.AddItem rsData("Hora")
17 rsData.MoveNext
18 Wend
19 End If
A mi juicio creo que tengo abierta la conexión, pero no se si ven otro error.
La conexión la abro inicialmente en otro Form desde donde inicio la carga de la base de datos.
Espero sinceramente que alguien me pueda ayudar. Estoy comoloca tratando de hallar el problema.
