Problema Actualizacion ADO ORACLE
Publicado por Ivan (2 intervenciones) el 14/08/2005 18:03:09
Hola estoy haciendo una aplicacion con visual basic utilizando ADO, conectandome a una base de datos oracle.
cn.Provider = "MSDAORA"
cn.Open "DBQ=TURISMO", "LOGIN", "PASSWD"
Esta es la conexion a oracle, funciona perfectamente, y he lanzado varios execute sin problemas.
Utilizo recordsets de bloqueo de solo lectura que funcionan perfectamente.
Pero a la hora de utilizar recordsets para actualizar la base de datos me da el siguiente error.
"Error '3251' , El recordset actual no admite actualizaciones. Puede ser una limitacion del proveedor o del tipo de bloqueo seleccionado."
El usuario que utilizo para la conexion tiene permisos de actualizacion asi que no se trata del usuario(lo he probado con el sql worksheet).
Este es el recordset y creo que deberia funcionar bien.
Dim rs As New ADODB.Recordset
rs.Open "select * from permisos where cod_tipousu = " & perfvector(cmbperfil.ListIndex + 1) & " and cod_pantalla = " & pantvector(cmbpant.ListIndex + 1), cn, adOpenDynamic, adLockOptimistic
Pero en la siguiente linea que es esta es cuando se produce el error.
rs.Fields(3) = txtcad.Text
Espero que alguien pueda ayudarme porque no tengo ni idea porque esta fallando.
Un saludo y os agradezco vuestras respuestas por adelantado.
cn.Provider = "MSDAORA"
cn.Open "DBQ=TURISMO", "LOGIN", "PASSWD"
Esta es la conexion a oracle, funciona perfectamente, y he lanzado varios execute sin problemas.
Utilizo recordsets de bloqueo de solo lectura que funcionan perfectamente.
Pero a la hora de utilizar recordsets para actualizar la base de datos me da el siguiente error.
"Error '3251' , El recordset actual no admite actualizaciones. Puede ser una limitacion del proveedor o del tipo de bloqueo seleccionado."
El usuario que utilizo para la conexion tiene permisos de actualizacion asi que no se trata del usuario(lo he probado con el sql worksheet).
Este es el recordset y creo que deberia funcionar bien.
Dim rs As New ADODB.Recordset
rs.Open "select * from permisos where cod_tipousu = " & perfvector(cmbperfil.ListIndex + 1) & " and cod_pantalla = " & pantvector(cmbpant.ListIndex + 1), cn, adOpenDynamic, adLockOptimistic
Pero en la siguiente linea que es esta es cuando se produce el error.
rs.Fields(3) = txtcad.Text
Espero que alguien pueda ayudarme porque no tengo ni idea porque esta fallando.
Un saludo y os agradezco vuestras respuestas por adelantado.
Valora esta pregunta
0