Buscar por:

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

Código

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