Ekspor Database ke Berbagai Format 2

Assalamu’alaikum Wr.Wb

Berikut ini adalah lanjutan dari artikel Ekspor Database ke Berbagai Format. Kali ini kita akan membuat prosedur untuk mengekspor table ke dalam format HTML.

Berikut adalah prosedur EksporHTML:

procedure TForm1.EksporHTML(NamaTabel, NamaFolder : string);
var
 cmdEkspor : TADOCommand;
begin
 cmdEkspor := TADOCommand.Create(nil);
 try
 cmdEkspor.Connection := ADOConnection1;
 cmdEkspor.CommandText :=
 Format('SELECT * INTO [%s] IN "%s" %s FROM %s',
 [NamaTabel+'.html', NamaFolder, '"HTML Export;"', NamaTabel]);
 //ShowMessage(cmdEkspor.CommandText);
 cmdEkspor.Execute;
 finally
 cmdEkspor.Free;
 end;
end;

OKE, selanjutnya, tambahkan kode ini pada vcl btnEkspor dengan event btnEksporClick(Sender : TObject):

procedure TForm1.btnEksporClick(Sender: TObject);
var
 strNamaFile : string;
begin
 ....
 if ListBox1.ItemIndex > -1 then
 begin
 ...
 if rdbHTMl.Checked then
 begin
 EksporHTML(ListBox1.Items[ListBox1.ItemIndex],edtFolderSimpan.Text);
 MessageDlg('Data sudah berhasil di ekspor ke format HTML ' +
 'dalam file ' + QuotedStr(strNamaFile + '.html'),
 mtInformation,[mbOk], 0 );
 end;
 // untuk dbase, dan csv/txt untuk tulisan berikutnya
 end;
end;

Untuk kode tambahan saya kasih warna ini.

Berikut adalah tampilan hasil outputnya yang dibuka dengan firefox 3:

Bersambung……….

Semoga Bermanfaat, Wassalam