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]
