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

1.  Buka visual basic 6 kemudian desainlah sebuah form seperti gambar berikut ini :
   
   
   Tampilkan Gambar

   
   

   

   
   
2. 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

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

   
   

   

   
   

   

   
   
4. 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...

 

DOWNLOAD SOURCE CODE

Tags:
Backup Database Ms Access Menggunakan VB, Backup database, Cara Backup database dengan vb,cara backup dan restore database,Cara Membuat Program Backup Database Dengan Visual Basic,