veri tabanı şişmesi
Tarih
11/02/2010 16:18
Konu Sahibi
accessman
Yorumlar
2
Okunma
1737
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
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 Img-grin</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.
@benbendedeilem
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,23:12
teşekkürler sayın accesman
Cevapla


halimalcin
Aktif Üye
Kullanici Avatari
Aktif Üye
H.... A....
71
9
28/12/2009
0
İstanbul
Ofis 2003
21/11/2016,14:56
paylaşım için teşekkürler
AccessTr.neT | Hayal edebiliyorsanız yaparsınız...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya