Home » , » Listing Visual Basic 6 Untuk BackUp Database Mysql Otomatis saat program di Close

Listing Visual Basic 6 Untuk BackUp Database Mysql Otomatis saat program di Close

Listing Visual Basic 6 Untuk BackUp Database Mysql Otomatis saat program di Close






Setelah muter-muter nyari dan obrak abrik database google beberapa hari ini,, Akhirnya nemu juga listing buat back-up database otomatis saat program di close. Untuk backup data base sendiri listingnya adalah :

# mysqldump -u root -p[root_password] [database_name] > dumpfilename.sql

Mencoba berkali-kali listing diatas tidak juga berhasil. Tak putus asa saya mencoba ngobrak-ngabrik google lagi dan jreng,,,berhasil,,,!!!!
nih listing buat backup database:




Open "C:\bkTest.bat" For Output As #1
Dim ComandoSh As String
ComandoSh = "C:\xampp\mysql\bin\mysqldump.exe --host=localhost --user=root --password=pass --database=koperasi_syariah -R koperasi_syariah > j:\BKTest.sql"
Print #1, ComandoSh
Close 1
ProcId = Shell("C:\bkTest.bat", vbHide)



Dengan Catatan Sebagai Berikut:

1.  C:\xampp\mysql\bin\mysqldump.exe =Menyesuaikan letak file mysqldump.exe yang ada di komputer anda.

2.  password=pass "Pass" adalah password localhost anda.

3.  koperasi_syariah=Nama Database yang akan anda backup.

4. j:\BKTest.sql = Nama database hasil backup yang letaknya di drive j.


Empat point diatas harus disesuaikan dengan parameter yang ada di komputer anda. Agar listing backup diatas dapat berjalan saat program di close maka letakkan listing diatas di command button Close atau Exit atau Keluar...



contoh:


 Private Sub Close_Click()
Open "C:\bkTest.bat" For Output As #1
Dim ComandoSh As String
ComandoSh = "C:\xampp\mysql\bin\mysqldump.exe --host=localhost --user=root --password=pass --database=koperasi_syariah -R koperasi_syariah > j:\BKTest.sql"
Print #1, ComandoSh
Close 1
ProcId = Shell("C:\bkTest.bat", vbHide)
End Sub


Semoga Bermanfaat...


Written by : Ihksan Fauzi - Tentang Saya

Bukan siapa-siapa dan bukan apa-apa. Hanya NewBie Yang mencoba berbagi apa yang saya peroleh.

Join Me On: Facebook | Google Plus :: Thank you for visiting ! ::