Ir para conteúdo

Arquivado

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

Clauido José

Soma simples

Recommended Posts

Ola bom dia não sei o que está acontecendo com uma pagina que estou fazendo aqui tenho que somar um campo de uma tabela mysql total de valores mas o valor não aprece veja como estou fazendo. Veja o codigo:

		soma = 0
		for j = 0 to objTable.tables.count - 3
			nomeAba1=mid(Ucase(replace(objTable.tables(j).Name,"'","")),1 ,len(nomeaba))
			''response.write(nomeAba1&"<BR>")
			if NomeAba1=nomeAba then
				if objRs.state=1 then objRs.close

				
				set objRs = Server.CreateObject("ADODB.Recordset")
				objRs.CursorLocation = 3
				
				objRs.Open "SELECT * FROM ["&Cstr(Ucase(objTable.tables(j).Name))&"] ",oConn
				intColunas  = objRs.Fields.Count
							
				do while not objRs.eof
					For i = 0 To (intColunas-1)
						'' objRs(0)<>"" then
						Conta = objRs(0)
						CentrodeCusto = objRs(1)
						celular = objRs(2)
						SecaodeChamada = objRs(3)
						TipodaChamada = objRs(8) 
						CidadvedeOrigem = objRs(9)
						UFderigem = objRs(10)
						CidadedeDestino = objRs(11)
						valor = objRs(19)
						soma=soma+objRs(19)
						response.write(soma&"<br>")
						''Busca descricação de seção de chamados com status accenture
						StatusAccenture = BuscaDescricaoVivo(SecaodeChamada, TipodaChamada, UFderigem, CidadedeDestino)
						
						Pacote = "Pacote de Dados"	
						If Trim(Mid(objRs(4), Len(Pacote), 4)) = "3GB" Then
							PacoteDados = "3"
						ElseIf Trim(Mid(objRs(4), Len(Pacote), 4)) = "5GB" Then
							PacoteDados = "5"
						ElseIf Trim(Mid(objRs(4), Len(Pacote), 4)) = "10GB" Then
							PacoteDados = "10"
						ElseIf Trim(Mid(objRs(4), Len(Pacote), 4)) = "20GB" Then
							PacoteDados = "20"
						End If
						if entra=>2 then
							if valor>0 then valor=Replace(valor,"," ,".")
							SQL = "INSERT INTO CONSOLIDADO (Conta,CentrodeCusto,Celular,SecaodeChamada,StatusAccenture,"
							SQL = SQL & "Pacotededados,valor,mes,operadora) values ('" & Conta & "','" & CentrodeCusto & "','"
							SQL = SQL & celular & "','" & SecaodeChamada & "','" & StatusAccenture & "','" & PacoteDados & "',"
							SQL = SQL & valor & ",'" & mes & "','" & operadora & "')"
							Conexao.Execute (SQL)
							

							mostraImportacao="<tr><td>" &  Conta & "</td><td>" & celular & "</td><td>" & SecaodeChamada & "</td><td>" & StatusAccenture
							mostraImportacao= mostraImportacao & "</td><td>" & Mes_Ano & "</td><td>" & DataChama & "</td><td>" & HoraChamada & "</td><td>" & TipodaChamada
							mostraImportacao= mostraImportacao & "</td><td>" & CidadedeOrigem & "</td><td>" & UFDeOrigem & "</td><td>" & NChamado & "</td><td>" & Tarifa
							mostraImportacao= mostraImportacao & "</td><td>" & Duracao & "</td><td>" & sMinutos & "</td><td>" & Quantidade & "</td><td>" & valor & "</td></tr>"
							''response.write(mostraImportacao)

						end if
						''d if
						Response.Flush				
					next	
					objRs.movenext
					entra=entra+1					
				loop
			end if
		next

Compartilhar este post


Link para o post
Compartilhar em outros sites

O que aparece na soma? Nada? Apenas o campo em branco?
Já tentou fazer uma rotina simples e ver se o valor da objRs(19) aparece?

 

Aguardo resposta!

Compartilhar este post


Link para o post
Compartilhar em outros sites

ele gera algum erro ?

 

Tentou usar a cláusula SUM direto na SQL. Tipo:

 

SQL = "Select Sum(campo1)as soma From tabela Where campo2= '" & Session("Useremail") & "'"

Compartilhar este post


Link para o post
Compartilhar em outros sites

ele gera algum erro ?

 

Tentou usar a cláusula SUM direto na SQL. Tipo:

 

SQL = "Select Sum(campo1)as soma From tabela Where campo2= '" & Session("Useremail") & "'"

aproveitando o topico, como faço para somar qnts linhas de um select?

quando listo o meu estoque queria colocar um campo onde exibisse a qntd de itens que tenho em estoque.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu faço essa soma usando while:

 

<% while not var_da_consulta.eof %>

quantidade = quantidade + 1
<% tudo.var_da_consulta
wend %>

<% response.write quantidade %>

 

Abraços!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu faço essa soma usando while:

 

<% while not var_da_consulta.eof %>

quantidade = quantidade + 1

<% tudo.var_da_consulta

wend %>

 

<% response.write quantidade %>

 

Abraços!

sou leigo entendi assim

<%faça enquanto nao for o fim de var_da_consulta%>

quantidade = recebe ele mesmo + 1

<%tudo.var_da_consulta entao%>

<%exibe a quantidade%>

 

as duvidas:

var_da consulta é uma varialvel ou um campo do banco de dados?

tudo.var_da_consulta a mesma duvida.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Oi Rafael.

Bem, faça assim:
<%

 

var_select = "select * from tabela order by campo "
Set var_da_consulta = var_do_db.execute(var_select)

quantidade = 0

while not var_da_consulta.eof

quantidade = quantidade + 1

var_da_consulta.movenext
wend

response.write quantidade %>

 

Abraços - Fábio!

Compartilhar este post


Link para o post
Compartilhar em outros sites

usa a cláusula SUM direto na SQL, ela deixa o processamento dá página até mais light

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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