progress bar & SELECT

[shady]

здравствуйте.
Кто-нибудь пробывал SQL запрос SELECT подвязать к прогресс бару? чтобы прогресс бар показывал сам процесс селекта.
Понятно, что прогрессбару нужен max, и тут без .recordcount можно обойтись?

[Sirik]

по-моему сама процедура выборки занимает гараздо меньше времени, чем работа с самим рекордсетом.
поэтому можно поступить так: выставляешь max у bar'а в 100, и юзаешь .PercentPosition

[shady]

у стандартного bar'a нет .PercentPosition

[Sirik]

зато у рекордсета есть

[shady]

и у рекордсета нет .
ну а если серьезно, то что делать-то?

[Sirik]

как нет? конечно есть!

[shady]

да нет такого у рекордсета, и у прогресс бара нету с чем-то спутали наверное

[Sirik]

ага, если у тебя рекорсет DAO - есть, иначе - нет

[shady]

рекордсет АДО.

[Konst_One]

делается ассинхронный запрос и ловится событие:

Код: Выделить всё

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

ну а прикрутить прогресс-бар дело техники