sumar despues de listado

[cristianf]

Estimados, una nueva consulta estoy tratando de sumar valores obtenidos a traves de un formulario de busqueda.
El tema es asi: a traves del formulario obtengo informacion vendedores, cantidad de ventas, productos, etc todos en un rango de fecha. estos datos los muestro en una tabla, que estan en dos tablas relacionadas
ahora bien, lo que necesito es que me sume los valores obtenidos de acuerdo a la peticion por ejemplo:
si se buscan las ventas de "pedro" en un rango de fechas seleccionado necesito que muestre todo lo anteriomente mencionado y me de el total segun sea el caso del resultado.
muestro mas o menos el codigo que tengo:

...hago la conexion etc etc ...

Temp="SELECT * FROM mibd INNER JOIN base2 ON mibd2.IDventa = mibd.ID Where fecha >= format('" & UCase(Request("fecha")) & "','dd/mm/yyyy')AND fecha <=format('" & UCase(Request("fech")) & "','dd/mm/yyyy') AND UCase(vendedor) like '%" & UCase(Request("vendedor")) & "%' order by "& UCase(Request("orden")) & ""
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<% Else %>
<% While Not Tabla.EOF%>

y aca los listados
<%=Tabla.Fields("vendedor")%>
<%=Tabla.Fields("precio")%>
........



lo que queiro suamr es todos los resultados de ("precio") y que los muestre como total al final del listado, Total= sum("precio")

[daniel00]

Que tal Cristian.

Declaras una variable, y ahí vas acumulando por cada iteración, por ejemplo:

Código:

...

Dim Total = 0 'Dentro de alguna sección de código .. antes del while

...

'y dentro del while
<%


Total = Total + ( Tabla.Fields("precio") *Tabla.Fields("cantidad")  )

%>

'Ya después de while 
Y el total es ...<%=Total %>

Así con cada variable que quieras sumar.


Saludos!

[cristianf]

bien, lo toma pero solo suma el primer obtenido yo necesito una manera de que sume todos los que apraezcan en el resutaldo de la busqueda, sean 1 10 o 20. se entiende?

[Shiryu_Libra]

Daniel00, se referia a que hicieras un procedimiento similar a este, independientemente que fuesen 200,000

Código PHP:

  <%Temp="SELECT * FROM mibd INNER JOIN base2 ON mibd2.IDventa = mibd.ID"&_
    "Where fecha >= format('" & UCase(Request("fecha")) & "','dd/mm/yyyy')"&_
    "AND fecha <=format('" & UCase(Request("fech")) & "','dd/mm/yyyy')"&_
    "AND UCase(vendedor) like '%" & UCase(Request("vendedor")) & "%'"&_
    " order by "& UCase(Request("orden")) & ";"
Tabla.Open Temp, Conexion

'Evaluamos que no se encontrara ningun error
If Err=0 then
    'Encabezados
    %><table><tr><th>Vendedor</th><th>Precio</th></tr><%
    'Inicializamos el totalizador, para evitar conflictos con basura
    Totales=0
    while Tabla.EOF=False
        'Rellenamos los datos
        %><tr><th><%=Tabla.Fields("vendedor")%></th><td><%=Tabla.Fields("precio")%></td></tr><%
    wend
    'Mostramos el totalizador de los precios
    %><tr><th>Totales</th><th><%=Totales%></th></tr></table><%
else
    'Mostramos el error y la consulta para diagnostico
    Response.Write "Pequeño Error: SQL="& Temp & "<br/>Error: <br/>" & Err
end if%> 
   

[Shiryu_Libra]

aunque bueno, tambien considerando, puedes agregarle un alias a la suma dentro de la sentencia TEMP, y la despliegas al final

Código PHP:

  <%Temp="SELECT * FROM mibd INNER JOIN base2 ON mibd2.IDventa = mibd.ID"&_
    " Where fecha >= format('" & UCase(Request("fecha")) & "','dd/mm/yyyy')"&_
    " AND fecha <=format('" & UCase(Request("fech")) & "','dd/mm/yyyy')"&_
    " AND UCase(vendedor) like '%" & UCase(Request("vendedor")) & "%'"&_
    " AND sum(precio) as TotalesPrecio"&_
    " order by "& UCase(Request("orden")) & ";" 
   

y reportarias

<%=TotalesPecio%>

[cristianf]

NO ME SALE: ESTOY CON EL CODIGO ASI PERO SIGUE SIN SUMAR SDOLO TOMAR EL LOGICO VALOR TOTALES=0 SI LE AGREGO TOTALES = 0 + RESULT.FIELDS (PRECIO) SOLO ME MUESTRA EL RESULTADO DE UNA SOLA, NO DEL TOTAL COMO LO NECESITO.

... CONEXION ETC ETC
Tabla.Open Temp, Conexion
If Err=0 then%>
<table><tr><th>Vendedor</th><th>Precio</th></tr>
<% 'Inicializamos el totalizador, para evitar conflictos con basura
Totales= 0
while Tabla.EOF=False
%>
<%=Tabla.Fields("vendedor")%> <%=Tabla.Fields("precio")%>
<% Tabla.MoveNext
wend
%>
Totales<th><%=Totales%></th>
<% else
'Mostramos el error y la consulta para diagnostico
Response.Write "Pequeño Error: SQL="& Temp & "<br/>Error: <br/>" & Err
end if%>
EN ESTE CASO ME MUESTRA EL LISTADO REQUERIDO PERO EL TOTAL ES = 0

[tammander]

Tanto el método de Shiryu () como el de daniel00 son válidos:

Código:

 Tabla.Open Temp, Conexion
If Err=0 then%>
<table><tr><th>Vendedor</th><th>Precio</th></tr>
<%    'Inicializamos el totalizador, para evitar conflictos con basura
    Totales= 0
    while Tabla.EOF=False
       %>
<%=Tabla.Fields("vendedor")%> <%=Tabla.Fields("precio")%>
<%   
       ' Evitamos valores nulos
       if isNumeric(Tabla.Fields("precio"))  then Totales = Totales + Tabla.Fields("precio")
       Tabla.MoveNext
 		wend 
 		%>
Totales<th><%=Totales%></th>
<% else
    'Mostramos el error y la consulta para diagnostico
    Response.Write "Pequeño Error: SQL="& Temp & "<br/>Error: <br/>" & Err
end if%>  

 

Un saludo

[cristianf]

Si si resulto!!! muchas gracias esta parte que me pasate era la que soluciono le tema: if isNumeric(Tabla.Fields("precio")) then Totales = Totales + Tabla.Fields("precio")

[tammander]

Pues eso es que hay algún registro cuyo campo "precio" esta vacío o nulo o contiene valores no numéricos. Chequea ese campo en todos los registros y que la cantidad de Total sea realmente el total esperado.



Un saludo