Compactar BE ao fechar FE
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Aermel:
Sou usuário do MontaRibbons com Access 2010 - Trabalhamos em rede com aproximadamente 12 equipamentos.
Gostaria de saber se teria uma maneira de compactar o BE ao fechar o FE, ou seja, colocar por exemplo, no formulário Login no evento Ao fechar ou Ao sair, um comando para compactar o BE.
Suporte:
Não será possível compactar o BE pelo FE, a não ser que o seu FE trabalhe com tabelas desvinculadas. Ainda assim será preciso que nenhum FE esteja utilizando o BE. Minha sugestão é a de você criar um Script e este ser posto na pasta de Arranque (Iniciar) do Windows. Assim, toda vez que o Windows do BE for carregado, um Backup e/ou a Compactação será realizada.
Abra o Bloco de Notas do Windows que armazena o seu Back-end e copie o script abaixo:
banco = "C:\SuaPasta\SeuBackEnd"
Set Access = Wscript.CreateObject ("Access.Application")
Set Shell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ori = banco & ".accdb"
bak = banco & "Compactado.accdb"
Access.DBEngine.CompactDatabase ori, bak, , , ";pwd=SenhaDoBe"
If FSO.fileexists (bak) Then
FSO.deletefile (ori)
FSO.MoveFile bak,ori
End If
- Altere as partes em vermelho do código.
- Salve com a extensão VBS. Exemplo: Backup_be.vbs.
- Abra a pasta ARRANQUE (INICIAR) do Windows e copie o Arquivo criado para esta pasta.
- Reinicie o Windows e veja se irá compactar.
Nota: Faça um backup de segurança do seu BE antes do teste.
- Para o BE sem senha, altere a linha conforme abaixo:
Access.DBEngine.CompactDatabase ori, bak
Usuário Aermel:
Obrigado! Tudo funcionando! Vou programar para rodar em horário a noite, quando todos estão desconectados.
| Não há comentário |
