mysql - vb6-如何在sql查询上添加进度条(mysql)

Question

我在表单中有以下代码，只要查询仍在执行，就会挂起表单:

Public Function OpenRS(strSql As String) As ADODB.Recordset
Dim rs As ADODB.Recordset

        Set rs = New ADODB.Recordset
        rs.CursorLocation = adUseClient
        rs.CursorType = adOpenDynamic

        If IsNull(Cn) = False Then
            rs.Open strSql, Cn, adOpenKeyset, adLockPessimistic ', adAsyncExecute
        End If

        Set OpenRS = rs

End Function

尝试添加 adAsyncExecute 但表单关闭。

Dim RSC As ADODB.Recordset
    Set RSC = Nothing
    Set RSC = Cn.Execute("CALL SP_Rank_by_Company('" & MyDate1 & "','" & MyDate2 & "','DELETE')", , adAsyncExecute)

    While Cn.State = 4
        If frmLoadingReports.picLoading.Width = 5320 Then
            frmLoadingReports.picLoading.Width = 0
        Else
            frmLoadingReports.picLoading.Width = frmLoadingReports.picLoading.Width + 100
        End If
        'count total records
        'get the current number of records processed
        DoEvents
    Wend

如何为其添加进度条？

谢谢!

Answer 1

MySQL 不会告诉您查询距离完成有多近，它只能告诉您查询已经运行了多长时间或阻碍进度的因素，例如其他查询阻碍了它。

如果您有一个真正长时间运行的查询，则需要猜测计算 ETA 需要多长时间。