COMPACTAR

JPAULO101 17/10/2009 08:24:29
#325535
Salve Salve galera blz. é o seguinte estou desenvolvendo um pequeno cadastro de serviço, onde todos os dias e lançado vários cadastro no banco, esses cadastro e controlado mensalmente todo fim de mês precisa fazer um backup do banco. O que eu gostaria de fazer era criar uma pasta Backup e quando foçe no final do mês clicasse no botão backup e o programa fazer uma cópia do banco na pasta backup com o nome mês e ano e limpasse o banco atual para lançamento do mês seguinte. Estou usando Access como base de dados.

Agradeço ajuda de todos
USUARIO.EXCLUIDOS 17/10/2009 08:41:46
#325536
Eu fiz uma rotina que executo usando o gerenciador de Tarefas dp windows 2003 server se quiser te mando.

eu uso o winrar
USUARIO.EXCLUIDOS 17/10/2009 08:46:02
#325537
Olha como faço :

[Ô]C:/Arquivos de programas/WinRAR/winrar.exe[Ô] a -r -y destino:Dados_ -agYYYYMMDD [Ô]path base de dados/*.MDB[Ô]


Espero te ajudado.
TECLA 17/10/2009 09:54:18
#325542
Sua dúvida é em fazer o BACKUP (cópia) ou em COMPACTAR O BANCO (arquivo final em formato ZIP ou RAR)?
JPAULO101 17/10/2009 10:46:59
#325555
Minha dúvida é, como faço para compactar e jogar uma cópia para pasta backup e depois limpar o banco atual.

agradeço
USUARIO.EXCLUIDOS 17/10/2009 12:44:20
#325571
COMO ASSIM LIMPAR?

APAGAR TUDO QUE TEM NO MDB?
JPAULO101 19/10/2009 09:24:43
#325657
SEM PASCAL ANTONIO, POIS ESSE LANÇAMENTE é MENSAMENTE, POR ISSO QUE EU QUERO QUE FAÇA UMA CÓPIA DO BANCO ATUAL NA PASTA BACKUP COM O NOME_MÊS_ANO. EXEMP. JPAULO_NOVEMBRO_2009 E PEGAR O BANCO ATUAL E FAZER UM LIMPEZA ZERAR TOTALMENTE PARA UM NOVO LANÇAMENTO DO MÊS SEGUINTE.
TECLA 19/10/2009 10:07:57
#325665 Resposta escolhida
O mais simples a se fazer, creio que seja o seguinte:

1. Pegue um banco, e deixe o mesmo [Ô]zerado[Ô] e alocado na pasta da aplicação com um nome diferenciado (ex. BD_Zerado.MDB)

2. Utilize a rotina abaixo para COPIAR o BD para a pasta BACKUP
[txt-color=#0B6138][ô] Copiar arquivo da pasta atual para a pasta BACKUP[/txt-color]
FileCopy App.Path & [Ô]\BD.MDB[Ô], App.Path & [Ô]\Backup\JPAULO_[Ô] & Ucase(Format(Now, [Ô]mmmm[Ô])) & [Ô]_[Ô] & Format(Now, [Ô]yyyy[Ô]) & [Ô].MDB[Ô]


3. Renomeie o banco que acabou de ser COPIADO para OLD, e o ZERADO para o nome do banco ATUAL.
[txt-color=#0B6138][ô] Renomear o banco atual para antigo[/txt-color]
Name App.Path & [Ô]\BD.MDB[Ô] As App.Path & [Ô]\BD_Old.MDB[Ô]
[txt-color=#0B6138][ô] Renomear o banco zerado para atual[/txt-color]
Name App.Path & [Ô]\BD_Zerado.MDB[Ô] As App.Path & [Ô]\BD.MDB[Ô]


é por aí!
JPAULO101 19/10/2009 10:34:18
#325666
Tecla Obrigado pela ajuda. Está dando erro na linha FileCopy App.Path & [Ô]\BD.MDB[Ô], App.Path & [Ô]\Backup\JPAULO_[Ô] & Ucase(Format(Now, [Ô]mmmm[Ô])) & [Ô]_[Ô] & Format(Now, [Ô]yyyy[Ô]) & [Ô].MDB[Ô]. Será que dá para posta um exemplo dessa rotina sua, ficarei muito agradeço.
TECLA 19/10/2009 12:49:46
#325675
Segue um projeto-exemplo.
JPAULO101 19/10/2009 14:32:10
#325684
Muito Obrigado Tecla era realmente isso que estava querendo, existem alguma maneira de ele ir compactado para pasta backup. Arquivo Zip ou Rar.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar