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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Deletar e atualizar.
Marreiros
não registrado
ENUNCIADA !
Postada em 29/06/2005 08:01 hs   
Bom dia!
 
Eu recebo do cliente um arq. em MSAccess, ai preciso atualizar os produtos em um Banco Access e em outro Banco MySql, fazendo o seguinte:
 
Verificar se o produto já existe nas minhas tabelas(BD MySql e Access), se já existe deleta e copia o registro novo, se não existe simplismente copiar.
 
Ah! Quero criar uma progressbar baseada na qtd de resgistro recebido do cliente.
OBS: São dois programas um acessa Access e o outro acessa MySql.
Já fiz algo, mas ficou muito lento. Leva 4 horas para atualizar mil records.
 
   
Semmer
CURITIBA
PR - BRASIL
ENUNCIADA !
Postada em 29/06/2005 09:39 hs            
Veja quantos registros tem na tabela recebida e inicie o progressbar de zero até o número de registros.
Leia a tabela do arquivo recebido e caminhe entre os registros delas deletando e inserindo através de instrução sql baseada no campo chave da tabela:
do until rs.eof
   sql = "delete from tabela where campochave = " & rs(0)
   set rsx = db.execute(sql)
   sql = "insert into tabela (campochave, campo1, campo2) values (" & rs(0) & ", " & rs(1) & ", " & rs(2) & ")"
   set rsx = db.execute(sql)
   rs.movenext
   'aplica mais um no progressbar
loop
 
quando não existir na tabela original o registro que está na tabela recebida, nao vai deletar, vai apenas inserir e quando existir o registro, vai deletar e inserir.
 
   
Página(s): 1/1    


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