Ir para conteúdo

POWERED BY:

Arquivado

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

timetec

soma de valores.

Por , em ASP Clássico

Recommended Posts

timetec    0

timetec
Postado

Bom dia,

 

Sou novo com ASP e tenho algumas duvidas de como somar valores neste exemplo, preciso que faça a soma da coluna valor.

 

Empresa Valor Data Timetec 10 01/01/2011 Zoni mais 0 01/01/2013

<%
cnpath="DBQ=" & Server.MapPath("db_teste.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
 
Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

'Abre o Recordset e conecta na tabela desejada
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn
RS.open "SELECT * FROM tabelateste WHERE tecnico = '" & tecnico & "' AND valor >= '" & valor & "'"
%>
                                              
<body>


<table width="413" border="1">
  <tr>
    <td width="190" bgcolor="#CCCCCC">Empresa</td>
    <td width="53" bgcolor="#CCCCCC">Valor</td>
    <td width="143" bgcolor="#CCCCCC">Data</td>
  </tr>
</table>
<% 
if not rs.eof then  
while not rs.eof 
%>
<table width="414" border="1">
  <tr>
    <td width="191"><a href="ver.asp?id=<%=rs("id")%>"><%=rs("empresa")%></a></td>
    <td width="54"> <%=rs("valor")%> </td>
    <td width="147"><%=rs("data")%></td>
  </tr>
</table>
<%
rs.Movenext
wend
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

converta antes o valor para CInt ou no caso de expressões do tipo Double, use CDbl. depois é só fazer uma soma simples. Você também pode fazer a soma direto na SQL, usando o operador SUM

Compartilhar este post

Link para o post
Compartilhar em outros sites

timetec    0

timetec
Postado

SELECT SUM (valor) AS Resultado FROM tabelateste

 

Nao retorna nenhum valor
preciso do response.write()? o que falta para ele listar o valor?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado 




<%



cnpath="DBQ=" & Server.MapPath("db_teste.mdb") 



DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 


 



Set Conn = Server.CreateObject("ADODB.Connection") 


 



Conn.Open DataSource


 



'Abre o Recordset e conecta na tabela desejada



Set RS = Server.CreateObject( "ADODB.Recordset" )



RS.ActiveConnection = conn



SQL="SELECT SUM (valor) AS Resultado FROM tabelateste"



RS.open SQL,conn,1,3



%>



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
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