Mungkin sudah banyak yang tahu bagaimana cara membackup dan restore
database access pada visual basic. Tapi mungkin untuk para newbie
seperti saya, ini merupakan suatu pelajaran yang sangat berharga.
seperti yang kita tahu bahwa database access mempunyai keterbatasan
dalam menampung data, maka dari itu backup dan restore database sangat
penting jika kita membuat sebuah aplikasi yang berbasis database access.
baiklah tanpa panjang lebar kita akan sama-sama belajar bagaimana cara
membackup dan restore database access.
pertama kita buat form backup terlebih dahulu kurang lebih seprti berikut :
kemudian kita mulai dengan codingnya, yang pertama kita lakukan adalah mendeklarasikan fungsi untuk mengcopy file dengan memanfaatkan kernel32.dll. masuk ke mode view code kemudian ketikan code berikut ini :
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
kemudian double klik command backup dan ketikan code berikut ini:
Private Sub Command1_Click()
FFILE = "BckupDtbs " & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hhnnss") & ".sql"
copyfile App.Path & "\database.mdb", "D:\Backup\" & FFILE, 0
MsgBox "Berhasil, Database telah di backup" & vbCrLf _
& "Path : " & "D:\Backup\" & FFILE, vbInformation
End Sub
untuk command keluar cukup ketikan unload me
penjelasan code diatas :
"BckupDtbs " & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hhnnss") & ".sql"
pertama kita buat form backup terlebih dahulu kurang lebih seprti berikut :
kemudian kita mulai dengan codingnya, yang pertama kita lakukan adalah mendeklarasikan fungsi untuk mengcopy file dengan memanfaatkan kernel32.dll. masuk ke mode view code kemudian ketikan code berikut ini :
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
kemudian double klik command backup dan ketikan code berikut ini:
Private Sub Command1_Click()
FFILE = "BckupDtbs " & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hhnnss") & ".sql"
copyfile App.Path & "\database.mdb", "D:\Backup\" & FFILE, 0
MsgBox "Berhasil, Database telah di backup" & vbCrLf _
& "Path : " & "D:\Backup\" & FFILE, vbInformation
End Sub
untuk command keluar cukup ketikan unload me
penjelasan code diatas :
"BckupDtbs " & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hhnnss") & ".sql"
ini adalah nama dari hasil database yang kita
backup dengan menambahkan tanggal dan waktu serta akan merubah extensi
file menjadi .sql misalkan " BckupDtbs 12-09-2011 104031.sql".
sedangkan yang berwarna biru merupakan nama database dari aplikasi yang
kita buat dan yang berwarna merah merupakan destinasi atau alamat tempat
hasil backup database tadi, jadi untuk nama dan letak penempatan
database dapat dirubah sesuai kebutuhan.
mungkin sekian dulu, untuk restore databasenya bersambung ke artikel berikutnya...
semoga bermanfaat,
