如果我的VB正在执行一段较长时间的SQL语句,有没有办法做一个进度条呢?
因为我的程序经常要从数据服务器上取数据,且记录数很多,时间比较长,得到数据后,有些情况还要计算才能显示到表格中,但是这一过程中,操作者不知道,经常在未执行完就给整个程序结束掉了。
我在想,有没有办法给它搞个进度条,这样就可解决此问题!
最好能给出例子
谢谢!~~
例1:
for n=0 to 10000000
n=n+1
next
例2:
sql="select * from information"
rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Else
While Not rs.EOF
N = N + rs!库存
N1 = CDec(N1) + CDec(rs!库存 * rs!零价)
rs.MoveNext
Wend
StatusBar1.Panels(1) = "库存数量:" & N
StatusBar1.Panels(2) = "库存金额:" & N1
如上述
在例1或例2中,有没有可能做个进度条,让操作者知道要等多久。