[Resolvido]Backup Back End Automatico

caro queridos amigos?


boa noite!!!

Queria a juda de todos pra saber como desenvolver um backup automatico do backend...

tem um codigo feito pelo JPaulo:

Código:

Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "\\P:\2. CREDENCIAMENTO\EQUIPE\ARQUIVOS\BANCO DE DADOS\BACKUP" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\\P:\2. CREDENCIAMENTO\EQUIPE\ARQUIVOS\BANCO DE DADOS\BACKUP\Testebackup.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function


sabemos que o backup do backend deve ser feito sem nenhum usuario esta utilizando o backend... queria sabe se consigo fazer por time automatico???


tipo fazer backup somente as 21 horas da noite...

Conseguimos fazer esse tipo de backup???

abraços.

Ola;

Hoje em dia podemos fazer backup de qualquer ficheiro ou pasta, sem necessidade de se preocupar com os usuários logados ou não.

Eu uso com muita frequência, aqui no trabalho.

1º Num ficheiro de texto (notepad), cole este trecho.
2º Salve-o e renomei de .txt para .bat
3º Adicione esse .bat (batch file) ao gerenciador de tarefas do seu windows para correr ás 21:00 e voilá.

Código:

@ECHO OFF
for /f "delims=" %%a in ('wmic OS Get localdatetime  ^| find "."') do set dt=%%a
set YYYY=%dt:~0,4%
set MM=%dt:~4,2%
set DD=%dt:~6,2%
set HH=%dt:~8,2%
set Min=%dt:~10,2%
set Sec=%dt:~12,2%
REM cria a variavel stamp
set stamp=%DD%%MM%%YYYY%@%HH%%Min%
REM efetua a copia
xcopy "\\P:\2. CREDENCIAMENTO\EQUIPE\ARQUIVOS\BANCO DE DADOS\teste.accdb" "\\P:\2. CREDENCIAMENTO\EQUIPE\ARQUIVOS\BANCO DE DADOS\BACKUP\"
REM altera o atributo se o ficheiro estiver oculto
attrib -h "\\P:\2. CREDENCIAMENTO\EQUIPE\ARQUIVOS\BANCO DE DADOS\BACKUP\teste.accdb"
REM renomeia o ficheiro copiado para backup com data e hora
REN "\\P:\2. CREDENCIAMENTO\EQUIPE\ARQUIVOS\BANCO DE DADOS\BACKUP\teste.accdb" "Backup(%stamp%).accdb"
ECHO ON

O batch file aqui pronto.
Para editá-lo terá de abrir com o bloco de notas (notepad), eu uso o notepad++ que é free e bem melhor.

Download

@JP


essa parte do do codigo nao esta fazendo copia somente esta renomeando...

Código:

REM efetua a copia
xcopy "C:\BACKUPTESTE\BASE TESTE BACKEND.accdb" "C:\BACKUPTESTE\BASE TESTE BACKEND.accdb" /s /e /i /h

segue codigo ja editado

Código:

@ECHO OFF
for /f "delims=" %%a in ('wmic OS Get localdatetime  ^| find "."') do set dt=%%a
set YYYY=%dt:~0,4%
set MM=%dt:~4,2%
set DD=%dt:~6,2%
set HH=%dt:~8,2%
set Min=%dt:~10,2%
set Sec=%dt:~12,2%

REM cria a variavel stamp
set stamp=%DD%%MM%%YYYY%@%HH%%Min%

REM efetua a copia
xcopy "C:\BACKUPTESTE\BASE TESTE BACKEND.accdb" "C:\BACKUPTESTE\BASE TESTE BACKEND.accdb" /s /e /i /h

REM altera o atributo se o ficheiro estiver oculto
attrib -h "C:\BACKUPTESTE\BASE TESTE BACKEND.accdb"

REM renomeia o ficheiro copiado para backup com data e hora
REN "C:\BACKUPTESTE\BASE TESTE BACKEND.accdb" "BackupBackEnd(%stamp%).accdb"
ECHO ON

como faço para efetuar a copia do arquivo?

abraços

Assim amigão;
Você está a fazer o backup para a mesma pasta e não pode ser, tem de ter outra pasta lá dentro de nome BACKUP, para guardar os seus backups.

Código:

@ECHO OFF
for /f "delims=" %%a in ('wmic OS Get localdatetime  ^| find "."') do set dt=%%a
set YYYY=%dt:~0,4%
set MM=%dt:~4,2%
set DD=%dt:~6,2%
set HH=%dt:~8,2%
set Min=%dt:~10,2%
set Sec=%dt:~12,2%

REM cria a variavel stamp
set stamp=%DD%%MM%%YYYY%@%HH%%Min%%Sec%

REM efetua a copia
xcopy "C:\BACKUPTESTE\BASE TESTE BACKEND.accdb" "C:\BACKUPTESTE\BACKUP\"

REM altera o atributo se o ficheiro estiver oculto
attrib -h "C:\BACKUPTESTE\BACKUP\BASE TESTE BACKEND.accdb"

REM renomeia o ficheiro copiado para backup com data e hora
REN "C:\BACKUPTESTE\BACKUP\BASE TESTE BACKEND.accdb" "BackupBackEnd(%stamp%).accdb"
@ECHO ON

@jp muito obrigado resolvido.

@avelino... Obrigado tambem pela disposição.


abraços a todos

Fico feliz.

Obrigado pelo retorno o forum agradece.