Necesito ayuda, os explico tengo una tabla de una base de datos .mdb acces97, que tiene mas de 100.000 entradas.

El problema es q al rincipio del programa devo cargar un grid con todo ello y me tardar unos 20 segunods en aparecer, como podria hacer para q se cargara mas rapido???
aki el codigo q utilizo

Adodc1.RecordSource = "select * from ficha" & tabla & " order by codigo"
Adodc1.Refresh

gracias!!!!

Lo suyo no es traerse todos los datos de la tabla y mostrarlos de golpe (para que si solo visualizaras 15 o 20 registros en la parte visible del grid que desplaces?). Lo que tienes que hacer es paginar, dicese, cargar por grupos registros. Por ejemplo, primero lees los primeros 15 registros y los añades al grid, despues, cuando quieras visualizar los siguientes coges y lees los siguientes 15 registros y actualizas el grid de nuevo (con actualizar me refiero a que solo muestres los ultimos registros que traes, no que los acumules con los anteriores). De esta forma ganaras en velocidad, rendimiento y ahorraras muchos recursos.

Salu2...

gracias por tu consejo, me servira para otros sitios , pr en este necesito cargar la tabla entera por diversos motivos

Hola, lo que hace demorar la carga de datos es la clausula Order By. Si no te es imprescindible la puedes quitar.


De todas formas, 20 segundos me parece demasiado. He hecho la prueba con una tabla de mas de 130.000 registros y 17 campos y no me tarda mas de 9 segundos.


Quizá sea la memoria del equipo o quizá la conexión. Si pones la que utilizas podría comprobarlo.


Saludos

Anibal distes en el clavo, era cula del order by, ademas utilizado de forma innecesaria, costumbre de soler trabajar con bases de datos mas peqeñas, ahora solo tarda 3 segundo q lo veo muy correcto, la conexion la hago graficamente desde las propiedades , pero si tu me enseñas una manera por codigo mas eficaz estare abierto a cualquier sugerencia.

Muchas gracias

sino es muxo molestar, hay una cosa cn la q no me consigo hacer os explico.

Despues de cargar esta tabla tengo un textbox donde se puede poner un codigo , q se busca en la tabla y qeda señalado, con la flecha delante de la fila, pr lo q me gustaría es q toda la fila la pudiese pintar de un color . es posible?

aki el codigo de la búsqeda:

Private Sub Text1_Change()
If Text1 <> "" Then
'Fltra por el campo especificado
Adodc1.Recordset.Find ("codigo" & " LIKE '" + Text1 + "%'")
Set DataGrid1.DataSource = Adodc1.Recordset
Else
' Limpia el Filtro
Adodc1.Recordset.Filter = ""
Set DataGrid1.DataSource = Adodc1.Recordset
End If
End Sub

si es necesario abrire un nuevo post