Backup dan Restore Database Access

Object yang diperlukan :

* 1 Buah Form
* 2 Buah CommandButton
Name : Command1, Caption : Backup
Name : Command2, Caption : Restore
* 1 Buah CommonDialog, Name : CommonDialog
Keterangan : Untuk menambahkan komponen CommonDialog pada toolbox, silahkan masuk ke menu Project – Components… Pada dialog Component dan pada tab Control, pilih Microsoft Common Dialog Control 6.0 (SP3) kemudian klik tombol OK.

Tambahan :

* Buah sebuah database dengan menggunakan Ms. Access 2003 dan beri nama dtbs.
* Buah sebuah folder dengan nama _Backup dan letakkan folder tersebut ke dalam folder aplikasi anda.

Private Declare Function copyfile Lib "Kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Dim FFILE As String
Dim mPath As String

Private Sub Command1_Click()
    FFILE = "BckupDtbs " & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hhnnss") & ".dtbs"
    copyfile App.Path & "\dtbs.mdb", App.Path & "\_Backup\" & FFILE, 0
            MsgBox "Berhasil, Database telah di backup" & vbCrLf _
             & "Path : " & App.Path & "\_Backup\" & FFILE, vbInformation
End Sub

Private Sub Command2_Click()
    CommonDialog.DialogTitle = "Restore Databse"
    CommonDialog.Filter = "DtbsProgramDJo (*.dtbs)|*.dtbs"
    CommonDialog.ShowOpen
    mPath = CommonDialog.FileName
    If mPath <> "" Then
    '[Tambahkan kode dibawah ini untuk memutuskan koneksi database yang sedang terbuka]
    ' Rec.Close
    ' Set Rec = Nothing
    'Db.Close
    'Set Db = Nothing
    copyfile mPath, App.Path & "\dtbs.mdb", 0
    MsgBox "Berhasil, anda telah melakukan Restore Database", vbInformation
    End If
End Sub