Pada tutorial kali ini kita akan mencoba untuk melakukan ekspor impor data dari database MySQL dengan menggunakan aplikasi Delphi. Data ekspor impor akan kita tampung dalam file berbentuk csv.
untuk memudahkan proses ekpspor impor, sebaiknya buat tabel khusus yang menampung data-data yang akan diekspor atau diimpor. Sebagai contoh buat tabel temp_ekspor dan temp_impor. Sebelum melakukan proses ekspor, pindahkan data-data yang akan diekspor ke tabel temp_ekspor, lalu lakukan proses ekspor pada tabel temp_ekspor. Sebaliknya pda proses impor, Lakukan proses import data pada tabel temp_impor, lalu pindahkan data pada tabel temp_impor ke tabel asli. Tentu saja sesuaikan field-field dari tabel temp_ekspor dan tabel temp_import dengan data yang akan dipindahkan.
Ekspor Data
Untuk ekspor data, pertama tama buat form ekspor seperti gambar berikut
Jangan lupa tambahkan komponen SaveDialog1.
Klik 2 kali pada tombol browse lalu ketik script berikut:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure Tfr_expor.btnbrowseClick(Sender: TObject); var pathProg : string; begin if SaveDialog1.Execute then if SaveDialog1.FileName <>'' then begin pathProg:=ExtractFilePath(ExtractFileDir(ParamStr(1))); saveDialog1.Filter := 'Backup files|*.csv'; edit2.Text:=pathProg+SaveDialog1.FileName; end; end; |
Setelah itu klik 2kali pada tombol ekspor lalu isi script berikut
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
procedure Tfr_expor.btneksporClick(Sender: TObject); var pathProg : string; dirfile : string; begin dirfile:=SaveDialog1.FileName+'.csv'; With dm.Qekspor do begin SQL.Clear; SQL.Text:='SELECT * FROM temp_eksport_in '+ 'INTO OUTFILE '+QuotedStr(dirfile); ExecSQL; end; ShowMessage ('EKSPOR DATA BERHASIL!'); end; |
Impor Data
Untuk impor data, pertama tama buat form impor seperti gambar berikut
Klik 2 kali pada tombol browse lalu ketik script berikut:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure Tfr_impor.Button1Click(Sender: TObject); var pathProg : string; begin if SaveDialog1.Execute then if SaveDialog1.FileName <>'' then begin pathProg:=ExtractFilePath(ExtractFileDir(ParamStr(1))); saveDialog1.Filter := 'CSV files|*.csv'; edit2.Text:=SaveDialog1.FileName; end; end; |
Setelah itu klik 2kali pada tombol ekspor lalu isi script berikut
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
procedure Tfr_impor.btnimporClick(Sender: TObject); var pathProg : string; dirfile : string; begin dirfile:=SaveDialog1.FileName+'.csv'; With dm.Qekspor do begin SQL.Clear; SQL.Text:='LOAD DATA INFILE '+QuotedStr(dirfile)+' into Table temp_import_in'; ExecSQL; end; ShowMessage ('EKSPOR DATA BERHASIL!'); end; |
Selamat Mencoba….