Como Somar Vários Campos

Marcelo Guedes · Abril 9, 2005

E aí galera como vão, demorei mas estou de volta.

A minha dúvida é a seguinte em meu banco de dados "access" tem a tabela:

usuarios com os campos:

usuario | jan | fev | mar | abr | mai | jun | jul | ago | set | out | nov | dez | total

gostaria de mostrar na tela o nome do usuario e em cada mês terá um valor definido por mim que ficaria assim:

fulano | 3,00 | 9,90 | 6,00 e assim em todos os meses até ai eu consigo mas como faço para contar o valor de todos os meses e dar um total de cada usuário. Já procurei em tudo que possam imaginar e não achei o que eu quero já tentei usar "SUM" mas não consegui em mais de um campo.

Se alguém puder me ajudar agradeceria muito.

Valeu MARCELO GUEDES........................

DELPHI-Man32 · Abril 9, 2005

cara infelizmente não posso te ajudar.... também queria saber como faz isso qual função usar para somar estes valores, já dei uma olhada nuns artigos que falava como somar valores~, mas nunca testei!!!!

vou dar uma olhada numa apostila que tenho aqui para ver o que dá!!!

por enquanto vamos esperar que nossos amigos postem suas resposta!!

Principe · Abril 10, 2005

dim total, conexao, sql, rs
total = 0
conexao = "Provider=Micros..."
set rs = server.crea....
rs.cursor...
...
sql = "select * from usuarios where usuario = "&var_usuario
rs.open sql, conexao
total = rs("jan") + rs("fev") + rs("mar") + ...

DELPHI-Man32 · Abril 10, 2005

parece que é isso mesmo que nosso amigo quer!!!

Marcelo Guedes · Abril 11, 2005

Fala aí galera testei o código do "PRINCIPE" mas num funcionou postei aqui o código da página que estou tentando fazer a soma se alguém ou o próprio "PRINCIPE" puder me ajudar agradeço bastante, desculpem a minha burrice mas é errando que se aprende e uma ajudinha ajuda muito também valeu

<html>
<head>
<title>Pagamentos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center"><font color="#006699" size="4" face="Verdana, Arial, Helvetica, sans-serif"><strong>Pagamentos</strong></font><br>
<%Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("dados/dados.mdb")
objConn.Open
Dim RS,total
total = 0
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM pagamentos "
RS.Open sql, objConn
%>
<br>
</div>
<form name="form1" method="post" action="validar_cadastro.asp">
<table width="99%" border="0">
<tr>
<td width="273" bgcolor="#FF9933"><div align="center"><strong><font color="#FFFFFF">NOME</font></strong></div></td>
<td width="56" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>JAN</strong></font></div></td>
<td width="32" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>FEV</strong></font></div></td>
<td width="40" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>MAR</strong></font></div></td>
<td width="38" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>ABR</strong></font></div></td>
<td width="33" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>MAI</strong></font></div></td>
<td width="33" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>JUN</strong></font></div></td>
<td width="32" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>JUL</strong></font></div></td>
<td width="39" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>AGO</strong></font></div></td>
<td width="32" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>SET</strong></font></div></td>
<td width="36" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>OUT</strong></font></div></td>
<td width="39" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>NOV</strong></font></div></td>
<td width="50" height="5" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>DEZ</strong></font></div></td>
<td width="50" bgcolor="#006699"><div align="center"><font color="#FFFFFF" size="2"><strong>TOTAL</strong></font></div></td>
</tr>
<%
If not RS.EOF then RS.MoveFirst
While Not RS.EOF%>
<tr>
<td height="21"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="editar_pagamentos.asp?nome=<%=RS("nome")%>"><%=RS("nome")%></a></div></td>
<td> <div align="center"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("jan")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("fev")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("mar")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("abr")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("mai")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("jun")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("jul")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("ago")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("sete")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("out")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("nov")%></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("dez")%></font></div></td>
<td><%total = rs("jan") + rs("fev")%>  </td>
</tr>
<%
RS.MoveNext
Wend
%>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<div align="center"><strong><font color="#006699" size="5" face="Arial, Helvetica, sans-serif">
<input name="image" type="image" src="../msg/imagens/botao_enviar.gif" align="middle" width="100" height="20" border="0">
</font></strong> </div>
</form><br>
</body>
</html>
<%
RS.Close
Set RS = Nothing
%>

DackAle · Abril 11, 2005

DELPHI-Man32 · Abril 11, 2005

querido amigo, fiz algumas coisinhas aqui com os dados que você colocou e deram certo!!

arquivo "default.asp" com os nome dos usuarios:

<%
'Cria a conecxao com o banco de dados	
	Set Conectar = Server.CreateObject("ADODB.Connection")
	Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("banco.mdb")


	Set RS = Server.CreateObject("ADODB.Recordset")
	sql= "select * from pagamentos" 
	RS.open sql, Conectar, 3,3

%>

<html>

<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Informações sobre pagamentos</title>
</head>

<body>

<p><b><font face="Verdana" size="2">Informações sobre pagamentos</font></b></p>
<p><b><font face="Verdana" size="2" color="#008000">Usuários:</font></b></p>
<table border="0" width="100%" id="table1">
	<tr>
	<% while not RS.eof %>
  <td height="20"><b><font face="Verdana" size="1"><a href="detalhe.asp?nome=<%=RS("nome")%>"><%=RS("nome")%></a></font></b></td>
	</tr>
	<% RS.movenext
	wend
	%>
</table>

</body>
</html>
<% Conectar.close
set Conectar = Nothing
%>

Arquivo com os detalhes de cadas usuario e total dos pagamentos "detalhe.asp"

<%
'Cria a conecxao com o banco de dados	
	Set Conectar = Server.CreateObject("ADODB.Connection")
	Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("banco.mdb")

	Dim Total, nome

    nome = request("nome")

	Set RS = Server.CreateObject("ADODB.Recordset")
	sql= "select * from pagamentos where nome='"&nome&"'" 
	RS.open sql, Conectar, 3,3

    Total = RS("jan") + RS("fev") + RS("mar") + RS("abr") + RS("mai") + RS("jun") + RS("jul") + RS("ago") + RS("set") + RS("out") + RS("nov") + RS("dez")

	Set RSTOTAL = Server.CreateObject("ADODB.Recordset")
	sql= "select Total from pagamentos where nome='"&nome&"'" 
	RSTOTAL.open sql, Conectar, 3,3
	RSTotal("Total") = Total
	RSTotal.update

%>

<html>

<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Resultado</title>
</head>

<body>
<table border="1" width="98%" id="table1">
	<tr>
  <td bgcolor="#008000"><b><font face="Verdana" size="1" color="#FFFFFF">
  Nome:</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">JAN</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">FEV</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">MAR</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">ABR</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">MAI</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">JUN</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">JUL</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">AGO</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">SET</font></b></td>
  <td width="40" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">OUT</font></b></td>
  <td width="39" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">NOV</font></b></td>
  <td width="41" bgcolor="#008000" align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">DEZ</font></b></td>
  <td width="40" bgcolor="#008000">
  <p align="center"><b>
  <font face="Verdana" size="1" color="#FFFFFF">Total:</font></b></td>
	</tr>
	<tr>
  <td height="20"><b><font face="Verdana" size="1"><%=RS("nome")%></font></b></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("jan")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("fev")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("mar")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("abr")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("mai")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("jun")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("jul")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("ago")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("set")%>,00</font></td>
  <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("out")%>,00</font></td>
  <td width="39" height="20" align="center"><font face="Verdana" size="1"><%=RS("nov")%>,00</font></td>
  <td width="41" height="20" align="center"><font face="Verdana" size="1"><%=RS("dez")%>,00</font></td>
  <td width="40" height="20"><b><font face="Verdana" size="1">
  <p align="center"><%=(total)%>,00</font></b></td>
	</tr>
</table>

<p align="left"><b><font face="Verdana" size="1"><a href="default.asp">Voltar</a></font></b></p>

</body>
</html>
<% Conectar.close
set Conectar = Nothing
%>

vou mandar os arquivos para seu email, ok!!!

abraços, VAGNER

Marcelo Guedes · Abril 12, 2005

Caros amigos usei este código:

<%total= cint( rs("jan"))+ cint(rs("fev")) +cint( rs("mar"))+ cint(rs("abr")) + cint( rs("mai"))+ cint(rs("jun")) + cint( rs("jul"))+ cint(rs("ago")) + cint( rs("sete"))+ cint(rs("out")) + cint( rs("nov"))+ cint(rs("dez"))
response.Write cint(total)%>

funcionou só que se o mês estiver vazio dá erro e agora o que eu faço

MARCELO GUEDES

DELPHI-Man32 · Abril 12, 2005

bom pessoal passei os codigos que postei ai em cima pro nosso amigo MARCELO e deu certo quem quiser posso mandar via emai!! COISA SIMPLES MESMO!!

15 KB, soma.zip

design-vagner@bol.com.br

design_vagner@hotmail.com

VAGNER FRANCO

PODEM FECHAR O tópico

Entrar

Como Somar Vários Campos

Pergunta

Marcelo Guedes

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

Principe

Link para o comentário

Compartilhar em outros sites

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

Marcelo Guedes

Link para o comentário

Compartilhar em outros sites

DackAle

Link para o comentário

Compartilhar em outros sites

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

Marcelo Guedes

Link para o comentário

Compartilhar em outros sites

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades