Monday, 1 January 2018T1/01/2018 08:10:00 pm

Cara Membuat Backup Database Mysql Di Delphi

Salam blogger……pada artikel kali ini saya akan share cara mudah membuat form backup database mysql di Delphi. Membuat backup database merupakan salah satu hal yang penting jika sobat membuat sebuah aplikasi atau program besar dari Delphi. Hal ini dapat mencegah kehilangan database jika sewaktu waktu terjadi kerusakan pada komputer atau pc yang menjalankan software ataupun aplikasi yang sudah sobat buat. Jika sebelum nya saya sudah membuat artikel tentang cara membuat backup database ms. Access di Delphi, nah kali ini saya akan mencoba memberikan sedikit tutorial cara membuat backup database mysql di Delphi. Cara sederhana ini saya buat dengan memanfaatkan mysqldump.

Mungkin akan langsung saja saya berikan tutorial nya berikut ini. Pertama tama yang harus sobat siapakan adalah tentunya database nya terlebih dahulu. Database yg dapat digunakan bisa dibuat melalui mysql atapun melalui xampp dan editor lainnya. Saya anggap disini sobat sudah mengerti tentang database mysql dan menggunakan nya di Delphi. Selanjutnya sobat tinggal buat sebuah form baru pada project aplikasi atau program Delphi sobat, lalu tambahkan komponen berikut :

- 1 buah label, ganti namanya dengan path database

- 1 buah save dialog, lalu isi defaultExt  nya “sql”, lalu isi filter dengan “SQL File|*.sql” , jika sobat ingin menyimpan hasil backup nya kedalam sebuah folder maka isi Dir nya kearah folder yang sobat inginkan.

- 1 buah Button, ganti captionnya dengan “ BACK UP”.

Sampai disini proses pembuat form sudah selesai, hasil form yang saya buat dapat dilihat pada contoh gambar dibawah ini:
Langkah selanjutnya adalah memasukan koding program nya, langkah pertama adalah tambahkan “ShellAPI” pada uses di form yang sobat buat td.
Selanjutnya pada event on show masukan koding berikut :
procedure TFbackup.FormShow(Sender: TObject);
begin
sedit1.Text:='';
sedit1.Enabled:=false;
end;
Selanjutnya pada button klik 2x lalu masukan koding berikut :
procedure TFbackup.sBitBtn1Click(Sender: TObject);
var
   user, pass, database, dir :String;
begin
ssavedialog1.FileName := 'dbsimpus'+FormatDateTime('ddmmyy',now);
 if ssavedialog1.Execute then
 begin
 sedit1.Text:=ssavedialog1.FileName;
 end;

//MySQL user & MySQL Dump path
user :='root';
pass :='';
database:='dbsimpusv1';
dir :='C:\mysql\bin';

if pass<>'' then pass:=' -password='+pass;
 SetEnvironmentVariable(PChar('Path'),PChar(Dir));
 ShellExecute(Handle, 'open', PChar('cmd.exe'),
 pchar('/c mysqldump --opt --user='+user+pass+' -B '+database+' >"'+sedit1.Text+'"'),nil,sw_Hide);
 Application.MessageBox('Database Berhasil Di Backup','Info', mb_Ok + Mb_ICONINFORMATION);
end;
note :
- user, merupakan nama user di mysql
- password: merupakan nama password di mysql, kosongkan jika mysql sobat di dipasword
- database, merupakan nama database mysql sobat
- dir, merupakan letak mysqldump nya, disini saya meletakan nya pada drive c: jika sobat menggunakan xampp sobat tinggal mengubah path nya menjadi dir :='C:\xampp\mysql\bin';

Sampai pada langkah ini proses pembuatan form backup database mysql di Delphi sudah selesai , sobat tinggal mencoba menjalankan form nya. Jika langkah yang sobat buat sudah benar maka database sobat akan terbackup pada folder yg sudah sobat tentukan. Hasil form program backup yang saya buat dapat dilihat pada gambar dibawah ini.
Demikian artikel tutorial tentang cara membuat backup database mysql pada Delphi yang dapat saya bagikan pada sobat semua, semoga dapat bermanfaat buat sobat semua. Untuk cara membuat restore database mysql nya akan saya ulas pada artikel selanjutnya. Selamat mencoba.
Previous
Next Post »
0 Komentar untuk "Cara Membuat Backup Database Mysql Di Delphi"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar
 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status