backup dan restore database access dengan vb ( part 2 )

Setelah beberapa saat yang lalu kita membuat backup database, sekarang kita akan membuat form untuk merestore database access...bagi yang belum tahu cara membackup database access dapat dilihat pada artikel sebelumnya disini.

baiklah untuk persiapan kita terlebih dahulu membuat form restore database kurang lebih seperti berikut :

jangan lupa untuk menambahkan component commondialog, sekarang kita masuk ke codingnya...

langkah pertama sama seperti pada form backup yaitu mendeklarasikan fungsi untuk mengcopy file sebagai berikut:

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

kemudian double klik command browse yaitu command button yang berada disamping text1.text kemudian ketikan code berikut :

Private Sub cmdBrowse_Click()
Dialog.DialogTitle = "Restore Databse"
    Dialog.Filter = "DtbsProgramDJo (*.sql)|*.sql"
    Dialog.ShowOpen
    mPath = Dialog.fileName
    text1 = mPath
End Sub

disinilah terlihat bahwa fungsi commondialog digunakan untuk melakukan browse file seperti pada windows.

setelah itu double klik command restore dan ketikan code berikut :

Private Sub cmdrestore_Click(Index As Integer)
text1 = mPath
If text1 <> "" Then
    '[Tambahkan kode dibawah ini untuk memutuskan koneksi database yang sedang terbuka]
    con.Close
    Set con = Nothing
   
    copyfile mPath, App.Path & "\database.mdb", 0
    MsgBox "Berhasil, anda telah melakukan Restore Database", vbInformation
    End If
    connection.Connect
End Sub

untuk command keluar cukup ketikan unload me

mudah bukan melakukan backup dan restore database access dengan vb mudah-mudahan dapat bermanfaat. silahkan tunggu tutorial berikutnya, jangan lupa commentnya ya...

backup dan restore database access dengan vb ( part 1 )

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"

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,