Cita:
Iniciado por txuspinita 
Hola a todos:
Me gustaria que me ayudaseis con mi problema. He estado mirando y no he encontrado nada que de solución a mis problemas. Si me ayudaseis quedaria muy agradecida.
El problema es que cuando intento actualizar un registro en la BBDD me da el siguiente error:
ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/SPIO/configurar.asp, line 90
Os pongo parte del codigo haber si me podeís hechar un cable.
<%
dim ObRS, sql
set Oconn = server.createobject("ADODB.connection")
Oconn.open "BD_SPIO"
set obrs=Server.CreateObject("ADODB.RecordSet")
sql="select * from celula"
set ObRS= oconn.Execute(SQL)
if td_celula=obrs("C_celula") & td_equipo=obrs("c_equipo") & td_descripcion=("descripcion") then
obrs.movenext
else
obrs("c_celula") = Request.form("td_celula")
obrs("c_equipo") = Request.form("td_equipo")
obRS("descripcion") = Request.form("td_descripcion")
obrs.update
obrs.movenext
obrs.Close()
end if
Set obrs = nothing
%>
Gracias de antemano
hola de nuevo:
Ahora he cambiado el codigo y me a parecido mejor hacer un insert.
El problema ahora es que no me sale ningun error pero no me actualiza los datos en la BBDD.
¿Podríais ayudarme? Os dejo el codigo aqui abajo. Si quereis que de mas detalles decirme y lo hare enseguida
<%
dim ObRS, sql
set Oconn = server.createobject("ADODB.connection")
Oconn.open "BD_SPIO"
set obrs=Server.CreateObject("ADODB.RecordSet")
sql="select * from celula"
set ObRS= oconn.Execute(SQL)
if td_celula="" or td_equipo="" or td_descripcion= "" then
obrs.movenext
else
sql2="insert into celula (c_celula, c_equipo, descripcion) values (td_celula, td_equipo, td_descripcion)"
end if
Set obrs = nothing
%>
Gracias de antemano