任务栏进度条如何处理

简

由于记录五六千条，在更新记录时花费的时间较长，所以我需要采用进度条来提示更新情况。为减少窗体，我参考todaynew老汉的《杏花村——状态栏进度条》，但我不知状态栏进度条的代码放在哪里。

我的代码如下：

  ssql = "update tblA,tblname set tblA.姓名=tblname.姓名 where tblA.序号=tblname.序号"
    CurrentDb.Execute ssql


状态栏进度条的代码如下：

Dim i As Long
Dim j As String
Dim str As String
For i = 1 To 1000000
    j = Format(Round(i / 1000000, 2) * 100, "@@@%")
    If i Mod 100000 = 0 Then
        str = str & "■"
        Me.进度条.StatusBarText = j & "  " & str
    End If
Next
Me.进度条.StatusBarText = "处理完毕"


请问，状态栏进度条的代码应放在SQL语句的哪个地方才正确呢。

风中漫步

那个SQL语句用不上这个进度提示.应该是SQL没有给接口或方法,也没见过有人用.6000条记录对更新查询应该很快的.
你可以弄个等待进度条,在运行SQL前执行,结束后停止.给用户以程序正在运行的提示.

roych

在查询中是没法处理状态栏的，因为需要运行完毕才能判断耗时多少。计算出耗时后，再显示状态栏就显得多余了。换句话说，百分比是不好计算的。
折中一点的做法是：执行前，先设置状态栏文字。执行完毕后，再显示一次状态栏文字：
Me.进度条.StatusBarText="现在开始执行更新查询，可能需要1-2分钟"
ssql = "update tblA,tblname set tblA.姓名=tblname.姓名 where tblA.序号=tblname.序号"
    CurrentDb.Execute ssql
Me.进度条.StatusBarText="处理完毕"
当然，如果是多个查询的话，倒是可以把每一步按比例设置为百分比。此外，可以考虑改成ADO，根据更新记录的条数来设置，详细请参考以下帖子：
http://www.office-cn.net/thread-108730-1-1.html

dragonszr

如果是多个查询如何实现呢？