Soma de valores ao final de uma consulta....

[Eletrohoo 0]

Amigos estou montando um sistema de consulta no banco de dados mas estou tendo dificuldades em realizar a soma no final do codigo.

 

O que tenho no codigo é:

 

PRODUTO | QUANTIDADE | VALOR

Casa | 1 peça | 1,00

Moto | 2 peças | 5,00

 

Essa disposição acima o meu codigo faz, mas não consigo fazer a soma no final do codigo, que nesse exemplo acima seria 6,00 (1,00+5,00). Podem me ajudar a acrescentar no codigo abaixo?:

 

<%@LANGUAGE="VBSCRIPT"%>

<%
response.buffer = "true"
Set Conexao = Server.CreateObject("ADODB.Connection")
dbPath = "DBQ=" & Server.Mappath("../../../dados/sistema.mdb")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath
Set Recordset1 = Server.CreateObject("ADODB.RecordSet")
Recordset1.Open "SELECT * FROM fluxo_caixa WHERE data_venda LIKE '%"& request.form("date1") &"%' AND loja LIKE '%"& request.form("loja") &"%' order by id_fluxo_caixa" , Conexao, 1, 3
%>

<center>
<font size=3 face=verdana color=000000><b>Movimentação Caixa</b></font><br><br>
<button type="button" value="imprimir" onclick="window.print();" >Imprimir</button><hr>
</center>

<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
if Recordset1.eof then
response.write "<p> <p><center><font face='Verdana, Arial, Helvetica, sans-serif' size='3'><b>Nenhuma venda nessa data</b></font></center>"
else
%>

<table width="100%" border="0" cellspacing="5" cellpadding="2" align="center">
<tr bgcolor=#404040>
<td align=left><font size=2 color=ffffff face=verdana><b></td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>N. venda</td>
<td align=left><font size=2 color=ffffff face=verdana><b>Cod.:</td>
<td align=left width=50%><font size=2 color=ffffff face=verdana><b>Produto</td>
<td align=left width=5%><font size=2 color=ffffff face=verdana><b>Qtd.</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>R$ Un.</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>R$ Total</td>
<td align=left width=15%><font size=2 color=ffffff face=verdana><b>Vendedor</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>Data</td
</tr>

<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>

<tr>
<td bgcolor=#E1E1E1 align=left><font size=2 color=000000 face=verdana><b><%=Recordset1("id_venda")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("id_produto")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana> <%=Recordset1("produto")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("quantidade")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><b> <%=Recordset1("valor_venda")%> ,00</td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><b>  <%=Recordset1("quantidade")* Recordset1("valor_venda")%> ,00 </td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("funcionario_venda")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("data_venda")%></td>
</tr><TR><TD BGCOLOR=000000 COLSPAN=9></TD></TR>



<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
</table>


<!!!!!!!!!!!!!!!!!!!!!!!!!! SERIA NESSE ESPAÇO QUE EU QUERO POR A QUANTIDADE TOTAL DO VALOR VENDA !!!!!!!!!!!!!!!!!!!!>

<%end if %>

<%
Recordset1.Close()
%>

 

Obs.: Em outro tópico fiz a mesma solicitação e obtive resposta positiva, mas naquele caso o codigo era diferente e usava "request", sendo que esse acima não usa, e como sou iniciante não sei fazer a modificação.

[Rafael Sasso 0]

Coloca uma variável dentro do loop

 

valor_total = (valor_total + Recordset1("valor_venda"))

ai qdo fechar o loop você imprimi essa variável aonde você quer.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Eletrohoo 0]

Coloca uma variável dentro do loop

 

valor_total = (valor_total + Recordset1("valor_venda"))

ai qdo fechar o loop você imprimi essa variável aonde você quer.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

Desculpe mas nao sei fazer isso...

[xanburzum 169]

você pode usar o SQL SUM

 

Calcula o total de todos os valores de uma dada coluna.

A função SUM () retorna a soma total de uma coluna numérica

 

Sintaxe:

 

SELECT SUM(column_name) FROM table_name

 

 

SUM ( [ALL] | Distinct )

 

Argumentos:

 

. ALL - Retorna o menor valor entre todos os valores de uma coluna;

. Distinct - Retorna o menor valor entre todos os valores únicos de uma coluna;

. nValor - Coluna numérica ou expressão.

 

Exemplo:

 

Select SUM(codigo) from clientes

 

O exemplo acima retorna-rá o total de todos os valores do campo codigo da tabela de clientes