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

5 participantes

    importar tabelas substituindo as antigas

    avatar
    erilioaraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 18/01/2012

    importar tabelas substituindo as antigas Empty importar tabelas substituindo as antigas

    Mensagem  erilioaraujo 27/3/2015, 11:39

    Olá Bom dia!

    Tenho um bd com sistema de backup que utiliza uma macro para exportar tabelas para um bd externo e outra para restaurar essas mesmas tabelas para meu bd.

    acontece que quando vou importar as tabelas do bd externo, o sistema nomeia com um numero na frente da tabela importada e preserva a antiga

    como faço para apagar a antiga e importar a tabela com seu nome original automaticamente.

    abraços
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Roberto_1977 27/3/2015, 11:49

    Bom dia,

    Para voce conseguir fazer o que deseja, 1º tem que eliminar as tabelas do sua Bd e só depois importar novas tabelas.

    utilize seguinte codigo para eliminar tabelas.

    DoCmd.DeleteObject acTable, "NomeTabelaQueQuerEliminar"

    Repita esse código para as tabelas que deseja, só depois é que pode executar sua macro.

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4557
    Registrado : 06/11/2009

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Assis 28/3/2015, 20:47

    Roberto
    Olhe aqui

    http://dl.dropbox.com/u/771097/DeletaTabelas.txt


    .................................................................................
    *** Só sei que nada sei ***
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Roberto_1977 30/3/2015, 17:35

    Boa tarde Assis,

    Não consigo ver o anexo que você postou, por segurança que está no servidor aqui da empresa.
    Se quizere pode enviar para meu email.

    erilioaraujo

    Consegui Resolver seu problema??

    Abraço...  Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4557
    Registrado : 06/11/2009

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Assis 30/3/2015, 17:55

    Roberto

    Eu não postei nada, é um link aqui do forum que tem uma maneira de apagar todas as tabelas de uma vez só.

    Aqui está ele do Gr Mestre JPaulo

    Public Function DeletaTabelas()
    'By JPaulo ® Maximo Access
    Dim dbs As DAO.Database
    Dim i As Integer
    Set dbs = CurrentDb
    For i = dbs.Relations.Count - 1 To 0 Step -1
    dbs.Relations.Delete dbs.Relations(i).Name
    Next i
    For i = dbs.TableDefs.Count - 1 To 0 Step -1
    'não deleta as tabelas de sistema
    'nem as tabelas que eu não quero deletar, a tblExemplo1 e a tblExemplo2
    If Left(dbs.TableDefs(i).Name, 4) <> "MSys" _
    And dbs.TableDefs(i).Name <> "tblExemplo1" _
    And dbs.TableDefs(i).Name <> "tblExemplo2" Then
    dbs.TableDefs.Delete dbs.TableDefs(i).Name
    End If
    Next i
    Set dbs = Nothing
    End Function


    .................................................................................
    *** Só sei que nada sei ***
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Roberto_1977 30/3/2015, 17:58

    Obrigado Gr. Assis,

    Fiquei a aprender mais um pouco..

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Roberto_1977 1/4/2015, 14:41

    Boa tarde,

    Caso seu problema esteja resolvido, não se esqueça de fechar tópico.
    O Forum agradece...

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    erilioaraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 18/01/2012

    importar tabelas substituindo as antigas Empty importar tabelas substituindo as antigas

    Mensagem  erilioaraujo 7/4/2015, 22:17

    Ainda não deu certo

    da erro em tempo de execução 3033

    mensagem" voce nao ter permissão pra usar o objeto msysnavpaneguruoptoobjects"

    ai frise esta linha na função "dbs.Relations.Delete dbs.Relations(i).Name"

    Agradeço pela ajuda...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10671
    Registrado : 04/11/2009

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  JPaulo 14/4/2015, 13:00

    Experimente marcar a Referencia VBA "Microsoft DAO x.x Object Library"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    importar tabelas substituindo as antigas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    importar tabelas substituindo as antigas Folder_announce_new 102 Códigos VBA Gratuitos...
    importar tabelas substituindo as antigas Folder_announce_new Instruções SQL como utilizar...
    avatar
    erilioaraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 18/01/2012

    importar tabelas substituindo as antigas Empty importar tabelas substituindo as antigas

    Mensagem  erilioaraujo 14/4/2015, 13:46

    quando tento executar o codigo, retorna o seguinte

    "Nome em conflito com modulo ou biblioteca de objetos existente

    avatar
    erilioaraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 18/01/2012

    importar tabelas substituindo as antigas Empty comando drop table

    Mensagem  erilioaraujo 14/4/2015, 14:07

    Bom dia!

    Com o comando DROP TABLE (nome da tabela) em uma consulta SQL, consigo exclui-las sem dificuldade, porém tenho tabelas com dua palavras separadas EX. Novos clientes.
    Quando tento executar esta instrução sql para delata-la, retorna que o tabela "Novos" não existe, ou seja, faz referencia apenas ao primeiro nome da tabela e por nao encontrar não deleta.

    Como resolver este problema...
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3744
    Registrado : 04/04/2010

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Avelino Sampaio 14/4/2015, 14:14

    Olá

    use os colchetes

    DROP TABLE [Nome da tabela]

    Aproveita e dê uma passadinha nestas minhas dicas:

    http://www.usandoaccess.com.br/dicas/dicas-praticas-de-access-parte-7.asp?id=1&idlista=228#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    erilioaraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 18/01/2012

    importar tabelas substituindo as antigas Empty importar tabelas substituindo as antigas

    Mensagem  erilioaraujo 14/4/2015, 14:44

    Resolvido !

    So mais uma duvida, como faço para realizar este procedimento para deletar varias tabelas ao mesmo tempo na mesma instrução sql?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3744
    Registrado : 04/04/2010

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  Avelino Sampaio 14/4/2015, 14:53

    Veja a minha dica 59:

    http://www.usandoaccess.com.br/dicas/dicas-praticas-de-access-parte-6.asp?id=1&idlista=208#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    erilioaraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 18/01/2012

    importar tabelas substituindo as antigas Empty Re: importar tabelas substituindo as antigas

    Mensagem  erilioaraujo 20/4/2015, 13:44

    Ola Bom dia

    Criei um macro que executa várias consultas ao mesmo tempo, todas elas com o commando DROPTABLE.

    NA macro, primeiro exclui as tabelas do bd atual, pois DROP TABLE exclui as tabelas incondicionalmente, uma a uma.
    Depois na mesma macro, varios comandos de importação de dados para puxar as tabelas do bd externo

    Resolvido

    Obrigado

      Data/hora atual: 27/1/2022, 00:04