On Fri, Sep 12, 2003 at 03:11:04PM -0000, yanzahari wrote:
> Hi Delphiers,
> Tolongin dong gimana yah caranya utk export hasil query (dbgrid) ke
> excel ???
gunakan clipboard
pisahkan antar field dengan TAB #09
pemisah antar record adalah CRLF #13#10 (mungkin cukup CR saja)
selanjutnya nanti tinggal di-paste ke excel,
terserah mau menggunakan teknik apa.
const
TAB = #09;
CRLF = #13#10;
function CopyAlldbData(DataSet: TDataSet): String;
var
i: Integer;
begin
with DataSet do begin
Result:= '';
while not EOF do begin
for i:= 0 to FieldCount-1 do begin
//saya lupa, 1 atau 0-based, coba dicheck lagi
Result:= Result + Fields[i].AsString;
//jika bukan field terakhir, tambahkan TAB
//juga ini disesuaikan berdasarkan 1 atau 0-based
if i < FieldCount-1 then
Result:= Result + TAB;
end;
Result:= Result + CRLF;
end;
end;
end;
function CopySelectedGrid(grid: TdbGrid):String;
var
i: Integer;
begin
Result:= '';
for i:= 0 to grid.SelectedRows.Count-1 do begin
//ingat! datasource dan dataset HARUS sudah active / valid
//kalau tidak, akan terjadi exception yang (mungkin) membingungkan
grid.DataSource.DataSet.GotoBookmark(pointer(grid.SelectedRows.Items[i]));
with grid.DataSource.DataSet do begin
//lakukan hal yang sama dengan diatas...
//jangan dipisah menjadi funsi tersendiri, tidak efisien.
for i:= 0 to FieldCount-1 do begin
Result:= Result + Fields[i].AsString;
if i < FieldCount-1 then
Result:= Result + TAB;
end;
end;
Result:= Result + CRLF;
end;
end;
uses ClipBrd;
...
ClipBoard.AsText:= CopyAllData(Table1);
...
demikian, tapi saya tidak menguji lagi kode diatas
jadi kalau ada yang salah ketik, maaf-maaf saja :)
hth.
aa, http://www.google,com/search?q=aa+delphi
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
