Mega Code Archive

 

Categories / Delphi / ADO Database

 

[] Delphi ile access database i nasıl şıkıştırıp onarabilirim

Eğer DAO 3.6, kullanıyorsanız 'DAO.DBEngine.35' yerine 'DAO.DBEngine.36' yazın. Uses kısmına da ComObj unitini eklemeyi unutmayın. Sıkıştırmak için, var dao: OLEVariant; begin dao := CreateOleObject('DAO.DBEngine.35'); dao.UserName :='Admin'; dao.DefaultPassword := '123'; dao.CompactDatabase('d:\eskidata.mdb', 'd:\yenidata.mdb'); end; Daha sonra sıkştırılmamış database i silip sıkıştırılmış database in ismi de değiştirilmelidir. Onarmak için, var dao: OLEVariant; begin dao := CreateOleObject('DAO.DBEngine.35'); dao.RepairDatabase('d:\eskidata.mdb'); end;