Alat dan bahan :1. Komputer
2. Delphi
3. MySql + 1 Tabel sebagai contoh beserta data di dalam tabelnya
misal tabel anggota;
klo alat dah siap sekarng kita ke delphi nya :
yang dibutuhkan adalah :
1. tambahkan uses unit ComObj;
2. script dasar untuk membuat file excel :
//fungsi reftocell
function RefToCell(ARow, ACol: Integer): string;
begin
Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);
end;
//-------------------------------
const
xlWBATWorksheet = -4167; // sebagai jenis WBATemplate, ada juga xlWBATChart = -4109;
var
XLApp, Sheet, Data: OLEVariant;
no,i: Integer;
rowstart,rg,cg:integer;
begin
//membuar array data dengan jumlah maksimal baris dan kolom
// [baris,kolom] dimulai dari baris=1 dan kolom=1
Data := VarArrayCreate([1, 3, 1,4], varVariant);
Data[1,1]:='no';
Data[1,2]:='nama';
Data[2,1]:='1';
Data[2,2]:='tomx';
Result := False;
XLApp := CreateOleObject('Excel.Application');
try
XLApp.Visible := False;
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Name := 'percobaan';
Sheet.Range[RefToCell(1, 1), RefToCell(3,4)].Value := Data;
try
XLApp.Workbooks[1].SaveAs(AFileName);
Result := True;
except
MessageDlg('Export data ke excel gagal dilakukan, coba beberapa saat lagi ! atau hubungi admin',mtInformation,[mbOK],0);
end;
finally
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
end;
end;
//---------------------------
dari dasar itu di kembangin deh.... datanya di ambil murni dari data tabel ;)
mudah-mudahan bermanfaat yah.
CATATAN PENTING :
Pada source download-an nanti koneksi ke database belum dilakukan, silahkan anda menginstal ODBC dan tentukan koneksi sendiri. kenapa? karena emang sengaja dikosongkan pada component AdoConnectionnya...
Jangan lupa juga sedikit sentuhan pada :
fungsi SqlKeExcel
...........
with ADOQuery1 do
begin
Close;
SQL.Text:='SELECT * FROM anggota'; //Tentukan sendiri tabel dalam database anda.
Open;
..........
kalau udah silahkan dah donlot pake link di bawah ini :
Klik Disini untuk mendownload
Mudah-Mudahan Bermanfaat....
Go Kendary Open SOurce
Sincerely YOurs
