Colocar progressbar a seteo de recordset - Datagrid

[lucius]

Probando una bd de 1millon de registros mi aplicacion demora como 30segundos para cargar el datagrid, no es que haya necesidad de ver el millon de registros pero he visto otros grids e incluso otros controles de pago que tienen la opcion de mostrar un progressbar, creo que tambien lo he visto con los Listview.

Se pude colocar un progressbar para esperar el rs.Open "" ya que ahi es donde demora. El seteo al datagrid o mshflexgrid es instantaneo.

Código: [Seleccionar]

Dim rsAs Recordset

Private Sub Command1_Click()

Set rs = New Recordset
rs.Open "SELECT * FROM pvt", cnx, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs

Label100.Caption = "Numero de registros encontrados : " & rs.RecordCount
End Sub


[YAcosta]

Pero la demora no es de
set a grid
sino de
rs.Open.

Por tanto ya no es bronca del grid. Es de la carga de la consulta hacia el rs. Si a eso le metes un progressbar sera mas lento aun (por el recorrido).

Es un tema interesante.