Visual Basic 6 consulta sobre recordset ADO...
Tengo el siguiente código:
Option Explicit
Dim MiConexion As ADODB.Connection
Dim MiRecordset As ADODB.Recordset
Dim ruta As String
Private Sub Form_Load()
Set MiConexion = New ADODB.Connection
Set MiRecordset = New ADODB.Recordset
ruta = App.Path & "\bd1.mdb"
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
MiRecordset. Open "ALTER TABLE MANZANA ADD COLUMN NOMBRE TEXT(80)", MiConexion, adOpenDynamic, adLockOptimistic
MiRecordset. Close
MiConexion. Close
End Sub
...
Este código agrega una nueva columna a mi tabla MANZANA, esta nueva columna se llama NOMBRE y es de tipo text con 80 caracteres de espacio, lo hace bien, pero no sé porque aparece un mensaje que dice: "La operación no está permitida si el objeto está cerrado".
...
¿Alguien me puede decir como hacer para que no me aparezca ese mensaje de error?
Option Explicit
Dim MiConexion As ADODB.Connection
Dim MiRecordset As ADODB.Recordset
Dim ruta As String
Private Sub Form_Load()
Set MiConexion = New ADODB.Connection
Set MiRecordset = New ADODB.Recordset
ruta = App.Path & "\bd1.mdb"
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
MiRecordset. Open "ALTER TABLE MANZANA ADD COLUMN NOMBRE TEXT(80)", MiConexion, adOpenDynamic, adLockOptimistic
MiRecordset. Close
MiConexion. Close
End Sub
...
Este código agrega una nueva columna a mi tabla MANZANA, esta nueva columna se llama NOMBRE y es de tipo text con 80 caracteres de espacio, lo hace bien, pero no sé porque aparece un mensaje que dice: "La operación no está permitida si el objeto está cerrado".
...
¿Alguien me puede decir como hacer para que no me aparezca ese mensaje de error?
1 respuesta
Respuesta de José Saúl Méndez Alonso
1