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]Copiar tabelas de outro banco access

    José
    José
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 14/03/2010

    [Resolvido]Copiar tabelas de outro banco access Empty [Resolvido]Copiar tabelas de outro banco access

    Mensagem  José 26/7/2011, 01:39

    Prezados, preciso copiar as tabelas de outro banco access (2003).

    Realizei uma busca no fórum pelo titulo do tema, porém encontrei outros assuntos como atualização de dados. O que preciso é copiar as tabelas inteiras.

    Se alguem puder ajudar, ficarei imensamente grato.



    Última edição por José em 27/7/2011, 00:25, editado 1 vez(es)
    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]Copiar tabelas de outro banco access Empty Re: [Resolvido]Copiar tabelas de outro banco access

    Mensagem  criquio 26/7/2011, 01:40

    'Olá José, seja bem vindo ao forum!

    Importar a tabela não serve?


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

    José
    José
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 14/03/2010

    [Resolvido]Copiar tabelas de outro banco access Empty Re: [Resolvido]Copiar tabelas de outro banco access

    Mensagem  José 26/7/2011, 01:43

    creio que dá no mesmo... importar ou copiar as tabelas completas via SQL ou por código VBA.

    Grato
    avatar
    Convidad
    Convidado


    [Resolvido]Copiar tabelas de outro banco access Empty Re: [Resolvido]Copiar tabelas de outro banco access

    Mensagem  Convidad 26/7/2011, 10:41

    Cole num modulo novo este Sub que importa todas as tabelas


    Sub ImportAllTbls(sExtDbPath As String)
    On Error GoTo Error_Handler
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    Set db = OpenDatabase(sExtDbPath)

    For Each tdf In db.TableDefs
    If Left(tdf.Name, 4) <> "MSys" Then
    On Error Resume Next
    Access.DoCmd.TransferDatabase acImport, "Microsoft Access", sExtDbPath, _
    acTable, tdf.Name, tdf.Name, False
    End If
    Next tdf
    db.Close

    Set db = Nothing

    Exit Sub

    Error_Handler:
    MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
    Err.Number & vbCrLf & "Error Source: ImportAllTbls" & vbCrLf & "Error Description: " & _
    Err.Description, vbCritical, "An Error has Occured!"
    Exit Sub
    End Sub



    para chamar o Sub num botão

    Call ImportAllTbls("C:\bancoexterno.mdb")

    José
    José
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 14/03/2010

    [Resolvido]Copiar tabelas de outro banco access Empty Resolvido

    Mensagem  José 26/7/2011, 22:41

    Funcionou 100%. bounce bounce bounce bounce

    Muito obrigado.

    Grande abraço.
    avatar
    Convidad
    Convidado


    [Resolvido]Copiar tabelas de outro banco access Empty Re: [Resolvido]Copiar tabelas de outro banco access

    Mensagem  Convidad 27/7/2011, 09:45

    Obrigado por responder de volta, fico feliz em funcionar.

      Data/hora atual: 25/1/2022, 17:01