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

    Transferencia de dados

    avatar
    MMS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 12/04/2011

    Transferencia de dados Empty Transferencia de dados

    Mensagem  MMS 3/12/2013, 13:04

    Amigos, gostaria de uma dica para seguinte situação: Tenho uma aplicação em Access2007 em um cliente cujo qual quer que os dados armazenados fique somente o período que ele determinar (De __/___/___ Até __/__/__), após digitar o período, este será adicionado a um outro banco de dados que terá todos os dados (possívelmente pen drive), e o sistema fique "zerado" iniciando novo ciclo até que seja determinado outro período de transferência. Resumindo, após ele determinar o período todos os dados serão transferidos e "adicionados" a um outro banco de dados que terá todos e o atual ficará zerado.

    Alguém tem uma boa dica para fazer isso? Agradeço as dicas.

    Obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Transferencia de dados Empty Re: Transferencia de dados

    Mensagem  criquio 3/12/2013, 15:38

    Isso é meio complicado, pois talvez tenha a necessidade de verificar se os dados foram todos passados corretamente fazendo uma contagem de registros nas tabelas do banco de destino antes da transferência e comparando a diferença depois da transferência para ver se ficou certo. E tambem verificar o tamanho dos bancos para ver se não irá ultrapassar o máximo de 2 gigas que o Access suporta. Para isso tornaria-se ainda necessário compactar/reparar os dois bancos antes de tudo. Mas em termos gerais, para fazer a transferência você pode criar dois recordsets e setar um para o banco atual e outro para o banco de destino e tambem criar um TableDef para percorrer as tabelas. Depois, basta fazer um For... Next no TableDefs pegando as tabelas que não iniciarem em "MSys". Você pode contar os campos da tabela e usar como índice para enviar os dados dos campos de uma para a outra:

    Código:
    For N = 0 To tdf.Fields.Count - 1
        rs2(N) = rs1(N)
    Next
    Isso se os nomes das tabelas forem iguais, assim como a quantidade e nomes dos campos em ambos os bancos.


    .................................................................................
    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.


      Data/hora atual: 26/11/2022, 20:36