Hazır Script – Hazır Kod

Online veritabani tamiri……

Internet üzerinden access’ten onarna gibi internet üzerinden onarma…..

Eğer hareketli bir web siteniz varsa bu web sitesinin veritabanı gün geç tikçe büyüyecektir. O kadar hızlı bir büyüme yaşayacaktır ki zamanla bitki hücresinin tüm hacmini kaplayan koful misali tüm alanınızı bu veritabanı kaplayacaktır.Böyle bir durumda yapılacak en iyi şey veritabanını bilgisayarınıza indirip "onar"mak.

       Access'in bir aracı ile veritabanınızı onarıyor ve boyutunu hiç bir veriyi kaybetmeden bazen %100'lere varan oranlarda azaltabiliyorsunuz. Ancak siteniz çok hareketli ise ve veritabanınızın boyu gerçekten büyükse onu bilgisayarınıza indirmek hem size hem de bu süre içinde sitenizden yararlanmak isteyen kullanıcılara bir işkence olacaktır.

<%

EskiDB = Server.MapPath("dbninyeri.mdb") 'Onarılacak db'nin adresi

YeniDB = Server.MapPath("burasionemlidegil.mdb" )'Burası önemli değil.Değiştirmeyin

BakDB = Replace(EskiDB, "mdb" ,"BAK")

Set objJRO = Server.CreateObject("JRO.JetEngine" )

Set objFSO = CreateObject("Scripting.FileSystemObject" )

If (objFSO.FileExists(EskiDB)) Then

Set SourceFile = objFSO.GetFile(EskiDB)

SourceFile.Copy BakDB

objJRO.CompactDatabase "Data Source=" & EskiDB, "Data Source=" & YeniDB

SourceFile.Delete

Set compDB = objFSO.GetFile(YeniDB)

compDB.Copy EskiDB

compDB.Delete

Else

End If

Set objJRO = Nothing

Set objFSO = Nothing

%>