+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: veri tabanı şişmesi (/konu-veri-tabani-sismesi.html)
veri tabanı şişmesi - accessman - 11/02/2010
alıntı
bu nemenem bir şeydir
Merhaba. mdb veritabanının şişmesi genel sorun olarak görülür ve zaman zaman veritabanının optimize edilmesi gerekebilir.
Bu optimize işlemini, veritabanını indirmek, optimize etmek, sunucuya yollamak şeklinde yaparız ve bu can sıkıcıdır.
-------------------------------
veritabanınızın mutlaka yedeğini alın!
-------------------------------
Aşağıda vereceğim kodları optimize.asp olarak kaydedin. Kodun en altındaki bölümde önce db yolunu ve adını, sonra da yedek olacak dosyanın adını belirtin. Yedek bak uzantılı dosyanın adını düzeltirseniz eski mdb dosyanıza ulaşabilirsiniz. --> veritabani_yedek.bak --- veritabani_yedek.mdb şeklinde...
<%=dbbackup("veritabani/mydesign_haber.mdb","veritabani_yedek.bak")%>
Kodlar;
-------------------------------
<%
on error resume next
function dbbackup(dbyeri,dbyedek)
ad=dbyeri
dbdizin=instr(strreverse(ad),"/")
dbdizin2=instr(dbdizin+1,strreverse(ad),"/")
dbdiz=strreverse(mid(strreverse(ad),dbdizin+1,len( ad)-dbdizin))
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objJRO = Server.CreateObject("JRO.JetEngine" )
If objFSO.FileExists(Server.Mappath(dbyeri))=true then
EskiDB = Server.Mappath(dbyeri)
YeniDB = Server.Mappath(dbdiz&"/"&dbyedek)
Set SourceFile = objFSO.GetFile(EskiDB)
SourceFile.Copy YeniDB
If objFSO.FileExists(Server.Mappath(dbdiz&"/"&dbyedek))=true then
objFSO.DeleteFile (Server.Mappath(dbdiz&"/"&dbyedek))
end if
objJRO.CompactDatabase "Data Source=" & EskiDB, "Data Source=" & YeniDB
SourceFile.Delete
Set compDB = objFSO.GetFile(YeniDB)
compDB.Copy EskiDB
end if
If objFSO.FileExists(Server.Mappath(dbyeri))=false then
dbbackup="Hata ! db bulunamadı!"
elseif err>0 then
dbbackup="Bir hata meydana geldi!"
else
dbbackup="İşlem tamam...<br><b>Veritabanınız optimize edilip, sıkıştırıldı ve bak uzantılı bir yedeği oluşturuldu
</b>" end if
Set objJRO = Nothing
Set objFSO = Nothing
end function
%>
<%=dbbackup("veritabani/mydesign_haber.mdb","veritabani_yedek.bak")%>
-------------------------------
'Kod Bitti
-------------------------------
mdb dosyasının önceki ve sonraki boyutuna bakarak farkı görebilirsiniz.
Cvp: veri tabanı şişmesi - C*e*l*o*y*c*e - 11/02/2010
teşekkürler sayın accesman
Cvp: veri tabanı şişmesi - halimalcin - 13/02/2010
paylaşım için teşekkürler