makacih mas.. good idea smg saya bs ngembangin konsep serupa utk yg lain ----- Original Message ----- From: "pand4" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, February 24, 2006 6:05 PM Subject: Re: [Programmer-VB] membalik urutan data (Urgen)
> gini aja mas.. > > if not (rsPPBBD.eof or rsPPBBD.bof) then > rsPPBD.movelast > while (not rsPPBBD.eof or rsPPBBD.bof) > rsPPBD.AddNew > rsPPBD!No_PPB = NoBaru > rsPPBD!HD = rsPBBDD!HD > rsPPBD!urut = rsPBBDD!urut > rsPPBD!BARANG = rsPBBDD!KD_BRG > rsPPBD!QTY = rsPBBDD!QTY > rsPPBD!SATUAN = rsPBBDD!SATUAN > rsPPBD!KD_CAT = rsPBBDD!KD_CAT > rsPPBD!Ket = rsPBBDD!Ket > rsPPBD.Update > rsPBBDD.MovePrevious > wend > end if > > kalo kayak gitu datanya dimasukkan dari yang akhir ke yang awal.. > dia ngecek dulu apakah tabel tersebut kosong atau nggak, kosong dia gak > melanjutkan, kalo gak kosong dia langsung turun ke record paling akhir, > dengan menggunakan looping while kit bisa ngecek apakah data tersebut > udah nyampe diatas apa belom (.BOF) kalo belum dia naik keatasnya > (.moveprevious) > > Eko wrote: > >> maaf mas purwedi, klo cara itu sdh saya coba >> tapi cb mas perhatikan kondisi field Hd dan field Urut >> >> saya ingin membalik urutan data tsb karena klo urutannya tdk dibalik >> maka ketika akan ditransfer ke tabel lain >> maka yang terjadi data di tabel baru lah yg terbalik >> >> proses transfernya kira2 begini (mohon koreksi) >> For I = 1 To rsPBBDD.RecordCount >> rsPPBD.AddNew >> rsPPBD!No_PPB = NoBaru >> rsPPBD!HD = rsPBBDD!HD >> rsPPBD!urut = rsPBBDD!urut >> rsPPBD!BARANG = rsPBBDD!KD_BRG >> rsPPBD!QTY = rsPBBDD!QTY >> rsPPBD!SATUAN = rsPBBDD!SATUAN >> rsPPBD!KD_CAT = rsPBBDD!KD_CAT >> rsPPBD!Ket = rsPBBDD!Ket >> rsPPBD.Update >> rsPBBDD.MoveNext >> Next I >> >> >> ----- Original Message ----- >> *From:* Purwedi Kurniawan <mailto:[EMAIL PROTECTED]> >> *To:* [email protected] >> <mailto:[email protected]> >> *Sent:* Friday, February 24, 2006 9:28 AM >> *Subject:* Re: [Programmer-VB] membalik urutan data (Urgen) >> >> tambahkan diakhir query: ORDER BY namafield1,namafield2 dst DESC >> >> On 2/24/06, *Eko* <[EMAIL PROTECTED] >> <mailto:[EMAIL PROTECTED]>> wrote: >> >> saya punya data dari >> select * from pbbdd where No_PBBD like 'PBBD/02/2006' >> >> No_PBBD Hd Urut Kd_Brg Ket >> PBBD/02/2006 k 1 BL/PEB/001 >> PBBD/02/2006 n Cadangan >> PBBD/02/2006 k 2 3ES/004 >> PBBD/02/2006 k 3 3ES/014 >> PBBD/02/2006 n >> perawatan >> >> >> gimana caranya membalik urutan data tersebut menjadi >> >> No_PBBD Hd Urut Kd_Brg Ket >> PBBD/02/2006 n >> perawatan >> PBBD/02/2006 k 3 3ES/014 >> PBBD/02/2006 k 2 3ES/004 >> PBBD/02/2006 n Cadangan >> PBBD/02/2006 k 1 BL/PEB/001 >> >> >> >> Wahana Programmer Groups Links >> >> >> >> >> >> >> >> SPONSORED LINKS >> Programmer >> >> <http://groups.yahoo.com/gads?t=ms&k=Programmer&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=QQ3jf-qPyCuDVOqmjxXLqQ> >> Indonesia >> >> <http://groups.yahoo.com/gads?t=ms&k=Indonesia&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=gwDT36aV8hG5doSQaoUwSA> >> Basic programming language >> >> <http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=g8R4hday0lm5D2hL5lG5aQ> >> >> Computer programming languages >> >> <http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=RLdM7FZAm3K7raX0D8KsjA> >> Programming languages >> >> <http://groups.yahoo.com/gads?t=ms&k=Programming+languages&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=CtRXYvnoy1O17UC430cphA> >> Java programming language >> >> <http://groups.yahoo.com/gads?t=ms&k=Java+programming+language&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=XQJC4fZro9pIX1bkqBwT8w> >> >> >> >> ------------------------------------------------------------------------ >> YAHOO! GROUPS LINKS >> >> * Visit your group "Programmer-VB >> <http://groups.yahoo.com/group/Programmer-VB>" on the web. >> >> * To unsubscribe from this group, send an email to: >> [EMAIL PROTECTED] >> >> <mailto:[EMAIL PROTECTED]> >> >> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of >> Service <http://docs.yahoo.com/info/terms/>. >> >> >> ------------------------------------------------------------------------ >> > > > > Wahana Programmer Groups Links > > > > > Yahoo! Groups Links > > > > > > > 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/
