Backup Database Menggunakan VB6

Berhubung hari minggu dan tidak kerja sehingga saya mempunyai waktu untuk kujum dengan laptop maka kali ini saya akan mencoba memberikan tutorial untuk men Backup Database dengan menggunakan VB6.

Saya sendiri menggunakan Backup Database ini sebagai menu pokok paada program yang saya buat dengan tujuan mempunyai data cadangan dari isi program tersebut.

It's Ok , sekarang kita akan memulai nya dengan memasukan component Microsoft Commond Dialog Control 6.0 dengan cara klik Project lalu pilih Components...

Setelah sudah maka masukan Components CommonDialog ke dalam Form

Masukan juga satu CommandButton ke dalam Form sebagai menu backup nanti

Terserah kalian mau memberi nama apa pada CommanButton tersebut (disini saya memberi nama Caption nya "Backup").

Nah, jika Components sudah di masukan semua maka sekarang giliran memberikan sintek pada program tersebut, disini tidak perlu banyak memasukan sintek ke dalam program , cukup hanya beberapa baris saja dalam melakukan Backup Database.

Tapi sebelumnya saya sarankan untuk menyimpan terlebih dahulu project tersebut dengan cara klik menu Save yang ada di bagian kiri atas lalu simpanlah di folder anda (buat saja folder baru supaya tidak bingung).

Jika muncul pemberitahuan "Add this project to SourceSafe?" maka pilih saja "No"

Tapi kenapa sih ko harus simpan project terlebih dahulu ?
Ini di karenakan pada contoh yang saya berikan sekarang adalah dengan mengambil Database yang ada pada Folder aplikasi (Database yang nantinya mau di Backup).

Ok, ini baru beneran di bagian sintek nya
Isi sintek di bawah ini ke dalam Button tadi(yang sudah saya beri nama Backup)  dengan cara Double Klik pada button tersebut.

Me.CommonDialog1.Filter = "*.mdb"
Me.CommonDialog1.ShowOpen
 If Me.CommonDialog1.FileName <> "" Then
 FileCopy App.Path & "\\Data\\Newbie-Soft.mdb", Me.CommonDialog1.FileName & ".mdb"
 MsgBox "Database had been successfully Saved on " & Me.CommonDialog1.FileName & ".mdb"
 End If

Perhatikan tulisan yang berwarna merah, itu adalah letak Folder dan nama Database nya , misal nama Database kalian adalah Belajar dan di letakan pada folder Aku , maka gantilah \\Data\\NewbiSoft.mdb menjadi \\Aku\\Belajar.mdb
Lihat gambar di bawah ini untuk lebih jelasnya

Di gambar tersebut sudah jelas bahwa Database yang saya punya di letakan pada folder Data dan di beri nama Newbie-Soft

Setelah itu cobalah untuk Run project dan lihat hasilnya.

Dan simpanlah Database hasil Backup tersebut ke dalam folder yang kalian mau (disini saya menyimpan kedalam folder project)

Sukses deh , lihatlah gambar di atas disitu terlihat file Database hasil Backup (yang saya beri nama dengan "Beri Nama Disini") sudah ada di folder project.

Semoga ini bisa bermanfaat bagi kalian semua.
Selamat Menncoba.

Terima kasih sudah menyempatkan waktu untuk membaca artikel Backup Database Menggunakan VB6. Jika terdapat link error silahkan langsung hubungi saya di menu Contact supaya bisa langsung di perbaiki dan jangan lupa tinggalkan komentar kamu setelah selesai membaca artikel ini. Salam Admin

Ditulis oleh: Unknown - Saturday, 25 January 2014