dim i as long i=0 DoEvents pb.max=rsAsal.recordCount do until rs.eof DoEvents <==tambahan coding. i=i+1 ... ... 'field-field yang akan ditransfer ... PB.value=i loop
regard, Destroyer_maniac --- In [email protected], "toviconline" <[EMAIL PROTECTED]> wrote: > > Teman2 yg terhormat:-) > > Saya melakukan proses transfer data dari data foxpro ke sql server, > dan menggunakan progress bar untuk mengetahui indikator berapa lamanya > transfer, permasalahannya apabila datanya terlalu banyak yang di > transfer sekitar 15000 record maka pada saat running di tengah2 jalan > program seperti heng tetapi sebenarnya tidak, jadi terlihat progress > barnya berhenti dan not responding, tetapi apabila ditunggu sampai > selesai ga masalah, dan kalau datanya tidak terlalu banyak juga ga > masalah,saya menggunakan code seperti ini: > > dim i as long > > i=0 > DoEvents > pb.max=rsAsal.recordCount > do until rs.eof > i=i+1 > ... > ... 'field-field yang akan ditransfer > ... > PB.value=i > loop > > saya ingin programnya sperti Import & Export bawaannya SQL server, > biarpun datanya banyak progressbarnya tetap berjalan, bagaimana > caranya mengatasinya ya...? > > > > Thx! > > > Tovic > 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/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/Programmer-VB/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> 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/
