Carga mas rapida de un MSHFLEXGRID

[Adrián Jiménez Marchena]

Tengo un problema de cargado de datos.

Requiero cargar los datos de una tabla de access a mi
flexgrid y es muy tardado. Una es por el procesador
Pentium y lo mejore con el objeto DATA1 para asi clonarlo
en la flex,pero necesito que sea mas veloz el cargado, me
pueden recomendar algo.

Saludos y Gracias.

[Daniel Oliver Rojas]

Que no utilizes un flexgrid, ademas de ser tardado si la tabla tiene mas
10000 registros no te los va a gargar todos
mejor usa un DataGrid o un DBgrid, la carga es mas rapida por que solo carga
una capa de registros a la ves,
aunque de todos modos con muchos registros el DbGrid es lento ya que utiliza
la propiedad recordcount
del recordset y eso se lleva su tiempo.

Ademas te has puesto a pensar?
que usario necesita ver tantos registros al mismo tiempo, no seria mejor
pedirle algun tipo de criterio al usuario
para que vea solo lo que necesita.

[Ramón Alberto Triay Espinosa]

Además del otro komentario, podrías también hacer una clase de 'paginación'
de recordsets... bajando primero los primeros, no se, digamos 20 si
muestras de 10 en 10 . Además podrías
si puedes, como dijeron, utilizar algún criterio que te pueda estabnlecer
mas o menos el dato
que el usuario busca y traer de primero los '20 + probables'.

SALUDOS!!!
rtriay
:)

"Adrián Jiménez Marchena" <march...@yahoo.com> wrote in message
news:c6ca01c27b07$6545dca0$3aef2ecf@TKMSFTNGXA09...

[Morgan]

A mi me trono con 29,950 registros, obviamente es una locura de información
y no hay quien pueda checar la información, pero a mi "loco" cliente se le
ocurrio ver que pasaba y pues eso, trono, lo que me quedo fue usar un
datagrid y asunto arreglado, a demas mucho mas rapido...

Saludos Morgan

"Daniel Oliver Rojas" <dint...@hotmail.com> escribió en el mensaje
news:uxHkyvweCHA.776@tkmsftngp08...

[Grabi]

Prueba ésto, creo que es lo más rápido que puede cargar un flexgrid.
- crea un nuevo proyecto, con un formulario en el que insertas un flexgrid
(msflexgrid1) y 2 botones (command1 y command2). Luego pega este código:

Option Explicit
Const maxX As Long = 5
Const maxY As Long = 100
Private Sub Command1_Click()
Dim X As Long, Y As Long, Inicio As Double
MSFlexGrid1.Rows = 1: MSFlexGrid1.Cols = 1
MSFlexGrid1.Rows = maxY + 1: MSFlexGrid1.Cols = maxX + 1
Inicio = Timer
For X = 1 To maxX
For Y = 1 To maxY
MSFlexGrid1.Row = Y
MSFlexGrid1.Col = X
MSFlexGrid1.Text = "Item " & X & "," & Y
DoEvents
Next
Next
MsgBox "Tiempo: " & Timer - Inicio & " segundos."
End Sub

Private Sub Command2_Click()
Dim X As Long, Y As Long, Inicio As Double, Texto As String
MSFlexGrid1.Rows = 1: MSFlexGrid1.Cols = 1
MSFlexGrid1.Rows = maxY + 1: MSFlexGrid1.Cols = maxX + 1
Inicio = Timer
For X = 1 To maxY
For Y = 1 To maxX
Texto = Texto & "Item " & X & "," & Y & vbTab
DoEvents
Next
Texto = Texto & vbCr
Next
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 1
MSFlexGrid1.RowSel = maxY
MSFlexGrid1.ColSel = maxX
MSFlexGrid1.Clip = Texto
MsgBox "Tiempo: " & Timer - Inicio & " segundos."
End Sub

Private Sub Form_Load()
MSFlexGrid1.Rows = maxY + 1: MSFlexGrid1.Cols = maxX + 1
Command1.Caption = "Método 1"
Command2.Caption = "Método 2"
End Sub

--
Un saludo.
Emilio Robles - Granada (España)
http://www.emiliorobles.com
--
"Adrián Jiménez Marchena" <march...@yahoo.com> escribió en el mensaje
news:c6ca01c27b07$6545dca0$3aef2ecf@TKMSFTNGXA09...