Programalama > ASP


Ort. 0
Puan ver:
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
%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.