Montagem De Tabela Dinamica (parte Ii)

[Guest Andre Luiz]

Boa tarde Pessoal:

Conforme saída de mestre do Bereta (Obrigado cara...), ele me deu uma luz em meu problema inicial conforme URL abaixo...

http://scriptbrasil.com.br/forum/index.php...=ST&f=2&t=35237

No entanto agora, tenho um campo chamado qde, que indica quantos produtos o vendedor vendeu em um determinado dia, onde terei que fazer uma somatoria por cada vendedor, como o exemplo a seguir...

dias

Name 1 2 3 4 5 6 7 8 ....

-------------------------

Jose 5 (10) 4 (5) 2 (3) 6 (5) 5 (2) .......

Mary 3 (50) 2 (1) 6 (3) 6 (8) 5 (3) .......

Anto 2 (34) 3 (3) 6 (3) 6 (5) 5 (4) .......

Nessa tabela, estaria exibindo qtos dias o vendedor vendeu, por ex. Jose vendeu 5 dias, e nesses 5 dias vendeu 10 produtos...

Se voces puderem me ajudar, ficarei muito grato!

Obrigado!

[ar_ctjd]

Não sei se entendi ao certo....

Você precisa armazenar, quantos dias o vendedor vendeu no mes, e quantos produtos, ele vendeu respectivamente???

Ou você tem que armazenar, quantos produto o vendedor vendeu a cada dia do mês?

[Guest Guest]

Cara, preciso mesmo é armazenar quantos produto o vendedor vendeu a cada dia do mês, pois eventualmente o cara realizou 2 vendas de 5 produtos cada, totalizando 10, ok ?

Muitissimo obrigado!

[cyberalexxx]

Mesmo tendo sido injustiçado, pois fui eu que fiz o primeiro script que é "simplesmente um luxo"

Resolvi ajudar (brincadeira)

deixa assim:

<%
set conexao=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("vendas.mdb")
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
SQL="select * from vendas order by data"
set rs = conexao.execute(sql)

dim datas
datas=array()
%>
<table bordercolor="#111111" bgcolor="#C0C0C0">
<tr>
<td bgcolor="#000080"><b>
<font face="Verdana" size="2" color="#66CCFF">Nome</font></td>

<%
dim data
dim quant
do while not Rs.Eof
  if data <> Rs.Fields("data") then
     data = Rs.Fields("data")%>
     <td bgcolor="#000080">
     <font face="Verdana" size="2" color="#66CCFF"><%=Rs.Fields("data")%></font></td>
     <%
     redim preserve datas(Ubound(datas)+1)
     datas(Ubound(datas)) = Rs.Fields("data")
  end if
  Rs.MoveNext
Loop

SQL2="select * from vendas order by nome, data"
set rs2 = conexao.execute(SQL2)
dim nome
dim n_vend(31)
dim n_prod(31)

do while not rs2.eof
   if nome <> Rs2.Fields("nome") then
       for i = 0 to Ubound(datas)
           n_vend(i) = 0
           n_prod(i) = 0 
       next
       nome = Rs2.Fields("nome") %>
       <tr>
       <td bgcolor="#000080"><b>
       <font face="Verdana" size="2" color="#66CCFF"><%=Rs2.fields("Nome")%></font></td><%
   end if    
   for i =  0 to Ubound(datas) 
       if CStr(datas(i)) = CStr(Rs2.Fields("data")) then
          n_vend(i) = n_vend(i) + 1
          n_prod(i) = n_prod(i) + Rs2.Fields("quant")   
       end if
   next  
   Rs2.MoveNext
   if not rs2.EOF then
      if nome <> Rs2.Fields("nome") then   
          for i =  0 to Ubound(datas)%>
             <td bgcolor="#000080">
             <font face="Verdana" size="2" color="#66CCFF">nº vendas:<%=n_vend(i)&"-Qtde:"&n_prod(i)%></font></td><%
          next
      end if
   end if
   if rs2.EOF then
      for i =  0 to Ubound(datas)%>
             <td bgcolor="#000080">
             <font face="Verdana" size="2" color="#66CCFF">nº vendas:<%=n_vend(i)&"-Qtde:"&n_prod(i)%></font></td><%
      next
   end if
loop
%>

é so adaptar o meu script aos campos de sua tabela.

Abraços

[bareta]

será que o bereta era eu???

[cyberalexxx]

Pensando melhor sobre o que se pretende fazer nessa tópico, além do método que eu utilizei, da pra fazer também via instruções SQL, como SELECT COUNT(tabela.campo_dia) e SELECT SUM(tabela.campo_qtdade) WHERE data=datadesejada

[bareta]

Pensando melhor sobre o que se pretende fazer nessa tópico, além do método que eu utilizei, da pra fazer também via instruções SQL, como SELECT COUNT(tabela.campo_dia) e SELECT SUM(tabela.campo_qtdade) WHERE data=datadesejada

mais esse metodos utilizam outro metodo... para criar o rs

[cyberalexxx]

Pensando melhor sobre o que se pretende fazer nessa tópico, além do método que eu utilizei, da pra fazer também via instruções SQL, como SELECT COUNT(tabela.campo_dia) e SELECT SUM(tabela.campo_qtdade) WHERE data=datadesejada

mais esse metodos utilizam outro metodo... para criar o rs

não entendi o q você quiz dizer

[bareta]

vixi... viajei agora tava pensando em recordset.count

foi desculpe