MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Atualização de tabela

    jojunior
    jojunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Atualização de tabela Empty Atualização de tabela

    Mensagem  jojunior 16/3/2012, 20:50

    Srs boa tarde....

    Tenho um bd com as seguintes informações.:
    Codigo (autonumeração), codigodoprod (numero), nomedoprod (texto), Unid (texto)
    porém, me deparei com a seguinte situação, tenho um outro bd onde contém os mesmos descritivos acima, porém, foi incluído mais um campo codigosap (do tipo numero), ficando assim.;
    Codigo (autonumeração), codigodoprod (numero), codigosap (numero), nomedoprod (texto), Unid (texto)
    Este novo bd contém os dados mais atualizados, no entanto quero importar os dados do bd antigo p/ o bd novo,porém, preciso que onde os campos codigodoprod forem iguais ele os mantenha (os dados antigos) e somente atualize com os novos dados (não existentes), e não estou sabendo como fazê-lo.

    Obs.: utilizo access 2k
    avatar
    Convidad
    Convidado


    [Resolvido]Atualização de tabela Empty Re: [Resolvido]Atualização de tabela

    Mensagem  Convidad 16/3/2012, 21:31


    Olá!
    Se entendi a situação, creio que uma consulta acréscimo que excetuasse os registros onde codigodoprod já existe resolveria.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Atualização de tabela Empty Re: [Resolvido]Atualização de tabela

    Mensagem  criquio 16/3/2012, 21:36

    Talvez algo assim (teste em uma cópia do aplicativo):

    Código:
    Dim rs1 As Recordset, rs2 As Recordset

    Set rs1 = CurrentDb.OpenRecordset("Tabela1")

    Do While Not rs1.EOF

    Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM Tabela2 WHERE Código=" & rs1!Código & "")

    If rs2.RecordCount = 0 Then
        rs2.AddNew
    Else
        rs2.Edit
    End If
        rs2!Campo1 = rs1!Campo1
        rs2!Campo2 = rs1!Campo2
        rs2!Campo3 = rs1!Campo3
        ...
        rs2.Update
        rs2.Close
        Set rs2 = Nothing
    Loop

    rs1.Close
    Set rs1 = Nothing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    jojunior
    jojunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Atualização de tabela Empty Re: [Resolvido]Atualização de tabela

    Mensagem  jojunior 16/3/2012, 21:45

    Olá Criquio,
    desculpe a ignorância mas onde eu escrevo (ou copiar+colar) este código?
    Seria em algum botão?

    tentei desta maneira mais nada aconteceu...

    UPDATE tblProdutos LEFT JOIN Sap ON tblProdutos.Codigo_SapAntigo = Sap.Codigo_Sap SET Sap.Unid = [tblProdutos].[Unid], Sap.NomedoProduto = [tblProdutos].[NomedoProduto], Sap.Codigo_Sap = [tblProdutos].[Codigo_SapAntigo];

    Faz todo o processo como vai atualizar a qtde de registros e quando vou conferir o bd está com a mesma qtde de registros e os novos registros não aparecem, o que será que está errado?

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Atualização de tabela Empty Re: [Resolvido]Atualização de tabela

    Mensagem  criquio 16/3/2012, 22:07

    O que eu passei pode ser colocado no "Ao clicar" de um botão.

    PS.: postei no mesmo instante que o Norberto na mensagem anterior Razz


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Atualização de tabela Empty Re: [Resolvido]Atualização de tabela

    Mensagem  criquio 27/3/2012, 14:10

    Como não houve retorno, o tópico passa a Resolvido. Caso ainda não tenha conseguido resolver a questão, pode reabri-lo se desejar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Atualização de tabela Empty Re: [Resolvido]Atualização de tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 08:56