存储过程和进度条

wouldfly 2003-08-28 06:39:17

vb应该是单进程的，如果我要执行一个存储过程（就算需要30秒吧），此时程序应该被这个进程占用，进度条将无法实现.................

请问哪位高人有解决办法。在线等待！

...全文

60 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

wouldfly 2003-09-01

打赏
举报

上面的兄弟能不能说得清楚些

wouldfly 2003-08-30

打赏
举报

上面的兄弟能不能说得清楚些

dsclub 2003-08-30

打赏
举报

呵呵，做个进程外服务器，让它去办...

用户感觉存储费时0！

Sunron128 2003-08-30

打赏
举报

With cmd
.CommandText = "Proc_MI_Account_Sales_GP"
.CommandType = adCmdStoredProc
.CommandTimeout = 120
.ActiveConnection = cn

.Parameters.Refresh
.Parameters("@FromPeriod").Value = Replace(FromPeriod, "/", "")
.Parameters("@ToPeriod").Value = Replace(ToPeriod, "/", "")
End With

cmd.Execute

改寫成:
cn.Execute "Proc_MI_Account_Sales_GP " & Replace(FromPeriod, "/", "") & " " & Replace(ToPeriod, "/", ""),,adAsyncExecute
while cn.State = (adStateOpen Or adStateExecuting)
StatusBar.Value = Format(StatusBar.Value,"0.0")
doEvents
wend

wouldfly 2003-08-30

打赏
举报

cmd.Execute这个语句执行时间过长，DoEvents常用于循环语句中，对于这种不能用吧。

wouldfly 2003-08-30

打赏
举报

Public Function FuncGetData(ByVal FromPeriod As String, ByVal ToPeriod As String) As Boolean

Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim connStr As String

FuncGetData = False

On Error GoTo ErrHandler

connStr = connStrBudget

Set cn = New ADODB.Connection
cn.Open connStr

Set cmd = New ADODB.Command

With cmd
.CommandText = "Proc_MI_Account_Sales_GP"
.CommandType = adCmdStoredProc
.CommandTimeout = 120
.ActiveConnection = cn

.Parameters.Refresh
.Parameters("@FromPeriod").Value = Replace(FromPeriod, "/", "")
.Parameters("@ToPeriod").Value = Replace(ToPeriod, "/", "")
End With

cmd.Execute '就是這句執行時間太長

FuncGetData = True

Set cmd = Nothing
Set cn = Nothing

Exit Function

ErrHandler:

Set cmd = Nothing
Set cn = Nothing
Err.Raise vbObjectError, "clsGetData - FuncGetData", Err.Description

End Function

wouldfly 2003-08-30