Cara Backup Database Access Menggunakan VB - Lab Wisnu

 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 :

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

   01	Option Explicit

   02	'----Fungsi API untuk browse folder

   03	Private Declare Function SHBrowseForFolder Lib _

   04	"shell32.dll" (bBrowse As BrowseInfo) As Long

   05	Private Declare Function SHGetPathFromIDList Lib _

   06	"shell32.dll" (ByVal lItem As Long, ByVal sDir As String) AsLong

   07	'------------------------

   08	Private Type BrowseInfo

   09	hWndOwner As Long

   10	pidlRoot As Long

   11	sDisplayName As String

   12	sTitle As String

   13	ulFlags As Long

   14	lpfn As Long

   15	lParam As Long

   16	lImage As Long

   17

   End Type

   18

   19	Private Function BrowseFolder() As String

   20	Dim Info As BrowseInfo

   21	Dim lngItem As Long

   22	Dim strDir As String

   23	'mengembalikan nama folder

   24	Info.ulFlags = 1

   25	lngItem = SHBrowseForFolder(Info)

   26	If lngItem Then

   27	strDir = Space$(260)

   28	If SHGetPathFromIDList(lngItem, strDir) Then

   29	'mendapatkan nama folder

   30	BrowseFolder = Left$(strDir, InStr(strDir, ChrW$(0)) - 1)

   31

   Else

   32	BrowseFolder = vbNullString

   33

   End If

   34

   End If

   35	End Function

   36

   37	'----Kode Tombol Pilih Folder

   38	Private Sub CmdPilih_Click()

   39	Label1.Caption = BrowseFolder

   40

   End Sub

   41

   42	'---Tombol Keluar

   43	Private Sub CmdKeluar_Click()

   44

   Unload Me

   45

   End Sub

   46

   47	'---koding Tombol Backup---

   48	Private Sub CmdBackup_Click()

   49	If Label1.Caption = "" Then

   50	MsgBox "Klik Tombol 'Pilih Folder' Dulu...!," & vbCrLf & ""_

   51	& "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "

   52

   Exit Sub

   53

   End If

   54	'------------------------

   55	On Error Resume Next

   56	Dim asal As String

   57	Dim Tuju As String

   58	Dim i As Integer

   59	Dim j As Integer

   60	Label2.Width = 0

   61	'-----------------------

   62	asal = App.Path + "\DB_MHS.mdb"

   63	Tuju = Label1.Caption

   64	'mengubah nama file databasenya menjadi format tgl sesuai dg tgl backup ex:DB_MHS_01-10-2014.mdb

   65	Tuju = Tuju + "\DB_MHS" & "_" & Format$(Date, "DD-MM-YYYY") & ".mdb"

   66	CmdPilih.Enabled = False

   67	CmdBackup.Enabled = False

   68	CmdKeluar.Enabled = False

   69	Label2.Visible = True

   70	For i = 0 To 4800

   71	Label2.Width = i

   72	For j = 1 To 50: DoEvents: Next j

   73

   Next i

   74	'-Proses Copy File Database--------------

   75	FileCopy asal, Tuju

   76

   DoEvents

   77	MsgBox "Backup database Sukses...", vbInformation, "Back Up Data"

   78	'------------------------

   79	CmdPilih.Enabled = False

   80	CmdBackup.Enabled = False

   81	CmdKeluar.Enabled = True

   82	Label2.Visible = False

   83

   End Sub

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

1. Selesai. Jika anda tidak ingin ribet nulis kode dan mendesain form nya silahkan download sourcode di link berikut ini semoga bermanfaat dan membantu. 

Sumber : www.hadiasoka-com

  

Related Posts