Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
11/02/2010 16:18
Konu Sahibi
accessman
Yorumlar
2
Okunma
2194
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

accessman

Aktif Üye
Aktif Üye
 Belirtilmemiş
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

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Uzman
ME.... B.....
 46
3.120
29/10/2008
944
Ankara
Yazılım
Ofis 2010 32 Bit
Bugün,00:53
teşekkürler sayın accesman



Kullanici Avatari

halimalcin

Aktif Üye
Aktif Üye
HA.... AL....
 42
71
9
28/12/2009
0
İstanbul
Ofis 2003
10/11/2017,18:40
paylaşım için teşekkürler


AccessTr.neT | Hayal edebiliyorsanız yaparsınız...


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.