Repetitiva mas rapida

[smoke001]

Un saludo amigos, tengo una duda y es para llenar un listview en modo reporte con unos 7Mil registros...

no se como seria conveniente, si un for next o un while do

actualmente lo uso de esta manera con for:

Set Dbr1 = Datos.Datos.Execute ("Select * from Rec")


For A = 1 To Dbr1.RecordCount


Set Lista = l1.ListItems.Add(, , Dbr1(1), , 0)
Lista.SubItems(1) = Dbr1(0)
Lista.SubItems(2) = Dbr1(3)
Lista.SubItems(3) = Dbr1(4)
Lista.SubItems(4) = Dbr1(5)
Lista.SubItems(6) = Dbr1(7)
Lista.SubItems(5) = D6(A)

If A <> 0 Then
Dbr1.MoveNext
End If

DoEvents
Barra1.Value = A

Next A


pero lleva mucho tiempo cargar la lista con muchos registros.!! no se que de otra manera me recomiendan hacer el llenado o algun control mas optimizado para esto, antes usaba MSFlexGrid pero era peor de lo lento...

muchas gracias

[pana99]

Hola.

Yo para casos asi utilizo el componente MSHFlexgird y a la propiedad DataSource le asigno el contenido de la busqueda (asi evito recorrer uno por uno y obviamente es mucho mas rapido)

Mi MSHFlexgird se llama Flex y lo utilizo asi.

Código:

Set flex.DataSource = rs 

'Rs es el resocrset. Equivlaente a tu Dbr1 creo

Espero te sirva

[Sergestux]

Iniciado por smoke001

Set Dbr1 = Datos.Datos.Execute ("Select * from Rec")

For A = 1 To Dbr1.RecordCount

...

If A <> 0 Then
Dbr1.MoveNext
End If

Next A

En un for con una sola instruccion que le quites ya ahorraste algo de tiempo, no le veo sentido a esa comparacion, ya que inicias el valor de A a partir de 1, por lo que nunca valdra 0.
Por otro lado a menos que necesites hacer algo con esos datos antes de presentarlos es mejor la opcion que te presentaron aca arriba.