Cara Membuat Program Backup Database Dengan Visual Basic 6.0

Cara Membuat Program Backup Database Dengan Visual Basic 6.0 | Gho Blog's - Setelah beberapa tutorial sebelumnya membahas tentang program simpan-edit-delete, membuat aplikasi multimedia dan animasi serta membuat aplikasi kriptografi dengan algoritma. Kali ini kita akan mencoba membuat aplikasi backup database yang menurut saya cukup penting dalam sebuah program aplikasi.

Program backup database ini digunakan untuk meng-copy database  dari satu directory ke directory lainnya. Database yang digunakan masih Miccrosoft Office Access seperti tutorial sebelumnya.

Nah, sekarang sobat tambahkan satu buah form pada project tersebut dan buat disain seperti gambar berikut ini :

Atur settingan pada File1 melalui kotak properties yang berada disebelah kanan. Pada pilihan Pattern ganti tulisan *.* menjadi *.mdb. Sehingga yang muncul pada File1 tersebut hanya database yang berekstensi .mdb. Perhatikan gambar diatas, pada File1 muncul database dengan nama latihan.mdb.

Setelah itu buka  layar coding program tersebut dan masukkan script berikut ini :

Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOP As shfileopstruct) As Long Private Const FO_copy = &H2 Private Const fof_allowundo = &H40 Private Type shfileopstruct hwnd As Long wfunc As Long pfrom As String pto As String Fflags As Integer Faborted As Boolean hnamemaps As Long sprogress As String End Type

Kemudian masukkan script berikut tepat dibawah script yang tadi sobat masukkan :

Public Sub copy(ByVal asal As String, ByVal tujuan As String) Dim X As shfileopstruct With X .hwnd = 0 .wfunc = FO_copy .pfrom = asal & vbNullChar & vbNullChar .pto = tujuan & vbNullChar & vbNullChar .Fflags = fof_allowundo End With SHFileOperation X End Sub

Setelah itu duoble klik pada tombol "Copy Database" dan masukkan script berikut ini tepat ditengah antara Private Sub Command1_Click() dengan End Sub :

On Error Resume Next If Text1 = "" Then MsgBox "Anda belum memilih file yang akan dicopy" Exit Sub ElseIf Text2 = "" Then MsgBox "Anda tidak memilih direktori tujuan peng-Copy-an" Exit Sub End If copy Text1.Text, Text2.Text MsgBox "File berhasil di copy"

Masih pada tombol "Copy Database", pilih Procedure KeyPress seperti gambar dibawah ini. Kemudian masukkan script berikut tepat diantara Private Sub Command1_KeyPress(KeyAscii As Integer) dengan End Sub  :

Dan masukkan script berikut :

If KeyAscii = 27 Then Unload Me

Kemudian duoble klik pada Drive1, dan masukkan script berikut tepat diantara Private Sub Drive1_Change() dengan End Sub :

Dir1.Path = Drive1.Drive

Lakukan hal yang sama pada Drive2, dan masukkan script berikut tepat diantara Private Sub Drive2_Change() dengan End Sub :

Dir2.Path = Drive2.Drive

Setelah itu duoble klik pada Dir1, dan masukkan script berikut tepat diantara Private Sub Dir1_Change() dengan End Sub :

File1.Path = Dir1.Path

Lakukan juga pada Dir2, dan masukkan script berikut tepat diantara Private Sub Dir2_Change() dengan End Sub :

Text2.Text = Dir2.Path

Terakhir, duoble klik pada File1, dan masukkan script berikut tepat dianatara Private Sub File1_Click() dengan End Sub :

Text1.Text = File1.Path & "\" & File1.FileName

Sekian dulu tutorial Visual Basic dari saya yang berjudul Cara Membuat Program Backup Database Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.