como cierro un objeto o una aplicaci贸n?
Tengo una problema... espero y me puedan ayudar.
En el momento de querer guardar un registro en mi base de datos me aparece el siguiente error... La operaci贸n solicitada por la aplicaci贸n no esta permitida si el objeto esta abierto.
De que forma puedo yo cerrar este objeto.
Private Sub Form_Load()
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "monitor2.mdb"
cn.Open
Debug.Print rs.Source
rs.Open "select * from monitor", cn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
refrescar
desabilitar
End If
End Sub
Ojala y me puedan ayudar... Grs.
En el momento de querer guardar un registro en mi base de datos me aparece el siguiente error... La operaci贸n solicitada por la aplicaci贸n no esta permitida si el objeto esta abierto.
De que forma puedo yo cerrar este objeto.
Private Sub Form_Load()
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "monitor2.mdb"
cn.Open
Debug.Print rs.Source
rs.Open "select * from monitor", cn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
refrescar
desabilitar
End If
End Sub
Ojala y me puedan ayudar... Grs.
la forma de cerrar los objetos ado recorset y ado conection es muy simple
Objeto.close
los cuales deben ser cerrados siempre que termines de usarlos.
rs.Open "select * from monitor", cn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
refrescar
desabilitar
rs.close ' se termina de usar se cierra
else
rs.close ' si no encontro registros se cierra
End If
espero que te sirva de algo
Objeto.close
los cuales deben ser cerrados siempre que termines de usarlos.
rs.Open "select * from monitor", cn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
refrescar
desabilitar
rs.close ' se termina de usar se cierra
else
rs.close ' si no encontro registros se cierra
End If
espero que te sirva de algo
