MDB dosyalarını compact etme

Bilgisayarınızdaki mdb (MS Access Veritabanı Dosyaları) Elektrik kesilmesi veya başka bir sebepten dolayı bozulabilir.Veya mdb dosyanızdaki kayıtları silmenizden dolayı veritabanınızın boyutu içinde veri olmadığı halde çok büyük olabilir.Ve bu makalemde sizlere bu dosyaların nasıl Compact (Sıkıştırmak) edileceğini işliyeceğim. BU dosyaları eğer bilgisayarınızda Access yüklü ise;
Araçlar > Veritabanı Hizmet Programları > Veritabanı Düzenle ve onar Menülerini kullanarak yapabilirsiniz. Fakat yaptığınız bir ticari sitede bunu ullanıcıdan istiyemeyiz çünkü böyle bir işlem zaman/nakit/veri kayıplarına sebep olacaktır. işte bu yüzden Bu mdb dosyalarını asp kodları ile server üzerinde compact edeceğiz.Bunu Yaparken JRO.JetEngine objesini kullanacağız bu kodların çalıştırabilmeniz için MDAC 2.1 veya daha üst bir sürümü kurulu olması gerekmektedir.



<%
dosya = Server.MapPath("db.mdb") 'Compact Edilecek Dosya adı
yeniisim = Server.MapPath("bak.mdb") 'Compact edilen dosyanın ismi

BagMetni1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dosya
BagMetni2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & yeniisim

Set Baglanti = Server.CreateObject("JRO.JetEngine")
Baglanti.CompactDatabase BagMetni1, BagMetni2
Set Baglanti = Nothing
%>



Yukarıda Gördüğünüz Kodlar sadece örnek teşkil etmesi amacıyla hazırlanmıştır.