Mensaje enviado por Luis Emilio La Rosa Bermudez <sauron@sic.esigto.cu>


Usa el metodo GetRows del recordset.
Te devuelve una matrix Variant bidimensional y es el metodo mas rapido.
Usa un cursor ForwardOnly y el tipo de bloqueo Optimistic


----- Original Message -----
From: Cómputos
To: Lista de Visual Basic
Sent: Friday, September 07, 2001 9:04 AM
Subject: (VB-ESP) ¿Como llenar una grilla más rapido?

Estimados colisteros:

Estoy llenando un MsgFlexGrid con los valores de un recordset. El problemas es que para agregar 6000 registros tarda más de 20 segundos utilizando SQL Server como motor. La conexión se hace a través de una clase y el codigo es el siguiente.

dim cn as clsConexion
dim rs as ADODB.Recordset
set rs = cn.DevolverRecordset(Consulta SQL)
Grilla.Redraw = False
Do While rs.Eof = False
    Grilla.Additem rs.Fields(0) & vbTab & rs.Fields(1)....
    rs.MoveNext
Loop
Grilla.Redraw = True

¿Existe alguna forma de hacerlo más rápido?

Desde ya muchas gracias