Veritabanı yedekleme hk.
Tarih
28/04/2012 13:37
Konu Sahibi
drummers
Yorumlar
4
Okunma
1463
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
18/02/2017,13:59
Çözüldü 
Sponsor Reklam
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.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
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
Cevapla

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
18/02/2017,13:59
Çözüldü 
Sponsor Reklam
teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
18/02/2017,13:59
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 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

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

akd
Aktif Üye
Kullanici Avatari
Aktif Üye
272
04/11/2008
35
Gaziantep
Ofis 2003
04/09/2016,23:08
Sponsor Reklam
Şö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...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  VB.NET Veritabanı İçinden İstedigim İsimdeki Kayıtları Listeleme Mettleshade 2 266 24/12/2016, 16:58 Mettleshade
  Veritabanı yolu değişken emir ustaoğlu 7 704 09/05/2016, 12:49 emir ustaoğlu
Çözüldü Combobox ile DataGridview (Access Veritabanı) Sorgusu chevy 19 6.578 12/04/2014, 23:49 chevy
Çözüldü Veritabanı yedekleme drummers 2 1.178 30/04/2012, 22:44 drummers
Çözüldü vb.net internet veritabanı tunchacı 8 3.064 03/04/2012, 23:42 goodfalles


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya