Cara Backup Database Mysql Dengan Delphi

Thursday, January 29, 2015

Bagikan :

Tweet

Kali ini saya akan berbagi informasi mengenai Cara Backup Database MySql Dengan Delphi. disini menggunakan delphi 7 sebagai contohnya.artikel ini sudah pernah dibahas sama mas endra wijaya di blognya https://mboloz.wordpress.com/. semoga tutorial ini bermanfaat.

berikut ini Cara Backup Database Mysql Dengan Delphi.

pada gambar diatas menggunakan 1 buah edit text,button dan save dialog. lakukan pengaturan pada komponen save dialog setting defaultext isi dengan sql, filter : filter name sql filter,filter=*.sql

laku ketikan koding dibawah ini pada tombol backup

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;

coba jalankan programnya

demikianlah tutorial Cara Backup Database Mysql Dengan Delphi semoga bermanfaat.

Tag : database, delphi