ayuda!

[luc786]

Estoy actualizando una base de datos en access, pero hay un campo que no me lo actualiza. El campo que no me actualiza es es "codigo"

les muestro el codigo:


<%
'Recogemos los valores del formulario

Nombre=Request.Form("Nombre")
Descripcion= Request.Form("Descripcion")
Medidas=Request.Form("Medidas")
Precio=Request.Form("Precio")
Categoria=Request.Form("Categoria")
Codigo=Request.Form("Codigo")
Observaciones=Request.Form("Observaciones")


Dim con,rs,sql,datos

datos= Server.MapPath ( "../../../db/datos.mdb " )

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"


'Sentencia SQL
sql="update Tabla1 set nombre='" & nombre & "', descripcion='" & descripcion & "', medidas='" & medidas & "', precio='" & precio & "', categoria='" & categoria & "', codigo='" & codigo & "', observaciones='" & observaciones & "' Where codigo='" & codigo & "'"



'Ejecutamos la orden
set RS = Con.Execute(sql)
%>

<%
'Cerramos el sistema de conexion
Con.Close
%>

el codigo funciona pero no me actualiza el campo "codigo"

muchas gracias

[maestro]

¿A que has definido el campo codigo como AUTONUMERICO en la base de datos de ACCESS?
Ponlo como numerico y veras como funciona.

[luc786]

No, el campo "codigo" es de Texto, pero igualmente sigo teniendo el ID como autonumerico aunque no lo uso, esta ahi el problema, como hago?

[maestro]

Pero, ¿te da error y se para, o no te escribe ese dato en el campo codigo, o no te escribe ningun dato en el registro?, dime

[luc786]

Claro, yo estoy actualizando los datos, me actualiza todos los campos menos ese, la aplicacion no da ningun error pero el campo "codigo" no se actualiza. El campo queda con el registro que quiero actualizar

Muchas Gracias!

[maestro]

Pues entonces el problema es que el campo codigo no esta trayendo la informacion de formulario, viene vacio.

Has comprobado que el campo del formulario se llama codigo, no se te habra escapado alguna letra de mas o de menos.
Pon un response.write(codigo) antes de la actualizacion a ver si la variable viene vacia.

<%
Nombre=Request.Form("Nombre")
Descripcion= Request.Form("Descripcion")
Medidas=Request.Form("Medidas")
Precio=Request.Form("Precio")
Categoria=Request.Form("Categoria")
Codigo=Request.Form("Codigo")
response.write("El codigo es: " & codigo)
Observaciones=Request.Form("Observaciones")
%>

[luc786]

Nop, sigue pasando lo mismo, no lo actualiza.

bueno master si se te ocurre algo mas, bienvenido seas

voy a resisar todo bien, cualquier cosa te aviso si lo resuelvo, es extraño esto.

Saludos

[maestro]

Pero, ¿te pasa el valor CODIGO del formulario de una pagina a otra?

[luc786]

Sip, me pasa el campo "codigo" pero no lo actualiza

gracias!! :)

[luc786]

Voy a explicar mejor este mensaje que ya he publicado:

Estoy haciendo una aplicacion para actualizar una BD pero no me actualiza el campo "codigo". Me actualiza todos los demas campos pero el campo "codigo" no. El campo "codigo" es de texto. Tengo el campo "ID" pero no lo uso para identificar los campos. Al principio usaba el ID y me actualizaba todos los campos. Pero tengo que usar el campo "codigo" para identificar los productos el ID no me sirve porque es autonumerico. La aplicacion no tira ningun error, pero no me actualiza el campo "codigo", osea si quiero actualizar el codigo o no lo puse bien no puedo modificarlo. :(

La pagina que efectua la aplicacion, aqui el codigo:


<%
'Recogemos los valores del formulario

Nombre=Request.Form("Nombre")
Descripcion= Request.Form("Descripcion")
Medidas=Request.Form("Medidas")
Precio=Request.Form("Precio")
Categoria=Request.Form("Categoria")
Codigo=Request.Form("Codigo")
Observaciones=Request.Form("Observaciones")


Dim con,rs,sql,datos

datos= Server.MapPath ( "../../../db/datos.mdb " )

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"


'Sentencia SQL
strsql="update Tabla1 set nombre='" & nombre & "', descripcion='" & descripcion & "', medidas='" & medidas & "', precio='" & precio & "', categoria='" & categoria & "', codigo='" & codigo & "', observaciones='" & observaciones & "' Where codigo='" & codigo & "'"


'Ejecutamos la orden
set RS = Con.Execute(strsql)

%>

<%
'Cerramos el sistema de conexion
Con.Close
%>


muchas gracias