Compactar BE ao fechar FE
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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.
2 comentário(s) Anderson Silva Luciani 02/03/2020 06:05:34 Bom dia, Avelino! Quero saber como faço para atualizar o FE de todas as máquina só atualizando o FE do servidor. Obrigado! Anderson Silva Luciani 02/03/2020 06:05:28 Bom dia, Avelino! Quero saber como faço para atualizar o FE de todas as máquina só atualizando o FE do servidor. Obrigado! |