Somar valores de um RS

[Carlos Moreira 0]

Olá pessoal td bem?Minha duvida é, estou dando um select no banco, certo! e resgatando os resultados da coluna "valor", eu gostaria de somar esses resultado:Exemplo: estou fazendo assim:<%SelectRS=("valor")FIM%>Ele lista vários valores gostaria de somalosComo faço?

[Ted k' 126]

faça um loop para somar os valores!

[Carlos Moreira 0]

ja fiz o código é este!<%Call abre_conexao(ConnString,Conn)pag = Request.QueryString("pag") 'página atualSet RS = Server.CreateObject("ADODB.Recordset") msql = "SELECT * FROM clientes"RS.Open msql, Conn,3,3DO WHILE NOT RS.EOFRS("valor")i = i+1Count = Count + 1 RS.MoveNextLOOP%>

[Carlos Moreira 0]

mas como eu poderia somar?

[jrcardozo 4]

é só ir concatenando em uma variavel dentro do loop

DO WHILE NOT RS.EOFvalor = valor + RS("valor")i = i+1Count = Count + 1 RS.MoveNextLOOPresponse.write valor

[Carlos Moreira 0]

ele até pegou os resultados mas esta aparecendo assim29,900,000,0029,9029,900,0029,900,0015,0029,900,000,0050,00EX: 950,00era somente para somar

[Elbrinner 0]

Como você fez?

[Carlos Moreira 0]

Desta formaDO WHILE NOT RS.EOFvalor = valor + RS("valor")i = i+1Count = Count + 1 RS.MoveNextLOOPresponse.write valor

[jrcardozo 4]

precisa converter os dados

DO WHILE NOT RS.EOFvalor = valor + clng(replace(RS("valor"),",","."))i = i+1Count = Count + 1 RS.MoveNextLOOPresponse.write valor

tente assim, se não funcionar retire o clng pra ver se vai

[Carlos Moreira 0]

Valeu jonathandj só faltou uma coisaEle esta aparecendo assim: 80520 e o certo sera assim 805,20

[Ted k' 126]

FormatCurrency

[jrcardozo 4]

quando acontece isso eu costumo usar uma função que peguei aqui no forum(acho que de autoria do salgado)

function formatarMoeda(byVal inteiro)	dim valor	dim valor1	dim valor3	valor=inteiro	if valor = "" then 		valor=0	end if		IF Len(Valor) = 1 THEN	  Valor1 = 0 & ",0" & Valor	ELSEIF Len(Valor) = 2 THEN		Valor1 = 0 & "," & Valor	ELSE		Valor1 = Left(Valor,Len(Valor)-2) & "," & Right(Valor, 2)	END IF	Valor3 = (Valor1)	formatarMoeda=(formatcurrency(Valor3))end functionResponse.Write(formatarMoeda(valor))

[raphanasc 0]

Ola, tem uma opção pra retornar o valor total, seria o

select sum(campo) from tabela

[jrcardozo 4]

bem lembrado raphanasc, só complementando, dê um alias ao campo

select sum(campo) as somar from tabelaresponse.write(rs("somar"))

[Ted k' 126]

Isso mesmo jonathandj e raphanasc mais ñ esquecendo do FormatCurrency

 

Response.Write(FormatCurrency(rs("somar")))

[Carlos Moreira 0]

Valeu galera consegui com o do "jonathandj" valeu ja esse SUM (valor) achei complicado pq por exemplo tenho mais colunas a serem lista não somente o valor ai nao da certo

[Anderson Roberto 0]

Você pode fazer assim:

Set oRs = oCnn.Execute( "Select cod_pedido, sum(vlr_pedido) as tot_pedido From Pedidos Group By cod_pedido" )If Not oRs.EOF Then   oRs.MoveFirst   Do While Not oRs.EOF	  Response.Write "Pedido Nº: " & oRs("cod_pedido") & "<br />" & vbCrLf & _					 "Valor: " & oRs("tot_pedido") & "<br /><br />" & vbCrLf	  oRs.MoveNext   LoopEnd If