Soru Mdb dosya büyüklüğü

[k0081]

Merhaba arkadaşlar;

Veritabanı dosyası olarak mdb biçimini kullanmaktayım. Resim verisi içeren ( "Uzun ikili veri" ) kayıtlar oluşturuyorum.

Her yeni kayıtta dosya boyutu artıyor .

Kayıt sildiğimde ise dosya boyutu düşmüyor... hatta veritabanı içinden ilgili Tabloyu sildiğim halde yinede boyutu düşmüyor.

Kayıt sildiğimde ; veritabanını boyutunu düşürmenin bir yolu varmıdır ?

Yardımcı arkadaşa şimdiden Teşekkürler.

 

[veyselemre]

Veritabanını sıkıştır ve onarı deneyin.

 

[Haluk]

MDB dosyasını "compact" yapmak işinize yarayabilir....

Not: Veysel Beyin cevabını sonradan gördüm, aynı şeyden bahsediyormuşuz...

Sub Test()
    'Haluk - 01/01/2019
    '
    Dim DB As Object
    Dim daoDBEngine As Object
    Dim MyDb As String, NewDb As String
    Dim Len1 As Long, Len2 As Long
   
    On Error Resume Next
        Set daoDBEngine = CreateObject("DAO.DBEngine")
        Set daoDBEngine = CreateObject("DAO.DBEngine.36")
        Set daoDBEngine = CreateObject("DAO.DBEngine.120")
    On Error GoTo 0
   
    MyDb = "C:\TestFolder\MyDb.mdb"
    NewDb = "C:\TestFolder\NewDb.mdb"
   
    Len1 = FileLen(MyDb)
   
    If Dir(MyDb) = Empty Then
        MsgBox MyDb & " bulunamadi, kodlar sonlandirilacak ...."
        Exit Sub
    End If
   
    If Not Dir(NewDb) = Empty Then Kill NewDb
   
    daoDBEngine.CompactDatabase MyDb, NewDb
   
    Len2 = FileLen(NewDb)
   
    MsgBox "Orjinal dosya boyutu : " & Format(Len1, "#,##0.00") & " byte" & vbCrLf & vbCrLf _
           & "Yeni dosya boyutu  : " & Format(Len2, "#,##0.00") & " byte" & vbCrLf & vbCrLf _
           & "Fark : " & Format((Len2 - Len1), "#,##0.00") & " byte"
    Kill MyDb
    Name NewDb As MyDb
    Set daoDBEngine = Nothing
End Sub

.

 

[k0081]

Veyselemre ;

Haluk;


Hocam çok teşekkür ediyorum. Tamamdır... Elinize sağlık.