Backup Database Ms Access Menggunakan VB

Backup Database Ms Access Menggunakan VB. Untuk menghindari kehilangan data karena sesuau hal yang tidak diinginkan misalnya windows rusak,database rusak dan lain sebagainnya lakukanlah secara rutin melakukan backup data. Jika kita kehilangan data setidaknya kita masih memiliki cadangan data yang nantinya bisa kita restore, sehingga tidak terlalu pusing karena karena masih punya cadangan data. Lakukanlah back up data minimal seminggu sekali jika mau silahkan setiap hari melakukan back up.

Pada postingan sebelumnya cara membuat tool tip yang bisa berjalan untuk postingan ini akan membahas tentang cara membuat Backup Database Ms Access Menggunakan VB. Kita akan menggunakan fungsi Copy File untuk melakukan backup database ms access. Bagaimanakah caranya...? Ikutilah langkah-langkahnya sebagai berikut ini

Buka visual basic 6 kemudian desainlah sebuah form seperti gambar berikut ini :

Tampilkan Gambar

Jika sudah selesai mendesainnya selanjutnya tinggal nulis kodenya. Di sini saya memakai database dengan nama "DB_MHS.mdb". Tulislah koding berikut ini dengan benar :

Option Explicit
'----Fungsi API untuk browse folder
Private Declare Function SHBrowseForFolder Lib _
    "shell32.dll" (bBrowse As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib _
    "shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long
'------------------------
Private Type BrowseInfo
    hWndOwner As Long
    pidlRoot As Long
    sDisplayName As String
    sTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    lImage As Long
End Type

Private Function BrowseFolder() As String
    Dim Info As BrowseInfo
    Dim lngItem As Long
    Dim strDir As String
    'mengembalikan nama folder
    Info.ulFlags = 1
    lngItem = SHBrowseForFolder(Info)
    If lngItem Then
        strDir = Space$(260)
        If SHGetPathFromIDList(lngItem, strDir) Then
            'mendapatkan nama folder
            BrowseFolder = Left$(strDir, InStr(strDir, ChrW$(0)) - 1)
        Else
            BrowseFolder = vbNullString
        End If
    End If
End Function

'----Kode Tombol Pilih Folder
Private Sub CmdPilih_Click()
    Label1.Caption = BrowseFolder
End Sub

'---Tombol Keluar
Private Sub CmdKeluar_Click()
    Unload Me
End Sub

'---koding Tombol Backup---
Private Sub CmdBackup_Click()
    If Label1.Caption = "" Then
        MsgBox "Klik Tombol 'Pilih Folder' Dulu...!," & vbCrLf & "" _
             & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
        Exit Sub
    End If
    '------------------------
    On Error Resume Next
    Dim asal As String
    Dim Tuju As String
    Dim i As Integer
    Dim j As Integer
    Label2.Width = 0
    '-----------------------
    asal = App.Path + "\DB_MHS.mdb"
    Tuju = Label1.Caption
    'mengubah nama file databasenya menjadi format tgl sesuai dg tgl backup ex:DB_MHS_01-10-2014.mdb
    Tuju = Tuju + "\DB_MHS" & "_" & Format$(Date, "DD-MM-YYYY") & ".mdb"
    CmdPilih.Enabled = False
    CmdBackup.Enabled = False
    CmdKeluar.Enabled = False
    Label2.Visible = True
    For i = 0 To 4800
        Label2.Width = i
        For j = 1 To 50: DoEvents: Next j
    Next i
    '-Proses Copy File Database--------------
    FileCopy asal, Tuju
    DoEvents
    MsgBox "Backup database Sukses...", vbInformation, "Back Up Data"
    '------------------------
    CmdPilih.Enabled = False
    CmdBackup.Enabled = False
    CmdKeluar.Enabled = True
    Label2.Visible = False
End Sub

Jika sudah selesai silahkan di simpan kemudian di run semoga berhasil. Jika berhasil tampilannya seperti gambar berikut ini

Tampilkan Gambar
Selesai. Jika anda tidak ingin ribet nulis kode dan mendesain form nya silahkan download sourcode di link berikut ini semoga bermanfaat dan membantu. Pada postinga berikut nya saya akan membuat tutorial cara membuat Restore Database Ms Access dengan VB. Di tunggu y...