Cara Backup Database MySQL Pada Delphi

Cara Backup Database MySQL Pada Delphi

 

Backup dalah Proses Menyalin, Memindahkan atau mengamankan data. Dengan melakukan backup secara rutin kita tidak perlu lagi takut kehilangan data inti karena salinan data sudah kita miliki. Itulah Sebabnya mengapa Perlu ada Plan B dalam sebuah misi agar jika Plan A gagal maka Plan B yang berjalan.

Terlepas dari basa-basi diatas, Backup Data Tentu Merupakan Urusan yang bisa dibilang sangat penting. tujuannya tentu saja untuk mengamankan data tersebut sehingga jika suatu ketika data tersebut hilang, rusak atau corrupt, seorang admin dapat melakukan restore dengan data yang telah dibackup.untuk itu mari kita belajar bagaimana membackup database MySQL dengan Delphi.

Tahap pertama adalah memastikan sudah tidak ada masalah dengan koneksi database.
Tahap kedua adalah dengan mendefinisikan "ShellApi" tanpa tanda kutip didalam uses. 

1unit Unit1;

2interface

3uses

4  ... , ShellApi;

Tahap Ketiga adalah memanggil file mysqldump.exe didalam direktory mysql.
berarti kalo sobat pake xampp, file mysqldump.exe ada di : C:\xampp\mysql\bin\mysqldump.exe
caranya bagaimana ? paste aja code dibawah ini didalam event yang sobat kehendaki untuk melakukan backup data.

1ShellExecute(self.Handle, PCHAR('open'),

2PCHAR('C:\xampp\mysql\bin\mysqldump.exe'),

3PCHAR('-uroot -ppassword-mysql-anda -h localhost -R -r "'+SaveDialog1.FileName+'.sql" bmt'),,

4PCHAR('C:\xampp\mysql\bin'),

5SW_HIDE);

6MessageDlg('Data Berhasil di Backup !!', mtInformation, [mbOK], 0);

Oya, Saya Memanfaatkan Komponen SaveDialog Untuk Proses Simpannya.
Jangan Lupa membuat variabel handle : 

1Handle: THandle;