InícioOlá, alguém pode me ajudar a desenvolver backup de um banco de dados? Estou perdido, consultei até o youtube para fazer esse procedimento!
4 participantes
[Resolvido]Backup somente das tabelas do Banco de Dados
jonatas2806- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8
Registrado : 21/06/2021
fcamara- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 144
Registrado : 07/01/2016
Bom dia
eu costumo usar esse em anexo ve se resolve seu problema:
eu costumo usar esse em anexo ve se resolve seu problema:
- Anexos
![[Resolvido]Backup somente das tabelas do Banco de Dados Attachment](https://2img.net/i/fa/attachment.png)
modulo backup.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (39 Kb) Baixado 41 vez(es)
jonatas2806- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8
Registrado : 21/06/2021
- Mensagem nº3
![[Resolvido]Backup somente das tabelas do Banco de Dados Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Backup somente das tabelas do Banco de Dados
jonatas2806 20/4/2022, 16:31
Mas tem como fazer só das tabelas?
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
- Mensagem nº4
Re: [Resolvido]Backup somente das tabelas do Banco de Dados
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- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- 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](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
jonatas2806- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8
Registrado : 21/06/2021
- Mensagem nº6
Re: [Resolvido]Backup somente das tabelas do Banco de Dados
jonatas2806 21/4/2022, 15:41
Ok irei testar!
Conteúdo patrocinado