Problema al actualizar datos

[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

[txuspinita]

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

[Wasper]

Hola txuspinita,

Algunas cosas que veo son:

- Si lo que quieres es actualizar datos, la SQL debera ir al dato en cuestion y veo que no se lo pasas sql="select * from celula" al menos dale el id del registro que debe actualizar por ejemplo: sql="select * from celula WHERE id = " & request.querystring("nombrecampo") segun le pases la variable por get, ya que por post puedes se pone request.form("nombrecampo")
- Despues de de ejecutar la SQL se comprueba si existe o no en este caso con obrs.EOF con un

if not obrs.EOF then "lo ha encontrado actualizamelo"
else
"no lo ha encontrado por lo tanto no existe y no se puede actualizar, opciones que tienes, nuevo registro o cartelito comentando que no se puede actualizar"
end if

A todo esto en el ejemplo 2º que expones, no ejecutas sql2 y no haces update (esto ultimo no recuerdo si debe hacerse como lo expones)

[Julcar]

hola, luego de revisar el codigo, me doy cuenta de que no has seguido las reglas basicas de la programacion

1. Crear tu algoritmo

Segun tu primer post puedo deducir lo siguiente comentando sobre las lineas involucradas:

Código ASP:

<&#37;
dim ObRS, sql
set Oconn = server.createobject("ADODB.connection")
Oconn.open "BD_SPIO"
set obrs=Server.CreateObject("ADODB.RecordSet")
 
'seleccionamos todos los registros de la tabla celula sin algun tipo de ordenacion
sql="select * from celula"
 
'ejecutamos la sentencia contra la base de datos
set ObRS= oconn.Execute(SQL)
 
'si la variable td_cedula = a orbs.... no hay coleccion field ("C_celula") ademas haces 
'concatenacion, que yo sepa se hace con el operador AND
if td_celula=obrs("C_celula") & td_equipo=obrs("c_equipo") & td_descripcion=("descripcion") then
'las variables(?) coinciden con los campos, procedemos
 
'nos movemos al siguiente registro
obrs.movenext
 
else
'si no coinciden asignamos a los campos los request.form
 
obrs("c_celula") = Request.form("td_celula")
obrs("c_equipo") = Request.form("td_equipo")
obRS("descripcion") = Request.form("td_descripcion")
 
'actualizamos y nos movemos al siguiente
obrs.update
obrs.movenext
obrs.Close()
end if
Set obrs = nothing
%>
 

Como puedes ver, no se entiende lo que quieres hacer, tu codigo es muy confuso, y dado que el que se confunde tambien es el interprete ASP, te salen esos errores raros.

[Julcar]

Ahora, viendo tu segundo codigo, aplicaré lo mismo que al anterior

Código ASP:

<&#37;
dim ObRS, sql
set Oconn = server.createobject("ADODB.connection")
Oconn.open "BD_SPIO"
set obrs=Server.CreateObject("ADODB.RecordSet")
 
'seleccionamos todos los registros de la tabla celula sin algun tipo de ordenacion
sql="select * from celula"
 
'ejecutamos la sentencia contra la base de datos
set ObRS= oconn.Execute(SQL)
 
'si alguna de las variables td_celula..... estan vacias entonces
if td_celula="" or td_equipo="" or td_descripcion= "" then
 
'nos movemos al siguiente registro
obrs.movenext
else
 
'sino, insertamos en celula los valores de las variables
sql2="insert into celula (c_celula, c_equipo, descripcion) values (td_celula, td_equipo, td_descripcion)"
end if
Set obrs = nothing
%>
 

[SUMMITE]

Falta cursor!