USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Criando um ranking
Irenko
BELO HORIZONTE
MG - BRASIL
Postada em 18/01/2008 15:04 hs            
Pessoal, como posso montar essa pesquisa, sendo:

no campo (OS) da tabela Dados tenho varios contratos dentre eles o (135202). No campo (quant) da mesma tabela gravo a quantidade de um determinado item usado por esse contrato e no campo (unit) da mesma tabela, gravo o valor unitario desse item. Na soma de valor esse contrato acumula o maior valor e mantem a liderança no ranking, pergunto, como fazer essa pesquisa pegando o contrato com o maior valor monetário. Tentei assim mas retorna outro valor:

Set TbResumo = New ADODB.Recordset
TbResumo.Open "SELECT TOP 100 OS, Sum(quant*unit) as Total FROM Dados GROUP BY OS ORDER BY OS", BancoSobra, adOpenDynamic, adLockOptimistic

Do While Not TbResumo.EOF
T1.text = TbResumo("OS")
T2.text = TbResumo("Total")
TbResumo.MoveNext
Loop

Alguem tem uma sugestão
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página