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:
> From: IdiOot [EMAIL PROTECTED]
> Subject: [indoprog-vb] Re: query dan progressbar
> To: [email protected]
> Date: Saturday, May 31, 2008, 4:02 AM
>
>
>
>
>
>
>
>
>
>
>
> Dear arif,
>
>
>
> Setahu saya sih kalo menghubungkan proses eksekusi query dengan
>
> progres bar belum ada, tapi ga tau deh kalo menurut teman-teman yang
lain.
>
>
>
> Tapi kalo boleh saya sarankan apabila query anda banyak, sebaiknya
>
> anda membuat stored procedure agar tidak terlalu membebani jaringan
>
> saat anda melakukan query tersebut.
>
>
>
> --- In indoprog-vb@ yahoogroups. com, arif ipul <arifaquarius@
...> wrote:
>
> >
>
> > MIME-Version: 1.0
>
> > Content-Type: text/plain; charset=us-ascii
>
> >
>
> > Dear Suhu-suhu VB...
>
> >
>
> > dalam program sy terdapat query, dan query itu sangat banyak,
>
> sehingga pada saat eksekusi membutuhkan waktu beberapa menit.
>
> pertanyaan saya adalah bagaimana menghubungkan proses eksekusi dengan
>
> progres bar, dimana setelah selesai memproses hasil queri progresbar
>
> menjadi 100% dan menampilkan pesan proses selesai.
>
> >
>
> > Mohon Pencerahannya. ..
>
> >
>
> > Trima kasih....
>
> >
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
