Skip to main content

AccessTr.neT


RAR şeklinde yedekleme

RAR şeklinde yedekleme

Çözüldü #13
(18/02/2011, 17:56)Yandemir yazdı: sana tavsiyem gizli bir Access programı yap onu çalıştır. devamlı açık kalsın içerisindeki timer ile saat kontrolu yap saati geldiğinde bu iki dosyayı yedeklesin sorgu sual olmadan. rar parametresine de database olayını ekle açık dahi olsa alır yedeğini. bat dosyası kullanmana gerek kalmaz. shell komutunu accessten çalıştırırsın.

Bu durumda da Access hataya düşebilir. Çünkü görev yöneticisinde sürekli açık olarak çalışacak. Bazen aynı anda bir başka Access dosyası çalıştırmak istediğinde bir tane çalıştığı ve gizlenmiş olduğu için yine gizli olan bir access.exe çalışır. Belki runtime parametresi ile çalıştırılırsa sorun olmaz sanıyorum. Ama emin değilim.

Benim daha iyi bir önerim var. Yaptığın bat dosyasının çalışmasını görev zamanlıyıcıya yaptır. Görev zamanlıyıcıda meşgul olduğu zaman pas geçme özelliği de olması lazım. Onu kullan. Böylece görev zamanlayıcı sağ altta çalışır ve zamanı geldiğinde bat dosyasına start eder.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #14
en uygunu görev zamanlıyıcı bencede daha rahat edersin.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #15
çok teşekkürler
ama benim bu dediklerinizi yapabilecek kadar bilgiye sahip değilim
eklediğim örnekte bunu yaparsanız çok memnun kalacağım
her iki dosyayı bir rar dosyası içnde ismde tarih bilgiside olacak şekilde yedeklerse çok güzel olur
teşekkürler
@benbendedeilem
Cevapla
Çözüldü #16
Sn:accessman
Aşağıdaki konuda vb6 ile yapılmış hali var ve kullanımı ile ilgili açıklamalar mevcut.

Winrar ile veri tabanı sıkıştırma ve açma
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #17
Shell komutu ve WinRAR kullanımı

Private Sub Form_Timer()
Me.Zaman = Time
Me.Tarih = Date
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Yedekler")
rs.MoveFirst
DoEvents
Do Until rs.EOF
If rs.Fields("YedekSaati") = Me.Zaman Then
X = Shell("C:\Program Files\WinRAR\winrar.exe" & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " & rs.Fields("SaklanacakYer") & "\" & rs.Fields("YedekAdi") & Format(Date, "ddd") & " " & rs.Fields("YedekYeri") & "\*.*")
End If
rs.MoveNext
Loop
rs.Close
End Sub
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #18
çok teşekkürler arkadaşlar
en kısa zamanda deneyeceğim
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da