kenapa gak coba pake thread? ----- Reply to All the Original Message ----- Author: indoprog-vb To: indoprog-vb Date: 06/09/2008 04:50:17 PM Subject: Re: [indoprog-vb] Re: query dan progressbar
bro, coba gini :listbox1.clear 'anggaplah kita mo ngisi listbox nih...dim rs as ADODB.recordset, i as long, sSQL as stringsSQL = "SELECT * FROM apa_aja" 'ini querynya...set rs = db.Execute(sSQL)if rs.recordcount > 1 then'setting initial state dari progressbar n batas atas-nya dengan jumlahrecordcountProgressBar1.Max = rs.recordcountProgressBar1.Value = 0'trus lakukanlah perulangan bwt ngisi data -- plus dengan majuinprogressbarnyafor i = 1 to rs.recordcountProgressBar1.value = iListbox1.add rs(0).valuers.movenextnext ielse'klo data hasil select kosong, progressbar dipenuhin aja..ProgressBar1.Max = 1ProgressBar1.Value = 1end ifrs.closeset rs = nothing'selesei deh. ^_^semoga hal seperti itu yg dimaksutkan oleh TS.-- wassalam,Rizky Prihanto http://www.software-arsitek.web.idNB : utk Aiska, thanx reference API CopyFileEx nya -- cukup memberikan ide.hehehe. Makasii...2008/6/9 IdiOot <[EMAIL PROTECTED]>:> maksud saya menghubungkan proses eksekusi query dengan progres bar> adalah ketika query tersebut sedang diproses bukan setelah query> tersebut selesai diproses.>> kalau melihat dari source tersebut, progress bar dimuat ketika proses> eksekusinya telah selesai (cmd.Execute), yang kemudian di looping pada> masing-masing record yang ditampilkan pada progress bar.>> coba perhatikan 2 code berikut :>> Cara 1 :> Ret = CopyFileEx("c:\filesumber.txt", "c:\fileTujuan.txt",> AddressOf CopyProgress, ByVal 0&, bCancel, COPY_FILE_RESTARTABLE)>> untuk melihat seluruh isi code dapat dilihat di>> http://tech.groups.yahoo.com/group/indoprog-vb/message/44122>> cara 2> Ret = FileCopy("c:\filesumber.txt", "c:\fileTujuan.txt")> maxprogress = FileLen("c:\filesumber.txt")> ProgressBar1.Value = 0> ProgressBar1.max = maxprogress> for i = 0 to maxprogress> ProgressBar1.Value = ProgressBar1.Value + 1> Next i>> Dari kedua cara diatas fungsinya adalah sama untuk membuat progress> pada file transfer. namun pada cara 1 progress dibuat dengan> mendelegasikan fungsi CopyProgress (AddressOf CopyProgress) dimana> progress bar tersebut akan sinkron dengan file yang ditransfer.> sedangkan cara kedua adalah membuat progress ketika file tersebut> selesai ditransfer dan kemudian di loop berdasarkan ukuran file.> padahal sebenarnya file tersebut telah dieksekusi pada perintah> FileCopy("c:\filesumber.txt", "c:\fileTujuan.txt")>> jika dibandingkan dengan dengan code yang saudara tampilkan tersebut> terhadap query, saudara menggunakan cara kedua. Dimana query tersebut> telah dieksekusi pada Set rs = cmd.Execute yang kemudian dilakukan> loop atas record tersebut sehingga tidak singkron dengan eksekusi. dan> hanya akan memperlambat proses karena dilakukan 2 kali.>> Saya telah melakukan riset dan percobaan terhadap query namun sampai> saat ini masih belum bisa, maklum saya belajar secara otodidak dan> tidak memiliki background IT.>> Jika anda bisa membuat hal tersebut, Please let me know. Thank's>> Salam,>> Aiska Hendra>> --- In [email protected], andreas sulistiyo> <[EMAIL PROTECTED]> wrote:> >> > untuk menghubungkan proses eksekusi query dengan> >> > progres bar SUDAH ADA DONG!> > ni saya kasih tau rahasianya! : misal querynya cari bahan baku di> table inventory.> > dan sediakan khusus form progressform yang isinya hanya progressbar> aja (formnya kecil disesuaikan tinggi dan lebar progressbarnya> >> > mySQL = "select * from inventory where jenis='BAHANBAKU'"> > cmd.CommandText = mySQL> > cmd.CommandType = adCmdText> > Set rs = cmd.Execute> > Dim maxprogress As Integer> > maxprogress = 1> > Do Until rs.EOF> > maxprogress = maxprogress + 1> > rs.MoveNext> > Loop> > progressform.ProgressBar1.Value = 0> > progressform.ProgressBar1.max = maxprogress> >> > cmd.CommandText = mySQL> > cmd.CommandType = adCmdText> > Set rs = cmd.Execute> > Do While Not rs.EOF> > progressform.Show> > progressform.SetFocus> > progressform.ProgressBar1.Value => Str(progressform.ProgressBar1.Value) + 1> > rs.MoveNext> > Loop> > progressform.hide> >> > KELAR!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!> > selamat mecoba> > www.indosystem.net masih membuthkan programmer> > silahkan kirim resume Anda> > -andrey, senior programmer indosystem.net-> > --- On Sat, 5/31/08, IdiOot [EMAIL PROTECTED] wrote:>[Non-text portions of this message have been removed] Messages in this topic (6) Reply (via web post) | Start a new topic Messages | Files | Photos | Polls Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] forum diskusi lainnya kunjungi :http://www.geocities.com/indoprogMARKETPLACEBlockbuster is giving away a free trial of Blockbuster Total Access to smart movie lovers like you.
