AJUDA COM SELECT

CAIO.FR.SP 25/02/2010 01:37:54
#335297
galera preciso da ajuda de voce pra efetuar uma consulta no db, com a seguinte condição condição:
ele deve buscar pelo nome de cliente definido pelo usuario, ate ai normal
mais que some o valor total de todas venda realizadas para esse cliente. tipo

o usuario quer saber qto vendeu para o cliente FULANO
dai na sql o comando ja deve filtar por todas vendas efetudas para o cliente FULANDO e devolver o valor total das vendas.
JWCELYO 25/02/2010 08:49:41
#335298
CAIO você tem que dar mas detalhes, poste parte do código se possível
CAIO.FR.SP 25/02/2010 11:19:56
#335325
é assim.

preciso efetuar um relatorio com os produtos mais vendidos no mes.
para isso eu pego e filtro as vendas por data e com os produtos vendidos assim:

  
With cmd_conexao
.ActiveConnection = conexao
.CommandType = adCmdText
.CommandText = [Ô]SELECT DISTINCT prod FROM venda WHERE data BETWEEN #[Ô] & data1 & [Ô] # AND #[Ô] & data2 & [Ô]# ORDER BY nomcli;[Ô]
Set rst_conexao = .Execute
End With

agora com base nesse resultado eu tenho q somar qto de cada produto foi vendido, mais ou menos assim
  
Do While not rst_conexao.eof
With cmd_conexao
.ActiveConnection = conexao
.CommandType = adCmdText
.CommandText = [Ô]SELECT DISTINCT qtd FROM venda WHERE prod = [ô][Ô] & rst_conexao!prod & [Ô][ô];[Ô]
Set rst_conexao2 = .Execute
End With
Do while not rst_conexao2.eof
quant = quant + rst_conexao2!qtd
rst_conexao2.movenext
Loop
Set lst = lst_produtos.ListItems.Add
lst.text = rst_conexao!prod
lst.subitems(1) = quant
quant = 0
rst_conexao.movenext
Loop


mais ou menos isso.
dai eu queria simplificar essa função e ainda a parta mais dificil. ao inves de jogar esse resultado em um list tinha que joga em um recorset para mim usar no relatorio.
é bem complicado. alguem tem uma sujestao?
LEANDRO 25/02/2010 18:35:34
#335384
Do jeito que o nosso amigo RCMRO postou ficaria correto
CAIO.FR.SP 25/02/2010 18:40:05
#335386
nao consegui entender como o amigo RCMRO usa a função, alguem pode me dize como ela é ultilizada
Tópico encerrado , respostas não são mais permitidas