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

4 participantes

    [Resolvido]Backup somente das tabelas do Banco de Dados

    avatar
    jonatas2806
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 21/06/2021

    [Resolvido]Backup somente das tabelas do Banco de Dados Empty [Resolvido]Backup somente das tabelas do Banco de Dados

    Mensagem  jonatas2806 31/3/2022, 00:55

    Olá, alguém pode me ajudar a desenvolver backup de um banco de dados? Estou perdido, consultei até o youtube para fazer esse procedimento!
    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 07/01/2016

    [Resolvido]Backup somente das tabelas do Banco de Dados Empty Backup de Banco de Dados

    Mensagem  fcamara 31/3/2022, 11:53

    Bom dia
    eu costumo usar esse em anexo ve se resolve seu problema:
    Anexos
    [Resolvido]Backup somente das tabelas do Banco de Dados Attachmentmodulo backup.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 21 vez(es)
    avatar
    jonatas2806
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 21/06/2021

    [Resolvido]Backup somente das tabelas do Banco de Dados Empty Re: [Resolvido]Backup somente das tabelas do Banco de Dados

    Mensagem  jonatas2806 20/4/2022, 16:31

    Mas tem como fazer só das tabelas?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Backup somente das tabelas do Banco de Dados Empty Re: [Resolvido]Backup somente das tabelas do Banco de Dados

    Mensagem  DamascenoJr. 20/4/2022, 21:27

    Título do tópico ajustado.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup somente das tabelas do Banco de Dados Empty Re: [Resolvido]Backup somente das tabelas do Banco de Dados

    Mensagem  JPaulo 21/4/2022, 14:28

    Código:

    Public Function CriaBackupTabelas() As Boolean
    'Criado por JPaulo
    'www.maximoaccess.com
    '02-02-2011
    Dim strCaminhoPastaBackup As String
    Dim strNomeParaBancoBackup$
    Dim strFormataDataHora$
    Dim StrCaminhoFinal$
    Dim strCaminhoFinalCompleto$
    Dim objFSO As Object
    Dim tblTabelas As DAO.TableDef
    Dim db As DAO.Database

    strCaminhoPastaBackup = "C:\temp"
    strNomeParaBancoBackup = "Backup_2022"
    strFormataDataHora = Format(Now(), "_mm-dd-yyyy hh-mm AM/PM")

    'caminho completo e novo nome para o banco de backup
    strCaminhoFinalCompleto = strCaminhoPastaBackup & "\" & strNomeParaBancoBackup & strFormataDataHora & ".accdb"

    Set db = CurrentDb

            Set objFSO = CreateObject("Scripting.FileSystemObject")
    'se já existir com a data hora acima, apaga
            If objFSO.FileExists(strCaminhoFinalCompleto) Then
                Kill strCaminhoFinalCompleto
            End If
    'se não existir, cria o novo banco de backup, com o idioma do computador, ou inglês, português, etc...
            DBEngine.CreateDatabase strCaminhoFinalCompleto, dbLangGeneral
            With db
    'percorre as tabelas e ignora as tabelas de sistema interno
                For Each tblTabelas In .TableDefs
                    Select Case True
                    Case Left(tblTabelas.Name, 1) = "~"
                    Case Left(tblTabelas.Name, 4) = "msys"
                    Case Else
    'copia as tabelas para o banco de backup
                        .Execute "SELECT * INTO [" & strCaminhoFinalCompleto & "].[" & tblTabelas.Name & "] from [" & tblTabelas.Name & "]"
                    End Select
                Next
                MsgBox "Backup efetuado com sucesso", vbInformation, "Sucesso"
            End With
       
    Set objFSO = Nothing
    End Function


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

    [Resolvido]Backup somente das tabelas do Banco de Dados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup somente das tabelas do Banco de Dados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup somente das tabelas do Banco de Dados Folder_announce_new Instruções SQL como utilizar...
    avatar
    jonatas2806
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 21/06/2021

    [Resolvido]Backup somente das tabelas do Banco de Dados Empty Re: [Resolvido]Backup somente das tabelas do Banco de Dados

    Mensagem  jonatas2806 21/4/2022, 15:41

    Ok irei testar!

      Data/hora atual: 6/10/2022, 08:37