Soma linha por linha

[Gustavo Emygdio Barboza 24]

post #17

[xanburzum 169]

na verdade o post #6 já sugere

[Gustavo Emygdio Barboza 24]

o post #6 só está agrupando o que não atende ao problema, o que seria necessário até o momento é quebrar a string do campo para somar ... só que depende do banco para dar uma solução pois tem bancos de dados que não tem aplicação de tipo split como por exemplo o mysql o que derrente pode-se usar o SUBSTRING_INDEX e o postgresql derrepente pode se usar split_part ... mas se não tiver jeito só fazendo um procedimento armazenado para aplicar na consulta... mediante tal problema que optei a quebrar o campo no recordset mesmo...

[xanburzum 169]

dá pra usar uma classe de GridView ou jquery e apenas pegar os dados vindo do banco

[ricardo coelho designer 0]

Pessoal, desculpa insistir mas já tentei de tudo, e ainda não consegui enter, uma vez que meu prazo está totalmente estourado, e estou tomando bronca atrás de bronca, mas vamos lá

 

Olha pessoal abaixo o código que estou usando, até consigo somar, mas a soma herda a linha acima, ou seja está somando a coluna.

 

Vou postar abaixo.

 

  <%Set RS3 = Server.CreateObject("ADODB.Recordset")
  SQLStmt = "SELECT cod_comodo FROM galeria where codigo = '"&R12("codigo")&"' order by ordem desc"
  RS3.Open SQLstmt,DSNtest
  While Not RS3.EOF%>

        <%Set Rmap = Server.CreateObject("ADODB.Recordset")
        Rmap.CursorType = 0
        Rmap.CursorLocation = 3
        Rmap.LockType = 3
        SQLStmt = "SELECT cod_pc FROM planta_comodo where cod_comodo = '"&RS3("cod_comodo")&"'"
        Rmap.Open SQLstmt,Conn
        If Rmap.Eof Then
           Response.Write "Comodo não cadastrado"
        else
           While Not Rmap.EOF%>

              <%Set RSsi = Server.CreateObject("ADODB.Recordset")
              RSsi.CursorType = 0
              RSsi.CursorLocation = 3
              RSsi.LockType = 3
              SQLStmt = "SELECT cod_aplica, aplicacao FROM planta_comodo_aplicacao where cod_pc = '"&Rmap("cod_pc")&"' and cod_produto like '%"&Rp("cod_produto")&"%'"
              RSsi.Open SQLstmt,Conn
              if RSsi.recordcount = 0 then
              response.write "No info available!"
              else
                  aplicacaototal = RSsi.recordcount   'Não ocultar pois é responsável pela soma.

                   For b=1 to RSsi.recordcount  %>

                                <%'Pega total de pedidos com contrato fechado%>
                                <%Set Rp1 = Server.CreateObject("ADODB.Recordset")
                                Rp1.CursorType = 0
                                Rp1.CursorLocation = 3
                                Rp1.LockType = 3
                                SQLStmt2 = "SELECT * FROM pedidos WHERE user_id in ("&cod_plantanext&") and cod_aplica = '"&RSsi("cod_aplica")&"' and cod_produto = '"&Rp("cod_produto")&"'"
                                Rp1.Open SQLstmt2,DSNtest %>
                                <%totalpedidos = Rp1.recordcount%>
                                <%Rp1.close %>

                                        <%'Multiplica total de produtos pela medida%>
                                        <%Set Rsi = Server.CreateObject("ADODB.Recordset")
                                        SQLStmt = "SELECT SUM("&totalpedidos&"*medida) as total FROM planta_comodo_produto where cod_pc_aplica = '"&RSsi("cod_aplica")&"' and cod_produto = '"&Rp("cod_produto")&";'"
                                        Rsi.Open SQLstmt,Conn
                                        If Rsi.Eof Then
                                           Response.Write "<font color=""#FF0000"">Não tem</font>"
                                        else
                                        While Not Rsi.EOF %>
                                             <%=b%> - <%= Rsi("total")%> <br>
                                          <%totaltodos2 = totaltodos2 + Rsi("total")%>
                                        <%Rsi.MoveNext
                                        Wend
                                        Rsi.close %>
                                        <%End If%>
                   <%RSsi.MoveNext%>
                   <%next%>
              <%end if%>
              <%RSsi.close %>

        <%Rmap.MoveNext
        Wend
        Rmap.close
        End IF
        %>
          <%=totaltodos2%>
   <%RS3.MoveNext
   Wend
   RS3.close%>

A impressão que mostra a soma é essa <%=totaltodos2%>

 

Como posso fazer a cada linha reiniciar a contagem e não somar a coluna.

Pessoal o bd é access

[ricardo coelho designer 0]

Pessoal pode fechar o tópico porque consegui a reposta que era muito simples:

<%=totaltodos2%>

<%totaltodos2 = 0 %>Esse valor reinicia a contagem. Era somente isso que precisava. MAs de qualquer forma valeu.

[xanburzum 169]

simples e funcional....