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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Procurar por registros duplicados. URGENTE!!!
Perci
não registrado
ENUNCIADA !
Postada em 11/08/2006 15:45 hs   
Alguém pode me ajudar??? Tenho uma tabela com itens de pedidos.
 
NumPed     CodProd      Quant
100              10               10
100              15               10
100              10               10
100              15               10
 
Queria que no meu relatório imprimisse assim:
 
Num Ped      CodProd       Quant
100                 10               20
100                 15               20 
 
Ou seja, não repetisse itens com o mesmo codigo do produto.
 
Não estou conseguindo montar a instrução SQL.
 
 
Sei que é simples, mas estou quebrando a cabeça
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 11/08/2006 15:59 hs            
faça uma select assim:
SELECT Itens_Pedidos.Cod_Pedido, Itens_Pedidos.Cod_Prod, Iens_Pedidos.Vlr_Unitario
FROM Itens_Pedidos
GROUP BY Itens_Pedidos.Cod_Pedido, Itens_Pedidos.Cod_Prod, Itens_Pedidos.Vlr_Unitario;

dsmn
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 11/08/2006 16:13 hs            
Parece q vc quer somar a qtde certo??
Faz assim:
 
SELECT NumPed,CodProd,sum(Qtde)
FROM Pedidos GROUP BY Numped,codprod;
   
Perci
não registrado
ENUNCIADA !
Postada em 11/08/2006 16:15 hs   
Daniel, me desculpe, mas eu não entendo este GROUP BY. Poderia me explicar como funciona? O que esta cláusula faz? No meu caso, nesta Select, o que eu estou pedindo para o VB fazer?
 
   
Perci
não registrado
ENUNCIADA !
Postada em 11/08/2006 16:53 hs   
Ghost e Daniel ou quem puder me ajudar. Fiz uma alteração no projeto e preciso montar uma instrução de SQL na qual eu faça o seguinte: quando eu salvo os itens do pedido, preciso verificar na tabela se já existe o mesmo produto no mesmo pedido; se ele já tiver com o mesmo numero do pedido e mesmo codigo do produto, tenho que somar a quantidade e salvar na tabela; se não tiver na tabela com o mesmo numero do pedido e mesmo codido do produto, eu tenho que gravá-lo.
Entenderam? Se puderem me ajudar, agradeço. Eu uso o PC do escritório e portanto vou poder ler o post apenas na segunda-feira, mas podem postar que na segunda-feira cedo eu leio e testo e depois retorno se der certo. OK? BOM FINAL DE SEMANA A TODOS E FIQUEM COM DEUS.
   
JJF
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 14/08/2006 03:01 hs            

Perci, tenta assim:

'procura se há pedido e produto

Dim oRsPed as new Adodb.recordset

oRsPed.open "select codprod,quant where numped = "& pedido &" and codprod = "& produto & " ",cnn

'se encontrar pedido e produto

if not oRsPed.eof then

orsped.Update 'aqui vai somar se já tiver este produto

orsped!quant = orsped!quant + quant

orsped.requery

orsped.update

orsped.close

else

orsped.addnew 'aqui vai adicionar um novo se for o primeiro registro.

orsped!numped = pedido

orsped!codprod = produto

orsped!quant = quant

orsped.requery

orsped.update

orsped.close

end if

   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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