Veritabanı yedekleme
Tarih
04/04/2012 21:39
Konu Sahibi
drummers
Yorumlar
2
Okunma
1150
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....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çö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.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
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....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çö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
  Veritabanı yolu değişken emir ustaoğlu 7 601 09/05/2016, 12:49 emir ustaoğlu
Çözüldü Veritabanı yedekleme hk. drummers 4 1.412 29/05/2014, 16:32 akd
Çözüldü Combobox ile DataGridview (Access Veritabanı) Sorgusu chevy 19 6.288 12/04/2014, 23:49 chevy
Çözüldü vb.net internet veritabanı tunchacı 8 3.009 03/04/2012, 23:42 goodfalles
Çözüldü Sql veritabanı hakkında drummers 2 1.062 29/01/2012, 01:48 drummers


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