Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/01/2003, 06:52
Avatar de 8461277
8461277
 
Fecha de Ingreso: diciembre-2002
Ubicación: san juan de los morros
Mensajes: 887
Antigüedad: 22 años, 5 meses
Puntos: 1
RESTA desde formulario

Señores del foro, tengo la siguiente progunta como puedo restar un numero que mando por un formulario hacia una bd en donde se encuentra otro numero y el resultado de dicha resta quede grabado en ese mismo campo (cantidad) el codigo que estoy utilizando es este pero no me da, que sucede:

CODIGO:

<html>
<body>
<%
'Declaracion de variables
Dim Obj_Conn
Dim Obj_RS
Dim codigo
Dim cantidad
Dim strSQL

'Fin declaracion de variables

codigo = Request.Form ("codigo")
cantidad = Request.Form ("cantidad")


SET Obj_Conn = Server.CreateObject("ADODB.Connection")

Obj_Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\asp\graciela.mdb;"

'Suponiendo que la Tabla se llamada PRODUCTO y el campo codigo, comprobamos que producto existe.
strSQL = "select codigo from Producto where codigo = "&codigo&" ; "
'strSQL = "select cantidad from Producto where codigo = "&codigo&" ; "
SET Obj_RS = Obj_Conn.Execute(strSQL)

IF NOT Obj_RS.EOF THEN
'resultado = Cint(Obj_Rs("Cantidad"))-Cint(Request.Form ("cantidad"))

SQL = "update Producto set cantidad=Cantidad-Request.Form (cantidad) where codigo = "& Obj_RS("codigo") & " ;"
'SQL = "update Producto set Cantidad="& resultado &" where codigo = "& Obj_RS("codigo")& " ;"
response.write "sql actualiza=" & SQL
Obj_Conn.Execute(SQL)
response.write "Los datos del PRODUCTO se han actualizado correctamente"
ELSE
response.write "El usuario EL PRODUCTO en la base de datos"
END IF
Obj_RS.Close
Obj_Conn.Close
SET Obj_RS = Nothing
SET Obj_Conn = Nothing
%>

</body>
</html>
POR FAVOR PUEDEN AYUDARME