Buscar por:

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

Código

.: Banco de Dados :> ADO

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

 // 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 padrao.

dao.DefaultPassword := .... 

dao.CompactDatabase(...)

Note que estamos criando o objeto de automaçao a partir da string 'DAO.DBEngine.35'. Verifique a versao do DAO que voce está utilizando, caso seja 3.6 utilize a string 'DAO.DBEnginge.36'.