AccessTr.neT

Bu soruyu daha önce sormuştum fakat çözüm üretemedim

Form'un kapanışına nasıl bir kod yamalıyım ki form kapanırken "tablolar.mdb" isimli veritabanım C:\Yedeklerim klasörünün içine ZİP lenerek veya RAR lanarak yedeklensin.

VB2010 kullanmaktayım
Soru kısa olduğu için örnek dosya eklemeye gerek duymadım. İllaki gerek diyorsanız ekliyebilirim.

İlginize Teşekkürler.

Sn:drummers
Eğer site içerisinde arama yapmış olsaydınız 2 yıl önce bu örnek verilmişti yolu kendinize göre düzenleyiniz ve winrar yardım dosyasını inceleyiniz.

Proje İçerisinden Winrar ile Veri Tabanı Sıkıştırma ve Açma

teşekkürler

 Dim sor As Integer

        sor = MsgBox("Veritabanınızın Sıkıştırılarak Yedeği Alınsınmı??", vbYesNo)

        If sor = vbYes Then

            MsgBox("Yedeğiniz __C:\Veritabanı_Yedek_Klasörü__İçerisindedir")

            Application.ExitThread()



            Dim zippath As String = IO.Path.Combine("C:\Veritabanı_Yedek_Klasörü.zip")

            Dim zip As ZipPackage = ZipPackage.Open(zippath, IO.FileMode.Create, IO.FileAccess.ReadWrite)

            Dim part As PackagePart = zip.CreatePart(New Uri("/tablolar.mdb", UriKind.Relative), _

                                                     Net.Mime.MediaTypeNames.Application.Zip, CompressionOption.Normal)

            Dim bytes() As Byte = My.Computer.FileSystem.ReadAllBytes(Application.StartupPath & "\tablolar.mdb")

            part.GetStream.Write(bytes, 0, bytes.Length)

            zip.Close()

        End If

        If sor = vbNo Then

            MsgBox("Yedeğiniz Alınmamıştır Bu Sizin Yararınıza Olmayabilir !!!")

            Application.ExitThread()

        End If

ICSharpCode.SharpZipLib.dll kullanarak sorunu böyle çözdüm

Şöyle bir yedekleme yapılabilinirmi?
Datası ayrı olmayan tek parça Access programın
yalnızca tablolarını her program kapanışında yedeklenmesi,
proğrama birşey olursa, tablolar hep yedekte kalması bakımından...