Skip to main content

AccessTr.neT


Yedekleme

Yedekleme

Çözüldü #1
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
Cevapla
Çözüldü #2
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
kendi cevabını yine kendin buldun da, yukarıdaki kodu nereden buldun?
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
Çözüldü #5
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
altansoft 08-03-2009.
Cevapla
Çözüldü #6
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da