Re: [Programmer-VB] Bikin Recorset dari filter recordset lain?

Thu, 06 Apr 2006 18:41:58 -0700

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?

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



Kirim email ke