Reparar e compactar um banco de dados Access com Delphi

Quem já trabalhou com o Ms Access, alguma vez já teve que compactar ou reparar um banco de dados (Extensão MDB).
O recurso de compactar é essencial , uma vez que o banco de dados começa a ficar grande demais.

O código abaixo realiza estas rotinas automaticamente pelo seu aplicativo em Delphi, sem a necessidade de entrar no Access para executar tal procedimento.

Veja abaixo um exemplo de como utilizar o DAO para compactar um MDB e logo após um outro para reparar um arquivo MDB.

// COMPACTA UM BANCO DE DADOS MDB

var
dao: OLEVariant;
begin
dao := CreateOleObject(‘DAO.DBEnginge.36’);
dao.CompactDatabase(‘c:\banco1.mdb’, ‘c:\banconew.mdb’);
end;

// RECUPERA UM BANCO DE DADOS MDB

var
dao: OLEVariant;
begin
dao := CreateOleObject(‘DAO.DBEnginge.36’);
dao.RepairDatabase(‘c:\nomedobanco.mdb’);
end;

Caso o mdb esteja protegido com senha, é necessário informa-la ao DAO :

dao.DefaultPassword := ….
dao.CompactDatabase(…)

Estamos criando o objeto de automação a partir da string ‘DAO.DBEngine.36’. Verifique a versão do DAO utilizada, caso seja 3.5 utilize a string ‘DAO.DBEnginge.35’.