VB中执行存贮过程,如何在窗体上放一个进度条呀?不一定真实反应进度,只要能来回动就行,如何实现呀?

Question

VB中执行存贮过程,如何在窗体上放一个进度条呀?不一定真实反应进度,只要能来回动就行,如何实现呀?
-----------------------------
也就是在执行存贮过程的同时,这个进度条就自已不断的变化,走到头再从头来.
不知如何实现.
一直无法实现.

Answer 1

在组件里选common control 6.0 控件箱里就有一个进度条的控件了,他的value属性控制"来回动"

Answer 2

在组件里选common control 6.0 控件箱里就有一个进度条的控件了,他的value属性控制"来回动"
-----------------
这个我知道,关键是如何使进度条与存贮过程同时进行呀?我用循环让进度条动没问题,但是存贮过程不会执行呀,要等进度条完成滚动才执行存贮过程,不能满足我的要求呀
即这是两个进程,一前一后,如何实现两个进程同步进行.而且存贮过程的进程结束后,同时结束进度条的滚动进程.
谢谢再.

Answer 3

http://www.mndsoft.com/blog/article.asp?id=2选那个搜索样式的进度条

Answer 4

谢,我知道如何让一个进度条单独的工作,
1.可以用timer控件,控制进度条来回滚动.
2.可以写一个循环来处理,让它来回滚动.可是我问的问题的关键是如何让进度条一不停的滚动的同时在同步的执行存贮过程.
我不知如何让两者同时进度,而且当存贮过程执行完毕后,就停止进度条的滚动或者让进度条不可见也行.[最好停止滚动,这样好些,可以释放资源吗!]
谢谢了.

Answer 5

下面代码你试试:加入Timer计时控件,其属性Interval=8000(可以改动)
别忘了还要加一个进度条控件:Microsoft Windows Common Controls 6.0
Private t As Integer
Private Sub Form_Load()
Timer1.Enabled = True
ProgressBar1.Max = 5
t = 0
End Sub
Private Sub Timer1_Timer()
t = t + 1
ProgressBar1.Value = t
If t = 5 Then '等于5秒时显示文本控件
Timer1.Enabled = False
Label1.Visible = True
End If
End Sub
Private Sub Timer2_Timer()
If Timer - a >= 1 Then
Unload Me
End If
End Sub

Answer 6

用Cn.Execute m_strQry, , adAsyncExecute执行存储过程
最后的那个参数代表存储过程异步执行

Answer 7

我看--睡美人--的意思，他的真实意图是在存储过程执行的过程中，进度条的值增加比较均匀，同时在存储过程结束的时候进度条满。
就SQL Server 2000这个过程是不能实现的。原因如下：因为存储过程是执行在数据库服务程序内，在这整个的执行过程中是不对外发送信息的，所以就无从知道存储过程执行的进度。这也也就无法保证进度条的匀速运行。
纯属个人观点  如有问题  欢迎来信 [email protected]