Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lord_damonie

Calcular valores de uma tabela

Por , em ASP Clássico

Recommended Posts

lord_damonie    0

lord_damonie
Postado

Boa tardeestou com um sistema de contas on-line, mais não consigo somar os valores que vem do banco de dados.O banco de dados tem uma tabela chamada "contas", dentro dessa tabela tem uma coluna chamada "valor",dentro dessa coluna "valor" tem vários valores.O problema ocorre quando envio esses dados para a internet e quero somar esses vaolres para obter um total. Mas não sei como fazer isso!!! Acho que pode ser feito soma das tabelas ou por SQL.Tem alguma forma de fazer essa operação via código, ou tenho que fazer essa operação diretamente no bd access?está sendo desenvolvido em "ASP"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

para fazer isso o campo VALOR do BD tem que ser do tipo numerico.. esse eh o primeiro passo...como o valor provavelmente é de dinheiro e precisa ter uma virgula antes dos dos ultimos numeros faça a soma assim...total = formatnumber(formatnumber(valor1 + valor2),2)sendo que total eh a variavel que você vai mostrar depois de somar essas 2 variaveis (valor1 e valor2).quando for multiplicar use *quando for dividir use /quando for subtrair use -

Compartilhar este post

Link para o post
Compartilhar em outros sites

Leloo    0

Leloo
Postado

Bom... pelo SQL ... eu sugiro o uso do SUM,

 

Select SUM(valor) from contas

 

Pelo asp, o que você pode fazer é um loop meio que assim

 

Do while not rs.eofVALOR = rs("valor") + VALORrs.movenextloop

espero ter ajudado!! abraço!

Compartilhar este post

Link para o post
Compartilhar em outros sites

lord_damonie    0

lord_damonie
Postado

Como faço pra inserir esse comando em meu codigo

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/prottege.asp" --><%' *** Restrict Access To Page: Grant or deny access to this pageMM_authorizedUsers="hugo,master"MM_authFailedURL="login_fail.asp"MM_grantAccess=falseIf Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End IfEnd IfIf Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL)End If%><%Session.LCID = 1046%><%Dim contas_dDim contas_d_numRowsSet contas_d = Server.CreateObject("ADODB.Recordset")contas_d.ActiveConnection = MM_prottege_STRINGcontas_d.Source = "SELECT * FROM caixa_credito"contas_d.CursorType = 0contas_d.CursorLocation = 2contas_d.LockType = 1contas_d.Open()contas_d_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0contas_d_numRows = contas_d_numRows + Repeat1__numRows%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title></title><style type="text/css"><!--body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background-color: #F4F4F4;}--></style></head><link rel="stylesheet" type="text/css" href="style.css"><link rel="stylesheet" type="text/css" href="estilos.css"><link rel="stylesheet" type="text/css" href="estiloss.css"><link rel="stylesheet" type="text/css" href="styles.css"><body><table width="364" height="67" border="0"> <tr> <td width="358" height="15" bgcolor="#FFDFDF" class="t11"><div align="center"><strong>CRÉDITO</strong></div></td> </tr> <tr> <td height="46"><table width="100%" border="0"> <tr bgcolor="#E8FDE1" class="t11"> <td width="4%" bgcolor="#FFDFDF"><div align="center"><img src="img/bot_red.gif" width="4" height="4" /> </div> <div align="center"></div></td> <td width="26%" bgcolor="#FFDFDF"><div align="center"><strong>DATA</strong></div></td> <td width="34%" bgcolor="#FFDFDF"><div align="center"><strong>VALOR (R$) </strong></div></td> <td width="36%" bgcolor="#FFDFDF"><div align="center"><strong>MOTIVO</strong></div></td> </tr> </table> <% While ((Repeat1__numRows <> 0) AND (NOT contas_d.EOF)) %> <table width="100%" border="0"> <tr bgcolor="#E8FDE1" class="t11"> <td width="4%" bgcolor="#FFDFDF"><div align="center"><img src="img/bot_red.gif" width="4" height="4" /> </div> <div align="center"></div></td> <td width="26%" bgcolor="#FFDFDF"><div align="center"><%=(contas_d.Fields.Item("data").Value)%></div></td> <td width="34%" bgcolor="#FFDFDF"><div align="center"><%= FormatCurrency((contas_d.Fields.Item("valor").Value), -1, -2, -2, -2) %></div></td> <td width="36%" bgcolor="#FFDFDF"><div align="center"><%=(contas_d.Fields.Item("motivo").Value)%></div></td> </tr> </table> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 contas_d.MoveNext()Wend%></td> </tr></table></body></html><%contas_d.Close()Set contas_d = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

mvz    0

mvz
Postado

Assim:Coloque este código logo abaixo do conjunto de registros substituindo RS_recordset pelo nome do seu conjunto de registro e "campo_da_tabela" pelo nome do campo de sua tabela...<%'soma valores do mesmo campo de tabela do BDDo while not RS_recordset.eofVALOR = RS_recordset("campo_da_tabela") + VALORRS_recordset.movenextloop%>Pronto! Você tem todos os registros que atendem sua pesquisa somados...Se for moeda, você pode imprimir na tela assim: Valor Total: R$ <%= formatnumber(formatnumber(VALOR),2) %>Ou utilizar Formatcurrency..... Isso você vê ai como é melhor... Falow!

alguem pode me ajudar???

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito