Ordenar E Somar :(

[Marianne]

Olá :)

Tenho uma grande duvida para poder construir um relatorio

Tenho 2 tabelas:

tabela_pedido

id

cod_pedido

data_pedido

tabela_pedido_produtos

id

id_pedido

produto_id

produto_nome

valor

Com estas duas tabelas consigo fazer relatorios com INNER JOIN sem problemas mas não consigo fazer um ranking !!

porque quando faco um select assim (exemplo):

Select * from taleba_pedido INNER JOIN tabela_pedido_produtos ON taleba_pedido.id tabela_pedido_produtos.id_pedido order by produto_id

1 pedido: 001 - Cesta de Natal 25,00

2 pedido: 002 - Cesta alemã 26,00

3 pedido: 003 - Cesta alemã 26,00

4 pedido: 004 - Cesta alemã 26,00

5 pedido: 005 - Cesta alemã 26,00

6 pedido: 006 - Cesta 1000 coisas 26,00

Assim funciona 100% mas não tenho um ranking porque não tem a soma e nem está ordenando por soma de valores.. eu gostaria de um relatorio assim:

Cesta alemã - Total de 104,00

1 pedido: 002 - Cesta alemã 26,00

2 pedido: 003 - Cesta alemã 26,00

3 pedido: 004 - Cesta alemã 26,00

4 pedido: 005 - Cesta alemã 26,00

Cesta 1000 coisas - Total de 26,00

1 pedido: 006 - Cesta 1000 coisas 26,00

Cesta de Natal - Total de 25,00

1 pedido: 001 - Cesta de Natal 25,00

Assim eu teria um ranking de produtos mais vendidos :)

Obrigada mesmo !

[Romero Dias]

Bom, Eu, resolveria esse problema da seguinte forma,

acredito que não seria a forma mais inteligente de resolver, mas funciona,

'aqui pega todos os codigos dos produtos
strSql = "SELECT id_produtos FROM tabela_pedidos_produtos GROUP BY id_produtos"
 Set ObjRs = ObjConn.Execute (strSql)

WHILE NOT  ObjRs.Eof 

'aqui soma os valores pelo produto selecionado
strSqlTotais = "SELECT SUM(valor) as total WHERE id_produtos = " &ObjRs("id_produtos") &" "
Set ObjRsTotais = ObjConn.Execute (strSqlTotais)

Response.Write "Produto : " & ObjRs("id_produtos")&" ,Total : " & ObjRsTotais("total") & "<br>"

ObjRs.MoveNext
WEND