Buenos días! Estoy haciendo una aplicación en Visual Basic 6.0, conectada a una BD de Access, en la que hasta hace unos días no me tiraba un error bastante raro y que no describe nada (lo que me dificulta darme cuenta qué es lo que hice mal).
El tema es así... cuando abro por primera vez el recordset para cargar los datos en un datagrid, lo hace normalmente. Luego lo cierro y cuando quiero agregar un nuevo paciente o médico, me aparece este error:
Error '-2147217915 (80040e05)' en tiempo de ejecución:
Se abrió un objeto.
Sinceramente ya no sé qué más hacer para que no lo tire... uso un DataEnviroment y así es como lo cierro (este código está en un módulo):
Public Sub CerrarRS(RS As Recordset)
If RS.State = adStateOpen Then
RS.Close
Set RS = Nothing
End If
End Sub
Y este código está en el form, para agregar un paciente (en los médicos me hace lo mismo):
Call CerrarRS(DE.rsPacientes)
With DE.rsPacientes
.Open "Select * from Pacientes"
...
El error me lo tira cuando hago click en el botón para guardar el paciente, en la línea del .Open
Espero que alguien pueda ayudarme porque en internet no encontré nada al respecto, y la verdad que ya me tiene mal no poder solucionarlo. Desde ya muchas gracias por su tiempo!
Mostrar Mensajes
