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