MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    avatar
    mfrigerio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 01/08/2012

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha Empty Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    Mensagem  mfrigerio em 19/6/2020, 18:21

    Olá amigos deste respeito e magestoso site.
    Preciso de uma ajuda dos amigos.

    Estou criando uma macro dentro do módulo no Access para copiar todos dados de uma tabela Producao.mdb para uma tabela de outro arquivo Analise.mdb com senha, porém não estou conseguindo.

    Arquivo Origem : Producao.mdb
    Arquivo Destino : Analise.mdb << este tem senha 123 para abertura
    Tabela : LancamentosConsulta
    *** A Tabela do arquivo de Origem e Destino são identicas em campos e estruturas.

    Sub INSERT()
    Dim db As Database
    CAMINHO = CurrentProject.Path & "\ANALISE.MDB"
    Set db = DBEngine.Workspaces(0).OpenDatabase(CAMINHO, False, False, "MS Access;PWD=123")
    SQL = "INSERT INTO LancamentosConsulta in ANALISE.MDB SELECT * from LancamentosConsulta"
    db.Execute SQL
    db.Close
    Set db = Nothing
    End Sub

    Antecipo cordial agradecimentos.
    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7671
    Registrado : 05/11/2009

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha Empty Re: Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    Mensagem  Alexandre Neves em 19/6/2020, 20:26

    Boa noite
    Tente
    SQL = "INSERT INTO LancamentosConsulta in ANALISE.MDB;PWD=senha; SELECT * from LancamentosConsulta"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alyson
    Alyson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/06/2016

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha Empty Re: Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    Mensagem  Alyson em 19/6/2020, 20:44

    Gostei da ideia do seu projeto ^^ e nunca tinha tentando antes.
    O seu não esta dando certo porque ele considera as informações do "SQL" do mesmo banco de dados

    Verifica se desse maneira o código vai te ajudar mais:
    Código:
    Public Sub ExportTabela()
    Dim db As DAO.Database
    Dim fileArquivo As String

    fileArquivo = Application.CurrentProject.Path & "\ANALISE.mdb"

    Set bd = DBEngine.OpenDatabase(fileArquivo, False, False, ";pwd=123")

    DoCmd.TransferDatabase acExport, _
        "Microsoft Access", _
        fileArquivo, _
        acTable, _
        "LancamentosConsulta", _
        "LancamentosConsulta"
       
    bd.Close
    Set bd = Nothing


    End Sub
    avatar
    mfrigerio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 01/08/2012

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha Empty Re: Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    Mensagem  mfrigerio em 19/6/2020, 21:18

    Alexandre Neves
    Obrigado por sua colaboração porém tentei fazer conforme sugestão ... mas deu rim , não funfou não.
    teria uma nova sugestão se possível.

    Obrigado .
    avatar
    mfrigerio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 01/08/2012

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha Empty Re: Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    Mensagem  mfrigerio em 19/6/2020, 21:21

    Alyson
    boa tarde !!!

    Gostei da ideia do seu projeto ^^ e nunca tinha tentando antes. <<< Obrigado. a Idéia surgiu porque ele banco esta em produção e esta pesando muito, e tornando o desempenho lento. então tive a idéia de copiar o resultado para outro arquivo , assim o chão de fábrica da empresa não perde desempenho, e os apontamentos de resultados eu busco no outro arquivo...


    Obrigado por sua sugestão ....
    Embora o código rode, mas ele não não acrescenda dados algum no arquivo destino.

    duas observações ....  
    1 ) o arquivo origem e destino estão dentro da mesma pasta.
    2 )  tem de Ser insert , pois sempre vou acicionar registros novos no destino , em seguida apagar da origem.

    Obrigado se puder ajudar-me.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7671
    Registrado : 05/11/2009

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha Empty Re: Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    Mensagem  Alexandre Neves em 19/6/2020, 21:34

    Vendo as razões de implementar tal solução, porque não cria uma ligação permanente à tabela da outra bd (não pesa na bd) e trata-a como da própria bd? É mesmo fácil trabalhar como pretende


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    mfrigerio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 01/08/2012

    Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha Empty Re: Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

    Mensagem  mfrigerio em 22/6/2020, 11:18

    Obrigado Alexandre.   Hoje já é feito isso, manualmente, o que pretendo é automatizar esse trabalho, porém o arquivo Origem chega a aumentar de 25 a 27 mb por dia, e o arquivo esta ficando grande, tornando lento, em rede, onde tenho cerca de 30 computadores fazendo apontamentos simultâneas neste mesmo banco de dados de origem... então percebi que se eu deixar uma tabela para eles trabalharem no arquivo origem, e criar uma macro, onde no dia seguinte rodo ela para dar um input para tabela destino. o arquivo origem não passar de 5 megas, porém o arquivo destino está com mais de 400 megas, e aumentando de 25 a 27 megas por dia, com esse numero, já estou tendo problemas no banco...  é por isso que decidi fazer isso....  durante o dia eles trabalham com o arquivo de origem e no dia seguinte eu tiro tudo com a data de hoje -1 da tabela origem e passo para tabela destino dando um insert.
    obrigado se puder me ajudar.  Smile

      Data/hora atual: 11/8/2020, 13:03