请问读取数据时加进度条显示进度具体的实现步骤

我用ADO做了一个系统，数据库是SQL   2000   的  
          Set   rs1   =   New   ADODB.Recordset  
          With   rs1  
                .ActiveConnection   =   strConnect  
                .LockType   =   adLockOptimistic  
                .open   sql  
          End   With  
           
          If   Not   rs1.EOF   Then  
                Set   Me.Recordset   =   rs1  
                Me.id.ControlSource   =   "id"  
                Me.序列号.ControlSource   =   Trim("number")  
                ...  
          end   if  
  以上是读取数据的代码，但是我的数据量特别的大（约有100万条记录），想在显示数据记录的时候加上一个进度条，同时显示百份比，当数据完全读出来时就自动关掉进度条。如何做？我搜了旧贴，但是没有我要的答案，都是给它预估一个max值的，这样就不准确了。  
          谢谢！  
  问题点数：20、回复次数：1Top

1 楼hot1kang1（网站制作,系统开发,记得-http://3q2008.Com）回复于 2005-08-03 17:02:15 得分 20

部分代码希望能有启发  
          If   sngPercent   =   0   Then   frmBar.Show  
                      sngPercent   =   sngPercent   +   100   /   .RecordCount  
                      BarPercent   Format(sngPercent,   "0.00"),   "正在读取数据……"  
   
   
   
   
                      sngPercent   =   0  
                      Unload   frmBar  
   
   
   
   
  Public   Function   BarPercent(intPercent   As   Single,   BarLab   )  
  DoEvents  
  If   intPercent   =   100   Or   intPercent   >   100   Then   intPercent   =   100  
   
            With   frmBar  
                      If   intPercent   =   0   Then   .Show  
                      .Shape1.Width   =   .Picture1.Width   *   intPercent   /   100   '进度条的宽是图片的%多少  
                      .LabPercent(0).Caption   =   intPercent   &   "%"  
                      .LabPercent(1).Caption   =   intPercent   &   "%"  
                      .LabCaption   =   BarLab  
            End   With  
   
  End   Function  
   
   
   
  Private   Sub   Form_Load()  
    '//   将鼠标指针显示为“沙漏”（表示等待状态）  
        Screen.MousePointer   =   vbHourglass  
  End   Sub  
   
  Private   Sub   Form_Unload(Cancel   As   Integer)  
  Screen.MousePointer   =   0  
  End   Sub  
  Top

相关问题

• 数据
• me
• intpercent
• sngpercent
• 进度条
• 显示
• rs
• sub
• then

• 帖主：ahongzhu
• hot1kang1

• Visual Basic类图书
• Visual Basic类源码下载