Error: La operación no está permitida si el objeto está cerrado.

[ValeriaGP]

Soy una completa novata en esto, no se que significa ese error. Me sale cuando intento guardar los datos de dos txt en la base de datos de Access, con el siguiente código:

Dim cedtrue As Boolean = False
Dim contrue As Boolean = False
Dim registro As New frmRegistro
Dim ced As String
Dim con As String
ced = txtDI.Text
con = txtContrasena.Text

'Aqui es donde me genera el error y no avanza mas a traces de la cadena.

While (Usuario.EOF = False) And (cedtrue = False) And (contrue = False)
If (ced = Usuario.Fields(0).Value) Then
cedtrue = True
If (con = Usuario.Fields(3).Value) Then
contrue = True
Else
MsgBox("Contraseña incorrecta")
End If
Else
Usuario.MoveNext()
End If
End While

If (cedtrue = True) And (contrue = True) Then
frmRegistro.Show()
ElseIf (cedtrue = False) And (contrue = False) Then
MsgBox("Documento incorrecto")
End If


Este error ya lo pudieron resolver en otro foro pero ninguna de las soluciones las pude o supe aplicar a este codigo. Tambien me sale en otros codigos donde intento consultar o guardar datos en la BD.

Muchas gracias, de antemano, por la atencion prestada.

[Insomnia]

Hola

En principio diría que es porque el recordset o la bd están cerradas, en que parte del código abres el recordset usuario?, lo cierras en algún momento?

--Saludos--

[ValeriaGP]

Pues he intentado abrir el recorset usuario con Usuario.open() dentro del codigo pues en el modulo de Conexion ya lo abri, pero no funciona... aunque creo que esa no es la manera correcta de abrirlo.

[carnero]

Iniciado por ValeriaGP

Soy una completa novata en esto, no se que significa ese error. Me sale cuando intento guardar los datos de dos txt en la base de datos de Access, con el siguiente código:

Dim cedtrue As Boolean = False
Dim contrue As Boolean = False
Dim registro As New frmRegistro
Dim ced As String
Dim con As String
ced = txtDI.Text
con = txtContrasena.Text

'Aqui es donde debe ir una consulta

While (Usuario.EOF = False) And (cedtrue = False) And (contrue = False)
If (ced = Usuario.Fields(0).Value) Then
cedtrue = True
If (con = Usuario.Fields(3).Value) Then
contrue = True
Else
MsgBox("Contraseña incorrecta")
End If
Else
Usuario.MoveNext()
End If
End While

If (cedtrue = True) And (contrue = True) Then
frmRegistro.Show()
ElseIf (cedtrue = False) And (contrue = False) Then
MsgBox("Documento incorrecto")
End If


Este error ya lo pudieron resolver en otro foro pero ninguna de las soluciones las pude o supe aplicar a este codigo. Tambien me sale en otros codigos donde intento consultar o guardar datos en la BD.

Muchas gracias, de antemano, por la atencion prestada.

y como se si la consulta llego v al final si no la has hecho?

[moniqa25]

Hola, V.

Bueno, si no he comprendido mal lo que quieres hacer, sería más o menos esto. Lo he hecho en ADO por optimizar rendimiento.

Espero que te sirva.

Lo primero que necesitas (y que no veo) es abrir la conexión a la BD:
Public Function ConectarBDAccess_ADO(ByRef ctnConexion As ADODB.Connection, strBaseDatos As String, Optional varPassword As Variant) As Boolean

Dim strBDAccessADO As String

On Error GoTo ControlErrores

ConectarBDAccess_ADO = True

strBDAccessADO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strBaseDatos
If Not IsMissing(varPassword) Then
strBDAccessADO = strBDAccessADO & ";Jet OLEDB:Database Password=" & varPassword
End If
If ctnConexion.State = adStateOpen Then
ctnConexion.Close
End If
ctnConexion.ConnectionTimeout = 60
ctnConexion.Open (strBDAccessADO)

Exit Function

ControlErrores:
ConectarBDAccess_ADO = False
Call MostrarError("ConectarBDAccess_ADO", Err.Number, Err.Description)

End Function






Dim cedtrue As Boolean = False
Dim contrue As Boolean = False
Dim registro As New frmRegistro
Dim ced As String
Dim con As String

' ***** Nuevo *****
Dim strSQL As String
Dim ctnBDEjemplo As New ADODB.Connection
Dim rfoDatos As New ADODB.Recordset



ced = txtDI.Text
con = txtContrasena.Text




'Aqui es donde debe ir una consulta
if not ConectarBDAccess_ADO(ctnBDEjemplo, "Ruta y nombre del fichero Access", "Password (opcional) si la tienes) then
'Error en la conexión a BD
'Tratar error
exit sub
endif

'Ya estamos conectados. Abrimos un recordset (entiendo, por tu código, que sólo te va a devolver un registro)
strSQL = "SELECT NombreTabla1.Campo1, NombreTabla1.Campo2, NombreTabla2.Campo1 " & _
"FROM NombreTabla1 " & _
"INNER JOIN NombreTabla2 ON NombreTabla1.IDClave = NombreTabla2.IDClave
rfoDatos.CursorLocation = adUseClient
rfoDatos.Open strSQL, ctnBDIntercambio, adOpenForwardOnly, adLockOptimistic, adCmdText
If Not rfoDatos.EOF And cedtrue And NOT contrue Then
do while not rfodatos.eof
If (ced = rfodatos("Campo1")) Then
cedtrue = True
If (con = rfodatos("Campo2").Value) Then
contrue = True
Else
MsgBox("Contraseña incorrecta")
End If
End If
rfoDatos.movenext
loop
end if

If cedtrue And contrue Then
frmRegistro.Show()
ElseIf not cedtrue And not contrue Then
MsgBox("Documento incorrecto")
End If