Backup Database Ms. Access secara otomatis menggunakan Microsoft Visual Basic 6.0

Private Sub Form_Load()

If App.PrevInstance = True Then End

App.TaskVisible = False

App.Title = “”

call copydatabase

End Sub

Private Sub copydatabase()

Dim reg As Variant

Set reg = CreateObject(“Wscript.Shell”)

reg.regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\nama_aplikasi.exe”, “d:\nama_folder\nama_aplikasi.exe”

If Day(Now) = 1 Then

FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database1.mdb”

End If

If Day(Now) = 10 Then

FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database10.mdb”

End If

If Day(Now) = 20 Then

FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database20.mdb”

End If

End Sub

Private Sub Timer1_Timer()

call copydatabase

End Sub

Jangan lupa di form properties, visible = false

tanggal backup terserah..bisa di ganti jadi tanggal brp aja..n backupna jg terserah brp x..

klo aku tiap 1 bulan tu ada 3 file database yg uda backup dgn nama file beda-beda..

isikan timer pada form dgn interval = 60000 guna memanggil private sub copydatabase stiap 1 jam skali..

trus tinggal di compile..jadi dah..tinggal aktifin skali aja..kan uda otomatis tiap komputer idup..aplikasina langsung jalan. Biasanya hasil compile dari script di atas anti virus mendeteksinya sebagai virus,  karna script di atas bermain dengan registry, jadi setting anti virus anda agar aplikasi ini tidak di detek virus ama anti virusnya. Knp begitu??karena script regedit di atas biasa di pakai oleh virus untuk mengaktifkan dirinya saat komputer start up. Jadi klo virus buat jahat..klo nie script buat baik..bgono..he..he..

Download Contoh Program Backup Otomatis

BACA INI JUGA

9 thoughts on “Backup Database Ms. Access secara otomatis menggunakan Microsoft Visual Basic 6.0

  1. saya mau bikin as kuliah tp tinggal 2 hari lagi.
    bisa bantu saya gax.??
    tugas kuliah saya tetang karyawan baru dng program vb , microsoft access, makalan bikin diagram Nol, rinci dll.
    bisa bantu saya gax??/

  2. Gan gimana caranya agar program backup ini langsung jalan lewat mode run as administrator?? minta source code VBnya run as administrator. soalnya kalau di windows 7 tidak bisa jlan dengan baik kalau tda dijlankan lewat run as administrator.. Makasih gan sebelumnya…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s