здравствуйте.
Кто-нибудь пробывал SQL запрос SELECT подвязать к прогресс бару? чтобы прогресс бар показывал сам процесс селекта.
Понятно, что прогрессбару нужен max, и тут без .recordcount можно обойтись?
Public WithEvents rsEvents As ADODB.Recordset
Public bComplete As Boolean
Private Sub rsEvents_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Me.lblRecordCount.Caption = rsEvents.RecordCount
End Sub
Private Sub rsEvents_FieldChangeComplete(ByVal cFields As Long, ByVal Fields As Variant, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
bComplete = True
End Sub
sub RefreshRS()
Dim cn As ADODB.Connection
If Not bComplete And Not Me.rsEvents Is Nothing Then
Me.rsEvents.Cancel
Else
bComplete = False
End If
Set cn = New ADODB.Connection
cn.CommandTimeout = 0
cn.ConnectionTimeout = 30
cn.CursorLocation = adUseClient
cn.Open modADO.GetConnectionString
Set rsEvents = New ADODB.Recordset
rsEvents.CursorLocation = adUseClient
rsEvents.PageSize = 100
rsEvents.CacheSize = 1000
Set rsEvents.ActiveConnection = cn
rsEvents.Open SQL, , adOpenStatic, adLockReadOnly, adAsyncFetchNonBlocking
Me.lblRecordCount.Caption = rsEvents.RecordCount
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 1