Veritabanı yedekleme
Tarih
04/04/2012 21:39
Konu Sahibi
drummers
Yorumlar
2
Okunma
1189
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
24/03/2017,15:18
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim sor As Integer
        sor = MsgBox("Veritabanınızın Yedeği Alınsınmı??", vbYesNo)
        If sor = vbYes Then
            Dim zaman As New Date  'burada zaman değişkenimizi atadık
            Dim uzanti As String 'burada ise  uzantısını atadık "Kayıt.mdb" gibi
            zaman = DateTime.Today 'zaman isimli değişkenimize "today" ile bugünün tarihini verdik
            uzanti = (".mdb") 'uzanti isimli değişkenimizde ise Uzantımızı 
            Select Case File.Exists("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tablolar.mdb" & (zaman) & (uzanti))
                'bakınız bu bölümde aynı tarih isimli dosya var mı ona bakıyoruz.
                Case True
                    MsgBox("Bugün Zaten yedek Alınmış", MsgBoxStyle.Information, "Dikkat !")
                    'eğer aynı gün aldığımız yedek varsa yedeği tanıdı ve uyarı verdi
                Case False
                    'bu bölümde ise eğer aynı gün yedek yoksa dosyayı kopyalayacak.
                    FileCopy("tablolar.mdb", (Application.StartupPath & "\tablolar ") & Path.GetFileName(zaman) & uzanti)
                    'buradaki "zaman" ve "uzanti" değişkenlerine dikkat edin zaman dosya adını değiştirdi.
                    'uzantı ise dosya uzantımızı atadı.
                    MsgBox("Veritabanı Yedekleme İşlemi Tamamlanmıştır... Veritabanınız Projenizin İçindedir", MsgBoxStyle.Information, "drmkayıt yedekleme işlemi")
                    'işlem bitti ve dosyamız ydeklendi mesajını aldık.
                Case Else
                    MsgBox("İşlemi tekrar deneyiniz.", MsgBoxStyle.Information, Me.Text)
            End Select
            Application.ExitThread()
        End If
        If sor = vbNo Then
            Application.ExitThread()
        End If


Bu kod ile form kapanışında "tablolar.mdb" isimli veritabanımın yedeğini programımın klasörüne alıyorum.
Benim istediğim yedeğin zip veya rar olarak ziplenerek veya rarlanarak alınması.

Teşekkürler...

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

ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sponsor Reklam
Konunun cevabı aşağıdaki linkte verilmiştir.Konu 2 kez açılmıştır.

Veritabanı Yedekleme
Cevapla

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
24/03/2017,15:18
Çö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


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 371 24/12/2016, 16:58 Mettleshade
  Veritabanı yolu değişken emir ustaoğlu 7 758 09/05/2016, 12:49 emir ustaoğlu
Çözüldü Veritabanı yedekleme hk. drummers 4 1.493 29/05/2014, 16:32 akd
Çözüldü Combobox ile DataGridview (Access Veritabanı) Sorgusu chevy 19 6.713 12/04/2014, 23:49 chevy
Çözüldü vb.net internet veritabanı tunchacı 8 3.098 03/04/2012, 23:42 goodfalles


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