Somando Valores

Deividy · Novembro 3, 2005

como posso somar valores com o uso de

for

preço = mostra(1,valor)

ele vem 10, 15,8, 18, 20,4...

pode tem muito ou poucos depende do resultado

queria somar eles alquem pode me ajudar?

JCMPJ · Novembro 3, 2005

Tenta ai.

soma = 0

For i=0 to Ubound(mostra,2)

soma = soma + mostra(1,i)

Deividy · Novembro 3, 2005

não consegui acompanhar o raciocinio

meu código esta assim

for valor_i = 0 to Ubound(mostrar,2)

promocao = FormatNumber(mostrar(4,valor_i))

preço = mostrar(2,valor_i) / 100

valor_receber = FormatNumber(preço * promocao)

aqui ainda tem um monte de coisa, que naõ vem ao caso tipo como mostra para o ususario essas cosias

Deividy · Novembro 3, 2005

consegui!

que vacilo meu valeu! ajudo muito!

soma = soma + valor_receber fiz assim e deu certo

coloquei o soma = 0 em cima do for

valeu mesmo!

JCMPJ · Novembro 3, 2005

É isso valor_receber = FormatNumber(preço * promocao)

que você quer somar?

Se for faz

soma = soma + valor_receber

dentro do FOR

Fredcm · Outubro 28, 2008

Ola a todos.

Pessoal to com o mesmo probla mas não sei como fazer, sou iniciante.

vo tentar explicar resumido

tenho um db access que tem uma tabela chamada VENDAS a tabela VENDAS tem os campos (ID | NOME | PRODUTO| VALOR)

quando faço a venda preencho com o id do cliente | nome do cliente | produto vendido | Valor

e é cadastrado no db.

beleza.

tenho uma pagina que faz uma consulta pelo ID do cliente e mostra tudo que ele já compro, ex:

Nome | Produto | Valor

José | Meia | R$ 5,00

José | Sapato | R$ 15,00

eu gostaria de adicinar uma campo total embaixo dos valores mas não tenho nem ideia de como fazer

o pedaço que monta a tabela é esse

<%
For Cont = 1 to objRS.PageSize
%>

  <TR class=exibe_registros onMouseOver="this.style.backgroundColor='<%=cor_linha_selecionada%>';" onMouseOut="this.style.backgroundColor='';">

  Response.Write " </TD>"
  Response.Write "</FORM>"
End If
%>

    <TD><%=(objRS.Fields.Item("Nome").Value)%></TD>
    <TD><%=(objRS.Fields.Item("produtos").Value)%></TD>
    <TD><%=(objRS.Fields.Item("preço").Value)%></TD>
  </TR>

<%
  objRS.MoveNext
  If objRS.Eof then Exit For
Next
Set Cont = Nothing
%>

o valor já esta em moeda no banco de dados

eu gostaria que ficasse assim

Nome | Produto | Valor

José | Meia | R$ 5,00

José | Sapato | R$ 15,00

Total | R$ 20,00

PS:

pode ser 2 resultados ou 10 depende da quantidade de resposta da consulta que eu fizer!!!! vlw galera!!!!!!!!!!!!!

Rafael Spilki · Outubro 28, 2008

Faça um select sum, desta forma:

strsql1 = "select SUM (campo_valor) as total from sua_tab WHERE " & campo_id &  ""
Set ObjRs1 = seu_objConn.Execute(strsql1 )

'para exibir faça assim:

response.write ObjRs1("total")

sacou?

[]'s Rafael Spilki

Fredcm · Outubro 29, 2008

Faça um select sum, desta forma:

strsql1 = "select SUM (campo_valor) as total from sua_tab WHERE " & campo_id &  ""
Set ObjRs1 = seu_objConn.Execute(strsql1 )

'para exibir faça assim:

response.write ObjRs1("total")

sacou? []'s Rafael Spilki

Boa noite EDIT. Funciono parte. ele fex a conta mas conto todos que tão cadastradono na tabela

<%  
<%  
  Set objCon1 = Server.CreateObject("ADODB.Connection")
objCon1.Open strCon

strsql1 = "select SUM (preço) as total from vendas WHERE ' & id_cliente & '"
Set ObjRs1 = objCon1.Execute(strsql1 )
%>
    
    <TD>Total <% response.write ObjRs1("total") %></TD>

preciso que apareça somente os da consulta

Vlw!!!!!!!!

PS. tive que troca as aspas duplas pelas aspas simples (" por ') no campo id pra poder rodar o codigo

o preço ta sem "Ç" eu colo "c" mas aparece "ç" strsql1 = "select SUM (preço)

Editado Outubro 29, 2008 por Fredcm

Rafael Spilki · Outubro 29, 2008

Faça um select sum, desta forma:
strsql1 = "select SUM (campo_valor) as total from sua_tab WHERE " & campo_id &  ""
Set ObjRs1 = seu_objConn.Execute(strsql1 )

'para exibir faça assim:

response.write ObjRs1("total")
sacou? []'s Rafael Spilki
Boa noite EDIT. Funciono parte. ele fex a conta mas conto todos que tão cadastradono na tabela
<%  
<%  
  Set objCon1 = Server.CreateObject("ADODB.Connection")
objCon1.Open strCon

strsql1 = "select SUM (preço) as total from vendas WHERE ' & id_cliente & '"
Set ObjRs1 = objCon1.Execute(strsql1 )
%>
    
    <TD>Total <% response.write ObjRs1("total") %></TD>
preciso que apareça somente os da consulta
Vlw!!!!!!!!
PS. tive que troca as aspas duplas pelas aspas simples (" por ') no campo id pra poder rodar o codigo
o preço ta sem "Ç" eu colo "c" mas aparece "ç" strsql1 = "select SUM (preço)

Bom, é lógico que o que eu mandei era somente um exemplo... você precisaria o adaptar...

Não entendi o porque trocar " por ' no ID. Entendendo o caso: quando o campo é texto devemos usar as duas '" quando o campo é número deveremos usar apenas uma, no caso a dupla ". Só usamos a aspas ' quando queremos passar um valor exato e previamente já definido e imutável.

Tb não entendi a questão envolvendo a cedilha de preço... todo caso, valhe ressaltar que é sempre melhor não usar acentos ou cedilhas.

Com relação ao seu select, para lhe ajudar mais preciso ver o select de sua consulta atual... daí poderemos incluir as mesmas clausulas de where no seu select de soma e pronto... dará certo...

Poste ele aqui, ok?

[]'s Rafael Spilki

Fredcm · Outubro 29, 2008

ola

ta ai o pedaço da conexão que faz uma busca na tabela

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
objRS.CacheSize = RegPorPag
strQ = "SELECT * FROM vendas"

If Trim(Request("string_busca")) <> "" Then
  If Trim(Request("campo_busca")) <> "" Then
    strQ = strQ & " Where " & Trim(Request("campo_busca")) & " LIKE '%" & Trim(Request("string_busca")) & "%'"
  Else
    strQ = strQ & " Where 1 <> 1"
    strQ = strQ & " Or id_venda LIKE '%" & Trim(Request("string_busca")) & "%'"
    strQ = strQ & " Or id_cliente LIKE '%" & Trim(Request("string_busca")) & "%'"
    strQ = strQ & " Or Nome LIKE '%" & Trim(Request("string_busca")) & "%'"
    strQ = strQ & " Or produtos LIKE '%" & Trim(Request("string_busca")) & "%'"
    strQ = strQ & " Or preço LIKE '%" & Trim(Request("string_busca")) & "%'"
  End If
End If


If Trim(Request.QueryString("Ordem")) <> "" Then
  strQ = strQ & " ORDER BY " & Request.QueryString("Ordem")
End If
objRS.Open strQ, objCon, , , &H0001
objRS.PageSize = RegPorPag

Set objRS_indice = Server.CreateObject("ADODB.Recordset")
objRS_indice.CursorLocation = 2
objRS_indice.CursorType = 0
objRS_indice.LockType = 2
strQ_indice = "SELECT * FROM vendas WHERE 1 <> 1"
objRS_indice.Open strQ_indice, objCon, , , &H0001
indice = ""
For Each item In objRS_indice.Fields
  If item.properties("IsAutoIncrement") = True Then
    indice = item.name
    Exit For
  End If
Next
objRS_indice.Close
Set objRS_indice = Nothing
Set strQ_indice = Nothing

Set objRS.ActiveConnection = Nothing
objCon.Close
Set objCon = Nothing




%>

vlw!!!!!!

Editado Outubro 29, 2008 por Fredcm

Rafael Spilki · Outubro 29, 2008

Basta acrescentar essas clausulas de where dentro do select sum...

fiz correndo, não conferi nada, mas ficaria mais ou menos assim (só um exemplo):

Set objCon1 = Server.CreateObject("ADODB.Connection")
objCon1.Open strCon

strsql1 = "select SUM (preço) as total from vendas WHERE  " & Trim(Request("campo_busca")) & " LIKE '%" & Trim(Request("string_busca")) & "%' and 1 <> 1 Or id_venda LIKE '%" & Trim(Request("string_busca")) & "%' Or id_cliente LIKE '%" & Trim(Request("string_busca")) & "%' Or Nome LIKE '%" & Trim(Request("string_busca")) & "%'  Or produtos LIKE '%" & Trim(Request("string_busca")) & "%' Or preço LIKE '%" & Trim(Request("string_busca")) & "%'"
Set ObjRs1 = objCon1.Execute(strsql1 )

Se houver erro de uma conferida na sintaxe... refaça... copie e cole tudo novamente, mantendo a mesmas clausulas que você tem no seu select nesse tb!

Adapte ao seu caso!

é isso que você queria?

[]'s Rafael Spilki

Fredcm · Outubro 30, 2008

ola.

o codigo não funciono da um erro e fala que terimo de forma espearada

Acredito que seja a " fechando depois do WHERE

mas ai passo pra ' e não funciona do mesmo jeito

Rafael Spilki · Outubro 30, 2008

Aí é que ta... pra fazer isso preciso saber uma série de coisas... por exemplo o que é isso:

and 1 <> 1 ???

1 é um campo?!? você vai ter que repassar a clausula de where uma a uma e ir checando...

a sintaxe básica é essa:

strsql1 = "select SUM (campo_valor) as total from sua_tab WHERE " & campo_id &  ""
Set ObjRs1 = seu_objConn.Execute(strsql1 )

basta você apropriar as clausulas de where aí dentro... outra coisa que você pode fazer é debugar essa query q você já tem pronta assim:

response.write strsql1

e tentar identificar onde está o erro...

Terminando, como disse, aquilo que te mandei eu nem li! Foi só um exemplo mesmo, fiz no copiar e colar ligeiraão, certamente devem ter erros... terá que corrigilos, ok?

Na dúvida faz esse debug e posta aqui os resultados respondendo tb as dúvidas acima!

[]'s Rafael Spilki

Entrar

Somando Valores

Pergunta

Link para o comentário

Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns