Fórum Script Brasil > Montagem De Tabela Dinamica Com Asp E Mdb

Versão Completa: Montagem De Tabela Dinamica Com Asp E Mdb

Fórum Script Brasil > Programação & Desenvolvimento > ASP

Andre Luiz

13/09/2004 - 10:53

OLá pessoal.
Preciso da ajuda de voces..
O problema é o seguinte...

Tenho um site onde registro todas as vendas, data e quem realizou a venda...
Agora preciso gerar um relatorio, onde nas colunas estarao os dias do mes atual... e nas linhas o nome do vendedor e quantas vendas ele realizou...

Ex:

Name 1 2 3 4 5 6 7 8 ....
-------------------------
Jose 5 4 2 6 5 3 6 8 ....
Mary 5 4 6 8 3 6 8 9 ....
Anto 3 5 8 3 2 3 4 0 ....

Alguem poderia me dar alguma dica de como faria isto ?
Muito obrigado!

bareta

13/09/2004 - 11:23

vc tem algum conhecimento em ASP???

Guest

13/09/2004 - 11:48

Sim cara.. programo ha varios anos.. mas nunca necessitei de algo parecido..
Abraco

cyberalexxx

13/09/2004 - 17:03

Fiz um esquema muito louco aki, mais c voce adaptar com os dados dos seu banco/tabela deve funcionar:

CODE

<%
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">
Nome</td>

<%
dim data
do while not Rs.Eof
if data <> Rs.Fields("data") then
data = Rs.Fields("data")%>
<td bgcolor="#000080">
<%=Rs.Fields("data")%></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)

do while not rs2.eof
if nome <> Rs2.Fields("nome") then
for i = 0 to Ubound(datas)
n_vend(i) = 0
next
nome = Rs2.Fields("nome") %>
<tr>
<td bgcolor="#000080">
<%=Rs2.fields("Nome")%></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
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">
<%=n_vend(i)%></td><%
next
end if
end if
if rs2.EOF then
for i = 0 to Ubound(datas)%>
<td bgcolor="#000080">
<%=n_vend(i)%></td><%
next
end if
loop
%>

Qualquer duvida, posta ai!!

Guest

14/09/2004 - 09:25

É isso mesmo cara!!!! MUITISSIMO OBRIGADO!!! DEU CERTO!!! VALEU!!!!

cyberalexxx

14/09/2004 - 09:36

Blz!! qualquer duvida na minha lógica pra adaptar ai é so falar.

Mota Lima

28/01/2012 - 21:06

QUOTE(cyberalexxx @ 14/09/2004 - 10:36)

beleza!! qualquer duvida na minha lógica pra adaptar ai é so falar.

Eu busco ansiosamente por um código parecido.Tentei usar esse mas não consigo "popular" com os valores para cada canal por cada dia.

Dia 1|2|3|4......|31
Canal1 5|2|1|0......
Canal2 0|8|3|6|.....
Canal3 2|7|9|5|....

Obrigado.

Mota Lima

18/02/2012 - 14:43

QUOTE(Mota Lima @ 28/01/2012 - 22:06)

QUOTE(cyberalexxx @ 14/09/2004 - 10:36)

beleza!! qualquer duvida na minha lógica pra adaptar ai é so falar.

Consegui entender e fazer funcionar com meu BD em MySql.

Só não consegui, ainda, implemtar uma linha (a última) totalizando (contando) os registros (da respectiva coluna) bem como uma coluna, à direita, totalizando os valores das linhas.

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.