Cara Merestore Database MySQL Pada Delphi

Selain Proses Backup Database, Proses Restore adalah Salah Satu Hal yang berguna dalam sebuah aplikasi yang terkadang dilupakan oleh orang. Bisa dikatakan Backup dan Restore adalah satu kesatuan yang tidak dapat dipisahkan. Jika ada Backup maka Restore harus ada. sebaliknya jika ada Restore maka Backup Pasti ada. Saya ingin anda tidak menyepelekannya karena dalam hidup ini segala hal bisa saja terjadi seperti hilangnya data, data yang tidak sengaja terhapus dan semacamnya.

Postingan sebelumnya kan sudah membahas bagaimana melakukan backup data, rasanya kurang pas jika admin tidak sharing tentang bagaimana merestore data yang telah dibackup. Silahkan Lihat disini Jika anda belum membaca bagaimana melakukan proses Backup data dari Database MySQL.

Step 1 : Seperti biasa, Pastikan Sudah tidak ada masalah dengan koneksi Database Anda
Step 2 : Jangan Lupa Mendefinisikan ShellApi didalam Uses Anda
Step 3 : Buat Variabel, Handle: THandle;
Step 4 : Disini ni Bedanya, Jika dalam proses backup kita memanggil file mysqldump, tapi dalam merestore kita menggunakan file mysql Sobat Bisa mengcopy code dibawah ini pada event yang sobat kehendaki untuk melakukan restore

ShellExecute(self.Handle,pchar('open'),
PCHAR('C:\xampp\mysql\bin\mysql'),
PCHAR('-uroot -ppassword-mysql-anda -h localhost -e "drop database if exists nama-database; '+
'create database nama-database;use nama-database;\. '+opendialog.FileName+'"'),nil,SW_HIDE);
MessageDlg('Data Berhasil di Restore !!', mtInformation, [mbOK], 0);

Oya, Saya Memanfaatkan Komponen OpenDialog Untuk Membuka File yang akan direstore.