Betul mas Pur, aku udah pake instruksi dari mas pur,
dan sudah OK.
Makasih.
--- Purwedi Kurniawan <[EMAIL PROTECTED]>
wrote:
> gimana kalau gini mas,
>
> 1. buat temporary recordset object dg schema yg
> sama:
>
> Dim rs As New ADODB.Recordset
> With rs
> .Fields.Append "no", adInteger
> .Fields.Append "jenis", adVarChar, 255
> .Fields.Append "jumlah", adInteger
> .Open
> End With
>
> 2. filter recordset asli dan simpan datanya ke
> recordset temp dg cara
>
> With rs
> .AddNew
> .Fields("no") = 1
> .Fields("jenis") = "Apple"
> .Fields("jumlah") = 3
> .Update
> End With
>
> 3. simpan ke excel data di recordset temporary tadi
>
> mudah2an ini yg dimaksud :)
>
> best regards
> [wwn]
>
> On 4/7/06, Jenar Suseno <[EMAIL PROTECTED]> wrote:
>
> > Teman2 Semua, saya punya ingin membuat recorset
> yang
> > diambil dari proses filter recordset lain.
> >
> > misal : rs_1
> > isi data :
> > no Jenis Jumlah
> > -----------------------------
> > 1 Apel 3
> > 2 Apel 4
> > 3 Apel 1
> > 4 Jeruk 2
> > 5 Jambu 1
> > 6 Jambu 1
> > -----------------------------
> >
> > dari recordset itu, akan saya export ke excel yang
> > setiap jenis akan ditaruh di sheet yang berbeda.
> > Sehingga akan ada sheet Apel, Jeruk, dan Jambu.
> >
> > Untuk proses Export ke Excel udah bisa, tapi
> bagaimana
> > proses pemisahan dari jenis2 tersebut?
> >
> > Logika nya :
> > rs_1.movefirs
> > xjenis=trim(rs_1!jenis)
> >
> > ' disini bikin recorset rs_2 yg data diambil dari
> > ' rs_1 yang jenisnya = xjenis
> > ' terus di export ke sheet di excel
> >
> > do
> > if rs_1!jenis < > xjenis then
> > xjenis=trim(rs_1!jenis)
> > ' disini bikin recorset rs_2 data diambil
> dari
> > ' rs_1 yang jenisnya = xjenis
> > ' terus di export ke sheet berikutnya di
> excel
> > endif
> > rs_1.movenext
> > loop until rs_1.eof
> >
> > bgmn proses bikin recordset yang datanya diambil
> dari
> > proses filter recordset?
> >
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
