查询或统计大量数据集合时 rs.open 后 界面无响应了

Question

请问 如何防止此现象呢 大家都是怎么做的

Answer 1

Dim WithEvents rs As ADODB.RecordsetPrivate Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    ProgressBar1.Max = MaxProgress
    ProgressBar1.Value = Progress
End Sub

Answer 2

Dim WithEvents rs As ADODB.RecordsetPrivate Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
      ProgressBar1.Visible = True
      ProgressBar1.Max = MaxProgress
      ProgressBar1.Value = Progress
      ProgressBar1.ReFresh
End SubPrivate Sub rs_FetchComplete(ByVal pError As ADODB.Error, _
                                adStatus As ADODB.EventStatusEnum, _
                                ByVal pRecordset As ADODB.Recordset)
                             
      If adStatus <> adStatusOK Then
         Debug.Print "Failed"
         MsgBox "Error: " & pError.Number & vbCrlf & pError.Description, , "Failed" 
      Else
         Set DataGrid1.DataSource = pRecordset
         MsgBox "Done"
      End If
      ProgressBar1.Visible = False   
End Sub

Answer 3

真的很喜欢 这个板块 和这里的人们 比起delphi 板块人很热情 问题都能得到很好解决 还经常遇到 "of123()"  "家人" 大哥  好荣幸