Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: lucius en Octubre 21, 2011, 02:09:56 pm

Título: Colocar progressbar a seteo de recordset - Datagrid
Publicado por: lucius en Octubre 21, 2011, 02:09:56 pm

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


Título: Re:Colocar progressbar a seteo de recordset - Datagrid
Publicado por: YAcosta en Octubre 21, 2011, 03:16:56 pm

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.