AccessTr.neT

Tam Versiyon: RAR şeklinde yedekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
(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.
en uygunu görev zamanlıyıcı bencede daha rahat edersin.
ç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
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
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
çok teşekkürler arkadaşlar
en kısa zamanda deneyeceğim
Sayfalar: 1 2 3 4