recuperar un valor sumarlo y volver a subir

[cristianf]

Hola; nuevamente con dudas tengo una cuestion: deseo recuperar un valor de mi base de datos, (eso todo bien) luego quiero a ese numero sumarle otro, que se ingresara a traves de un formulario, y que el total a traves de un update actualize el valor del dato recuperado anterioremnte, se puede a traves de asp o estoy delirando?

[mc_quake]

si si se puede

primero creas un recordset a la tabla que vas a ocupar y rescatas el dato a sumar
luego creas un formulario co el campo que se ingresara el usuario mas un campo hidden el cual envia una variable. el formulario lo envias en un post a la misma pagina

y en la parte superior arriba del recordset rescatas la variable mandada dede el formulario en el campo oculto (hidden) con un request.form y abajo pones in if comparando la variable rescatada con el request.form y la comparas si es igual a lo que tu kieras haces el update y luego end if a

espeero te sirva la explicacion
si se te complica me avisas y te hago el codigo

[cristianf]

no veo la respuesta puede ser que halla eror?

[cristianf]

ahora si lo vo gracias Mc_Quake si podes orientarme con el codigo buenisimo igual tratare de probar segun lo que me mencionas,asi rapido se me hizo lio jejeje. saludos

[mc_quake]

variable = request.Form("campoculto")

If Variable = "yes" Then

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open MM_conn_STRING
oConn.Execute "UPDATE TABLA SET WHERE ColumnaClave = "& tu valor &" "
oConn.Close
Set oConn = Nothing
%>
End If

aca creas un recorset para rescatarel dato a sumar
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Call_Sql = "SELECT * FROM Tabla "
Rs.Open Call_Sql, MM_conn_STRING,1,2
Rs_total = Rs.RecordCount
%>

luego te creas el formualrio

y antes de boton enviarpones este campode forma ocualta

<input TYPE="hidden" VALUE="yes" NAME="campoculto">

Rs .Close
Set Rs = Nothing

[cristianf]

Mc_Quake sigo intentando lo que pude hacer hasta ahora es que sume y saque un total ( segun el valor del campo de la base de datos y sumado a uno ingresado en el fomulario).
Ahora bien el tema es que lo envio a otra pagina para que haga el update y el problema es que no actuliza porque obviamente se pierde el valor de referencia del campo. Mi ide para resolver esto es que haga la suma y luego recien lñuego de tener el total en el form pero de la misma pagina envie los datos a actualizar . te muestro el codigo haber si me orientas

Esta parte toma el dato a sumar
<%
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("mibase.mdb ")

%>
<%
sSQL="Select cantidad From ingresos Order By id"
set RS = oConn.Execute(sSQL)
%>
<select name="valor1" id="valor1">
<% Do While not RS.eof%>
<%=RS("cantidad")%>
<%RS.movenext
Loop %>

en este se agrega
<input name="valor2" type="text" id="valor2" size="10">

y esta es la suma que la estoy haciendo dentro un campo para luego enviarla a la pagina del update
<input name="cantidad" type="text" id="cantidad"
value="<%dim v1,v2,suma
v1=request.form("valor1")
v2=request.form("valor2")
suma=cint(v1)+cint(v2)
response.write("")
response.write(suma)
%>" size="15">

bueno los datos que se enviarian a la otra pagina para que haga el update es el del campo a cambiar por el resultado de la suma, el tema como dije antes es tratar de que dentro de la misma apgina se haga la suma tome el dato y lo envie dentro del formulario o que el dato del campo se mantenga para el update. estoy mareado pero creo que esta a punto de salir . muchas gracias de antemano

[Myakire]

Que raro, pero bueno

Ok, con el permiso de mc_quake deja hago mi aporte ante esto tan curioso.

Modifiquemos un poco tu código cristianf, supongamos que tu página se llama "pagina.asp":

Código:

 <%
set oConn=Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("adodb.recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("mibase.mdb ")

if Request("valor1)<>"" Then 'Si no es la primera vez que la página se carga, haces la suma y la actualización
	 rs.Open "Select cantidad From ingresos where id=" & Request("valor1")
   Suma = CDbl(rs("Cantidad")) + CDbl(Request("valor2"))
   oConn.Execute "UPDATE Ingresos SET Cantidad = " & Suma & "WHERE id = " & Request("valor1")
	 rs.close
End If 

sSQL="Select cantidad From ingresos Order By id" 'A esto no le encuentro lógica pero en fin (¿poner en un combo todas las cantidades de una tabla ingresos sin importar su origen?)
set RS = oConn.Execute(sSQL)
%>

<form action="pagina.asp">
<select name="valor1" id="valor1">
<% Do While not RS.eof%>
<option value="<%=rs("Id")%>"><%=RS("cantidad")%></option>
<%RS.movenext
Loop %>
</select> 'Supongo te falta esa linea

<input name="valor2" type="text" id="valor2" size="10">

<input name="Suma" type="text" id="Suma" size="15" readOnly value="<%=Suma%>">
<input type="submit" value="Sumar y Actualizar">
</form> 

Por supuesto que eso se puede optimizar, pero por ahora dejemoslo así

Saludos

[cristianf]

bueno cada vez intento mas alternativas y cada vez mas me mareo asi que vuelvo al inicio de este tema, yoi pretendo que la valor del campo "cantidad" de mi base de datos le sume el valor ingresado en un formulario de acuerdo al codigo seleccionado proveniente de la base de datos . lo de Mc_Quake la verdad no lo entendi y lo de myakire no es lo que necesito. nuevamente gracias.

[u_goldman]

Algo asi:

Código:

<form action="archivo.asp" method="post">
   <input type="text" name="suma" value="" />
   <br />
   <input type="submit" value="enviar" />
</form>

<%
'archivo.asp
if isNumeric(Request.Form("suma")) then
   strSQL = "UPDATE tabla SET campo_numerico = campo_numerico + " & Request.Form("suma") & " WHERE alguna condicion "
end if
%>

Saludos

[cristianf]

bueno al final lo resolvi de otra maner, a traves de formularios, sumar restar valores etc etc, me volvi loco pero salio muchisimas gracias por las respuestas.

[Myakire]

Si hubieras probado cualquiera de los códigos propuestos, verías que hubiera sido más fácil