ACCESS FEED: Bls: Re: [belajar-access] Contoh aplikasi backup

Jumat, 29 Mei 2015

Bls: Re: [belajar-access] Contoh aplikasi backup

Ok mksh pencerahannya

From: Tigis seegetphe@gmail.com [belajar-access] <belajar-access@yahoogroups.com>;
To: <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] Contoh aplikasi backup
Sent: Fri, May 29, 2015 9:18:53 AM

Private Sub BackupDB_Click()

Dim FSO As Object
Dim FromPath As String
Dim ToPath As String

''EDIT PATH DISINI:

FromPath = "D:\Sistem\Aplikasi\.......mdb"

ToPath = "D:\BackupDB_" & Day(Now) & Month(Now) & Year(Now) &
Hour(Now) & Minute(Now) & Second(Now) '

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If

FSO.CopyFolder Source:=FromPath, Destination:=ToPath
MsgBox "Direktori file backup database: " & ToPath, , "Backup
Database Sukses !"

End Sub

Rgds
- sgt -
Private Course
http://accessjuminten.wordpress.com

Pada tanggal 29/05/15, Suryadi isu suryadi.arimbi@yahoo.com
[belajar-access] <belajar-access@yahoogroups.com> menulis:
> Para master ada yg punya contoh aplikasi buat copy database,misalkan ada
> aplikasi databasenya terpisah,database tersebut di copy ato d duplikasi
> menggunakan command dari aplikasi,
> Bagi yang punya mohon share dong
> Saya mau pake buat duplikasi database otomatis krana database sering rusak
> klo konputer mati secara tiba2,sehingga data masih bisa d selamatkan krn ada
> copynya
> Thanks
> Suryadi
>
>
> Dikirim dari Yahoo Mail pada Android
>
>
>