DELPHI - Backup Restore MySQL di delphi dengan komponen Open dan Save Dialog

Malam Pemirsa setia :D
Good night...!

Here Coding to BackUp and Restore your Database with Delphi

for example :

Database : Bengkel ( colored Red, according to your own database - tergantung anda )
Password : 1234 ( colored Red, same, it totally based on your own password - tergantung anda )
Folder MySQL : C:\Program Files (x86)\MySQL\MySQL Server 5.0\bin\
(folder MySQL it depends on your directory - tergantung tempat anda install mysql)

add component SaveDialog and OpenDialog on your form

BackUp

  SaveDialog1.Execute;
if SaveDIalog1.FileName<>'' then
  begin
  ShellExecute(self.Handle, PCHAR('open'),
  PCHAR('C:\Program Files (x86)\MySQL\MySQL Server 5.0\bin\mysqldump.exe'),
  PCHAR('-uroot -p1234 -hlocalhost -R -r "'+ SaveDialog1.FileName+'.sql" bengkel'),
  PCHAR('C:\Program Files (x86)\MySQL\MySQL Server 5.0\bin'),SW_SHOW);

  MessageDlg('Data Berhasil di Backup !!', mtInformation, [mbOK], 0);
  end
else
  MessageDlg('GAGAL. Harap Pilih Lokasi!!', mtInformation, [mbOK], 0);


Restore
   OpenDialog1.Execute;
if OpenDialog1.FileName<>'' then
  begin
  ShellExecute(self.Handle,pchar('open'),
  PCHAR('C:\Program Files (x86)\MySQL\MySQL Server 5.0\bin\mysql.exe'),
  PCHAR('-uroot -p1234 -hlocalhost -e "drop database if exists bengkel; '+
  'create database bengkel; use bengkel;\. '+OpenDialog1.FileName+'"'),nil,SW_HIDE);
  MessageDlg('Data Berhasil di Restore !!', mtInformation, [mbOK], 0);
  end
else
  MessageDlg('GAGAL. Harap Pilih Lokasi !!!', mtInformation, [mbOK], 0);
end;


OK easy right?
thanks 4 ur attention and see the next Update at giavano.blogspot.com

Thank you