MySQL : Backup MySQL Dengan Delphi

MySQL : Backup MySQL Dengan Delphi

 

 Cara membackup database MySQL lewat delphi dengan menggunakan mysqldump  langsung saja sebelumnya kita perlu mempersiapkan form semacam ini :

Saya pakai sebuah komponen Edit, Button dan SaveDialog, kemudian lakukan pengaturan properties pada SaveDialog, sebagai berikut :
– DefaultExt, isikan dengan sql, berfungsi untuk memberikan exstensi default pada file backup yang akan kita buat, kemudian
– Filter, Filter Name = SQL File,  FIlter = *.sql

Setelah itu, isikankoding berikut pada button backup, sebelumnya tambahkan uses ShellAPI (Delphi 7)

procedure TfMain.b1Click(Sender: TObject);

var

   user, pass, database, dir :String;

begin

sv1.FileName := 'Backup'+FormatDateTime('ddmmyy',now);

 if sv1.Execute then

 begin

 ePath.Text:=sv1.FileName;

 end;

 

//MySQL user & MySQL Dump path

user :='root';

pass :='';

database:='coba';

dir :='C:\xampp\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+' >"'+ePath.Text+'"'),nil,sw_Hide);

 MessageDlg('Database Telah dibackup', mtInformation, [mbOK], 0);

end;

Variable user, password dan nama database yang akan dibackup bisa kita isikan sesuai pengaturan di MYSQL kita, sedangkan dir adalah lokasi mysqldump.exe, kebetulan saya pakai XAMPP dan path nya seperti yang ada pada koding diatas sialhkan disesuaikan dengan lokasi masing-masing, atau supaya enak bisa juga mysqldump.exenya kita kopikan dengan satu folder aplikasi kita kemudian arahkan dir ke sana..

Setelah itu kita bisa melakukan test pada aplikasi backup yang telah kita buat, jika berhasil akan menghasilkan dump yang komplit berisi struktur tabel dan recordnya, tapi untuk batasan dump belum pernah diuji sampai berapa besar dia mampu melakukan dump, kalau sudah ada yang pernah mungkin bisa menginformasikannya.

Selamat mencoba