AccessTr.neT

Tam Versiyon: Veritabanı yedekleme hk.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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...