Veritabanı Yedekleme,Sıkıştırıp Onarma ve Sistem Bilgisi Öğrenme Örnek Program

[capukoglu]

Merhaba Arkadaşlar,
Hazırlamış olduğumuz Access programlarında kullanabilmek amacıyla
Veritabanını Yedekleme,
Veritabanını Sıkıştırıp Onarma ve
Windows Sistem bilgisini öğrenmek için aşağıdaki programı örnek olarak inceleyebilirsiniz.

Yine bu siteden ve diğer sitelerden derledim. Basit ama güzel...

 

[akd]

Merhaba sayın capukoglu,
Bu yedekleme kodu bende hata verdi.
Kill KopiaDB
bu kod sarı oluyor,
Acaba bir referans mı eksik.
İyi çalışmalar...

 

[capukoglu]

Merhaba,
Ben bu kodu Access soruları bölümünde sormuştum. Bana kodu Ersen isimli arkadaşım vermişti. Ben denedim hata vermedi. KOD AŞAĞIDA. Bir komut düğmesinin TIKLAMA olayına ekleyince çalışıyor. Kolay gelsin.

On Error Resume Next
Dim CurDB As String, KopiaDB As String, LenDB As Long, Plik As String, NrPliku As Long
DoCmd.Hourglass -1
CurDB = CurrentDb.Name
Err = 0
Plik = Space(FileLen(CurDB))
NrPliku = FreeFile
Open CurDB For Binary Access Read Shared As #NrPliku
Get #NrPliku, 1, Plik
Close #NrPliku
If Err = 52 Then
MsgBox "Kopyalanamadı. " & CurDB & "Kopyalama işlemi başarısız.", 48, "Kopyalanıyor."
ElseIf Err Then
MsgBox Err.Description
Else
KopiaDB = InputBox("Veritabanı yedeklenecek, dizin aşağıdaki gibi:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Dosyanın oluşturulacağı yol:.", "Değiştirmeden onaylayınız.", Left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & "yedekALIM.mdb")
If KopiaDB & "" <> "" Then
Kill KopiaDB
Err = 0
NrPliku = FreeFile
Open KopiaDB For Binary Access Write Shared As #NrPliku
Put #NrPliku, 1, Plik
Close #NrPliku
If Err = 0 Then
MsgBox "Yedekleme Başarılı."
Else
MsgBox Err.Description
End If
End If
End If
DoCmd.Hourglass 0

 

[leopar1972]

problemsiz &#231;al&#305;&#351;&#305;yor sa&#287;olun

 

[ERTANNN41]

te&#351;ekk&#252;rler

 

[ilvanesref]

eline sa&#287;l&#305;k