Como compactar e reparar um banco de dados utilizando delphi e dao

Como compactar e reparar um banco de dados utilizando Delphi e DAO


Seria muito interessante poder realizar estas rotinas automaticamente pelo seu próprio aplicativo. Veja um exemplo de como utilizar o DAO para compactar e reparar um arquivo MDB.

{******************************************}
// COMPACTANDO O BANCO DE DADOS
{******************************************}
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.35');
dao.CompactDatabase('c:db1.mdb', 'c:dbnew.mdb');
end;

{******************************************}
// REPARANDO O BANCO DE DADOS
{******************************************}
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.35');
dao.RepairDatabase('d:yourDatabaseName.mdb');
end;

Caso o seu banco de dados esteja protegido com senha, é preciso informar ao DAO a senha padrão.

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



By
Nativo_Gyn
ufgnet@pop.com.br