AccessTr.neT
Yedekleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yedekleme (/konu-yedekleme.html)

Sayfalar: 1 2


Yedekleme - gogoli01 - 03/03/2009

Merhabalar;
bir formun üzerinde buton yerleştirip, bu butona da yapmış olduğum veritabanı programını gün_ay_yıl_saat_dakika.mdb (örnek: 03_03_2009_17_30.mdb) şeklinde yedekleme yapacak kodlar arıyorum.Bakım yapıp sonra yedekleme yapmak ta olabilir.
forumlarda yedekleme ile ilgili bir kaç tane örnek prg gördüm ve inceledim. fakat bana komutlar çok karışık geldi.
bu kodları sade bir şekilde nasıl bulabilirim.Neyapsam


Cvp: Yedekleme - tdsharun - 03/03/2009

Site yöneticimiz Sayın sledgeab'ın yapmış olduğu Veritabanı Yedekleme ve Bakım Uygulamasını incelemenizi öneririm:

Veritabanı Yedekleme ve Bakım Uygulaması V3

Kolay gelsin...


Cvp: Yedekleme - gogoli01 - 04/03/2009

yine kendi cevabımı kendimbuldum.sizlerle paylaşmak istiyorum.
yedekleme ile ilgili örnekteki kodun bir bölümünü aşağıdaki gibi değiştirirsek tarih ve saati yedek programımıza ekliyoruz.(Koyu renkli olan kısım)

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))) & Format(Now, "dd-mmmm-yyyy_h_m") & "_ydk.mdb")

saati 18:15 gibi gösteremiyoruz, Access hata veriyor.bunun yerine yukarıdaki gibi yazlırsa, almış olduğumuz yedeğin hangi tarih ve zamana ait olduğunu görmüş oluyoruz.Halay


Cvp: Yedekleme - access_delisi - 05/03/2009

kendi cevabını yine kendin buldun da, yukarıdaki kodu nereden buldun?


Cvp: Yedekleme - altangüven - 14/03/2009

YUKARIDAKİ YEDEKLEMEYİ KENDİ VERİTABANIMA KOPYALADIM AŞAĞIDAKİ KODDA HATA VERİYOR SORUN NE ACABA

Private Sub Form_Timer()
On Error GoTo err_Form_Timer


Dim rrss As New ADODB.Recordse Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strOldDbName As String
Dim strNewDBName As String
Dim strOldDBPrefix As String
Dim intX As Integer
Dim iLocB As Integer
Dim iLocE As Integer
Dim fYear As String
Dim fMonth As String
Dim fDay As String
Dim bOK As Boolean

Dim Y As String
Y = "00:00"
If X <= 55 Then
Me.Label10.Visible = True
X = X + 1


Cvp: Yedekleme - tdsharun - 14/03/2009

Referanslarını kontrol et. MISSING yazan bi referans var mı yok mu kontrol et. (Tools - References)

Hata mesajında şu dosya eksik falan der. O dosyayı internetten ara. Windows/System32'nin içine at. Hatan devam edecek olursa örneğini ekleyerek gönder.

Kolay gelsin...