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

Thu, 06 Apr 2006 18:07:01 -0700 

Dim rsSource As New ADODB.Recordset
Dim rsFiltered As ADODB.Recordset
Dim rsSorted As ADODB.Recordset
Dim pb As New PropertyBag

' open a client-side Recordset    
rsSource.CursorLocation = adUseClient
rsSource.Open "Authors", "DSN=Pubs", adOpenStatic

' apply a filter 
rsSource.Filter = "author like 'J*'"

' create a copy of the filtered recordset
pb.WriteProperty "filtered", rsSource
Set rsFiltered = pb.ReadProperty("filtered")

' sort the recordset
rsSource.Filter = ""
rsSource.Sort = "Author"

' create a copy of the sorted recordset
pb.WriteProperty "sorted", rsSource
Set rsSorted = pb.ReadProperty("sorted")

' release the memory
Set pb = Nothing


Semoga membantu

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

Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls. Great rates starting at 1¢/min.







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