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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Registros entre duas tabelas
Perci
não registrado
Postada em 13/06/2006 09:49 hs   
Tenho duas tabelas Vendas em dois bancos de dados diferentes.
Queria transferir os registros da tabela2 para a tabela1, para ficar
tudo numa tabela só.
Só que nas duas tabelas podem existir registros em duplicidade. Então eu
teria que verificar esses registros, antes de transferir para a outra tabela
para não acontecer de gerar dois ou mais registros duplicados.
Teria que percorrer registro por registro da tabela2 e verificando na tabela1
se o registro já existe. Se não existir, gravar o registro. Se existir mostrar
uma mensagem que já existe o registro e continuar a fazer o mesmo processo.
O campos das duas tabelas são iguais:
 
CodCliente   DataPedido   NumeroPedido   Desconto   Prazo      Valor
(numerico)   (data)          (numerico)      (texto)      (texto)    (numerico)
 
Como consigo fazer isso?
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 14/06/2006 08:27 hs         
Qual a chave primária dessa tabela que vc descreveu aí? Pra eu te mostrar como é, preciso saber da chave primária tb.
     
Perci
não registrado
Postada em 14/06/2006 09:27 hs   
Essa tabela não possui chave primária.
Podem existir registros duplicados. É como se fosse uma tabela de itens de nota fiscal.
Podem existir vários itens para uma mesma nota fiscal.
O que eu precisaria fazer é uma consulta a todos os campos da tabela.
Pegar o código do cliente, o número do pedido, a data do pedido, o desconto e o prazo,
comparar todos os campos das duas tabelas e se não forem exatamente iguais, gravar da
tabela1 para a tabela2.
Entendeu?
     
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 14/06/2006 10:56 hs            
é mais ou menos isso aqui
while not rs2.eof
 rs.moveMin
 while not rs.eof
  if rs("codigo") = rs2("codigo") then
   gravaRegistro
  endif
  rs.movnext
 wend
 rs2.movnext
wend
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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