Compactar e reparar por vbscript

Tem problema o BD ficar muito grande? o back-end esta separado.
meu sistema esta com 63mb

Um bd em Access suporta até 2 giga mas quando estiver perto disso, se um dia chegar perto, sempre pode se separar as coisas. Mas no caso do sistema de ajuda em video por exemplo, os videos não entram na soma de tamanho, pois eles são arquivos externos que entram em funcionamento na hora que são chamados. A mesma coisa podendo acontecer com um sistema de ajuda que você quiser implantar em Access mesmo, o qual você pode colocar em outro bd e linkar ao principal.

Bom, postei isso só para alcançar 100 posts, (rs.), abraços!!!

(kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk)
Eu ainda falta alguns posts para chegar no 100, (rsrsrsrs.)

Voltando ao que interessa, sugiro;

Em todos os bancos que fizerem, coloquem sempre a Compactar ao Fechar, o Banco reduz o inchaço significativamente.

Esse modo pode ser efetuado, colocando um visto na caixinha do Compactar ao fechar, em Ferramentas/Opções

Ou por VB Script (uma novidade para alguns)...


Numa folha de texto vazia (notepad), cole:

Dim objScript
Dim objAccess
Dim strPathToMDB
Dim strMsg

'caminho e banco a compactar
strPathToMDB = "C:\teste.mdb"
'Caminho e banco virtual para permitir a compressão
strTempDB = "C:\testeCompress.mdb"
Set objAccess = CreateObject("Access.Application.11")
objAccess.DbEngine.CompactDatabase strPathToMDB ,strTempDB
If Err.Number > 0 Then
strMsg = "O seguinte erro foi encontrado durante a compactação do banco de dados:"
strMsg = strMsg & vbCrLf & vbCrLf & Err.Description
Else
Set objScript= CreateObject("Scripting.FileSystemObject")
objScript.CopyFile strPathToMDB , strPathToMDB & "z", True
objScript.CopyFile strTempDB, strPathToMDB, True
objScript.DeleteFile strTempDB
End If
Set objAccess = Nothing
Set objScript = Nothing
WScript.Echo "Banco compactado com sucesso..."


Renomei a folha de .txt para .vbs

Opa, então Grande JPaulo, meu bd ja esta com a opção compactar no menu, e esta com 60mb +-, o be esta sepadado, há problemas com o tamanho do Front end do bd? É que uso algumas figuras para dar uma enfeitada, (rs.)

Na boa até 2 gigas não tem problema algum.

As figuras carregam bastante os BD`s, mas para dar uma enfeitada não há como, apenas usar .jpeg que são mais leves.

Ok, valeu

Bem lembrado JPaulo. Uma boa manutenção resolve muita coisa e evita dores de cabeça, (rsrsrsrs.)

Boas,

Precisava da vossa ajuda,
Preciso de compactar a BD com VB Script,
A minha base de dados está dividida em tabelas e forms
Nas tabelas consigo compactar com o código
agora na BD aonde tenho as forms dá-me um erro de não ter autorização necessária

é possivel contornar o erro?

Obrigado

Qual é a versão ? 2007 ou 2010, use a opção Compactar ao sair.

Sucesso!

Ok muito obrigado pela disponibilidade

está resolvido fica ao fechar, ele compacta

Obrigadão