Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
04/04/2012 21:39
Konu Sahibi
drummers
Yorumlar
2
Okunma
1329
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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ü 
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
Çözüldü VB.NET Veritabanı İçinden İstedigim İsimdeki Kayıtları Listeleme Mettleshade 2 589 24/12/2016, 16:58 Mettleshade
Çözüldü Veritabanı yolu değişken emir ustaoğlu 7 995 09/05/2016, 12:49 emir ustaoğlu
Çözüldü Veritabanı yedekleme hk. drummers 4 1.696 29/05/2014, 16:32 akd
Çözüldü Combobox ile DataGridview (Access Veritabanı) Sorgusu chevy 19 7.478 12/04/2014, 23:49 chevy
Çözüldü vb.net internet veritabanı tunchacı 8 3.362 03/04/2012, 23:42 goodfalles

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.