<% veritabaniadi = request.form("veritabaniadi") Set rs = Server.CreateObject("ADODB.Connection") rs = Server.MapPath(""&veritabaniadi&"") cilem = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & rs %> <% if veritabaniadi = "" then%> <%else%>
Veritabanı Yedekleme Küçültme Ve Onarma
Burada veritabanının hızlanması için küçültülüp onarılması sağlanır.
Bu özellik zarar verilen veya bozulan veritabanını onarır.
 
    <% 'Fso Nesneleri Oluşturuluyor. Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Yedekleme için Fso Nesneleri Oluşturuluyor. objFSO.CopyFile rs, Replace(rs, ".mdb", "-yedek.mdb", 1, -1, 1) Response.Write("
  1. Veritabanın Yedeği Alınıyor :-
    " & Replace(rs, ".mdb", "-yedek.mdb", 1, -1, 1) & "
    2. ") 'JET engine object Set objJetEngine = Server.CreateObject("JRO.JetEngine") 'Get the destination and name of the compacted database strCompactDB = Replace(rs, ".mdb", "-atik.mdb", 1, -1, 1) 'Veritabanını Sıkıştır objJetEngine.CompactDatabase cilem, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strCompactDB 'Ekranda Yeni Sıkıştırılmış Veritabanı Oluşturuluyor Bilgisi Gösterilir Response.Write("
  2. Yedeği Oluşturuluyor:-
    " & strCompactDB & "
    3. ") 'Yeniden Jet object Set objJetEngine = Nothing 'Eski Veritabanını Sil objFSO.DeleteFile rs 'Ekranda Eski Veritabanının Silindiği Bilgisi Gösterilir. Response.Write("
  3. Eski Veritabanı siliniyor:-
    " & rs & "
    4. ") 'Eski Veritabanı Adı Yeniden Adlandırılıyor objFSO.MoveFile strCompactDB, rs 'Ekranda Görülen Eski Veritabanı Adı Silindi Response.Write("
  4. Veritabanı Isim Değiştirme ; Değişecek Veritabanı:-
    " & strCompactDB & "
    Yeniden Adlandırılan Veritabanı:-
    " & rs & "
    5. ") 'Yeniden FSO object Set objFSO = Nothing Response.Write("Veritabanı Başarıyla Yedeklendi ve Küçültüldü") %>

      Not: Eğer "küçültme ve onarma" başarısızlıkla sonuçlanırsa yedek olarak '-yedek.mdb' oluşturulacak.
<%end if%>