El problema creo que es otro:
Cuando abres al ADOQuery, solo se trae algunos registros a memoria, para mostrarlos en los componentes que sea necesario (DBEdit, DBGrid, etc.)
Cuando le das a buscar un registro en concreto, debe ir hasta ese registro, cargando todos los anteriores en memoria para poder ir hacia atrás.
La "solución" sería abrir el ADOQuery e ir al final y luego volver al principio. Esto tardará 7 segundos, pero las búsquedas serán rápidas, porque tendrá todos los registros en memoria.
Código Delphi
[-]
with ADOQuery do
begin
Open;
Last;
First;
end
De todos modos, quizás sea mejor buscar otra forma de trabajar. Cuando hay muchos datos, lo normal es trabajar solo con un subconjunto de ellos o con solo uno a la vez.
Ejemplo:
- Si tienes 50.000 artículos, quizás puedas dividirlo en familias y luego moverte dentro de estos.
- Si tienes 50.000 artículos, puedes tener una tabla con un solo campo código del articulo y otra unida a travez del DataSource con todos los datos del artículo. El locate en una tabla pequeña será mucho más rápido que traerse todos los datos del articulo
ADOQCodigoArticulo
Codigo
A1
A2
A3
...
A50000
ADOQDatosArticulo
Codigo, Descripcion, Precio, etc.
A1, Articulo 1, 1, ...
A2, Articulo 2', 2, ...
A3, Articulo 3, 3, ...
...
A50000, Articulo 50000, 22, ...