bro, coba gini :
listbox1.clear 'anggaplah kita mo ngisi listbox nih...
dim rs as ADODB.recordset, i as long, sSQL as string
sSQL = "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 jumlah
recordcount
ProgressBar1.Max = rs.recordcount
ProgressBar1.Value = 0
'trus lakukanlah perulangan bwt ngisi data -- plus dengan majuin
progressbarnya
for i = 1 to rs.recordcount
ProgressBar1.value = i
Listbox1.add rs(0).value
rs.movenext
next i
else
'klo data hasil select kosong, progressbar dipenuhin aja..
ProgressBar1.Max = 1
ProgressBar1.Value = 1
end if
rs.close
set rs = nothing
'selesei deh. ^_^
semoga hal seperti itu yg dimaksutkan oleh TS.
--
wassalam,
Rizky Prihanto
http://www.software-arsitek.web.id
NB : 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]
