Vb6 在处理时显示进度条

如果我从开始时间到结束时间从数据库获取数据，在这段时间内（处理/查询），我希望显示一个进度条（类似于“正在处理，请稍候”）。如何执行此操作？

从数据库获取数据的步骤：

应用程序向数据库发送查询

数据库分析查询并准备结果

db将结果发送回应用程序

在大多数情况下，您无法说出需要多长时间，因此，不要使用进度条，而是考虑以下组合：

• 小时玻璃鼠标指针
• 状态栏中的“请稍候”
• 小动画（风车、旋转齿轮等）

---

虽然您确实无法知道查询将花费多长时间，但您可以向用户提供时间间隔/剩余时间的概念。您可以使用VB IDE中的进度条控件。然后将其“max”属性设置为查询记录计数。在遍历记录时，增加进度条的“值”属性。这里有一个例子；（'Rs'是ADODB记录集）

---

我不确定我是否理解这个问题：这是一个实时场景，您正在对数据库运行一系列查询，当到达“结束日期”时，这些查询将停止吗？或者是一个运行时间很长的查询，您希望为该查询提供一个进度条？也许您还可以包括数据访问语句和表定义。我来这里是为了发布基本相同的内容。如果您正在等待查询，则无法说出需要多长时间。最好的选择是在窗体上设置一个小动画条，显示当前显示的上方。

        ProgressBar1.Max = Rs.RecordCount - 1

        For P = 0 To .RecordCount - 1
           ProgressBar1.Value = P

            'some process here
            Rs.MoveNext

        Next P