Busqueda de datos en una BD con DATASET

[PepeLolo]

Hola,

Cuando el dataset tiene pocos registros el metodo locate funciona bien, el problema aparece cuando el dataset tiene muchos registros(unos miles), es en ese momento cuando se vuelve deficiente.

Cuando se realiza una búsqueda en un dataset, es más apropiado usar una sentencia SQL al estilo:

Código SQL [-]
select * from TuTabla where codigo = :TuvaloraBuscar

puedes construirla en tiempo de ejecución, al estilo:
Sí se buscan cadenas utilizar los comodines "%" como

Código Delphi [-]
  "where campo =  %' + QuotedStr(Valor) + '%'

Si la búsqueda se realiza por multiples campos tener una SQL estandard al estilo :

Código SQL [-]
Select * from TuTabla where 1=1

y añadir el resto de condiciones en tiempo de ejecución ya solo con la clausula ' and '.

Al estilo :

Código Delphi [-]
  ZQuery.Close:
  ZQuery.sql.Clear;
  ZQuery.sql.Text := 'Select * from TuTabla where 1=1';
  if CampoBusqueda <> '' then
     ZQuery.sql.Add('and campo = ' + CampoBusqueda.Text);
  ....
  try
     ZQuery.disableControls;
     ZQuery.open;
  finally
     ZQuery.EnableControls;
  end;

espero te sirva