Buscar un registro por diferentes campos

[[fjcg02]]

Hombre,
lo normal es poner varios edits para que el usuario pueda buscar por los campos más importantes. Luego montas la where de la query.

Código Delphi [-]
Si editNombre <>'' then 
  where := where+' campoNombre = '+ quotedStr(editNombre);
Si editDNI <>'' then 
  Si where <> '' then where:= where + 'AND '
  where := where+' campoDNI = '+ quotedStr(editDNI);
...
Y así sucesivamente

Query.SQL.Add(where);
Query Open;

Otra opción es poner un combo con los campos , seleccionar el campo por el que se quiere buscar y con un edit adicional para meter un valor volver a montar la where de la query.

Código Delphi [-]
where := 'where '+Combo.Text+ ' = '+ QueotedStr(Edit.Text)
Query.SQL.Add(where);
Query Open;

Y si quieres usar un sólo edit para varios campos, lo comentado,

SELECT * FROM TABLA WHERE CAMPO1 = '+QuotedStr(Edit.Text) +' OR CAMPO2 ='+QuotedStr(Edit.Text);

Cuidado con los valores nulos, si permites que los campos por los que buscas tengan valores nulos, tendrás que contemplarlo en la condición de la where.

Prueba y nos dices.

Un saludo

[[oscarac]]

Yo lo hago asi
voy buscando con el locate los campos que quiera y si necesito mas campos simplemente agrego las lineas con el codigo y los campos adicionales

Código Delphi [-]
procedure TfrmCatalogoAnexo.edtSearchChange(Sender: TObject);
var _Position :TBookmarkStr;
begin
  if qryAnexos.Locate('Codigo', edtSearch.Text, [loPartialKey]) then
    Begin
      _position := qryAnexos.Bookmark;
      qryAnexos.Sort := 'Codigo';
      qryAnexos.Bookmark := _position;
      dbgAnexo.Show;
    End;
  if qryAnexos.Locate('Ruc', edtSearch.Text, [loPartialKey]) then
    Begin
      _position := qryAnexos.Bookmark;
      qryAnexos.Sort := 'Ruc';
      qryAnexos.Bookmark := _position;
      dbgAnexo.show;
    End;
  If qryAnexos.Locate('RazonSocial', edtSearch.Text, [loPartialKey]) then
    Begin
      _position := qryAnexos.Bookmark;
      qryAnexos.Sort := 'RazonSocial';
      qryAnexos.Bookmark := _position;
      dbgAnexo.show;
    End;
end;

[jafera]

Gracias por vuestras respuestas.

Al final he implementado la solución de los or:

Código Delphi [-]
 
procedure TF_Inscripcions.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        If (Key=#13)  then
        begin
                F_BuscarInscripcio:=TF_BuscarInscripcio.Create(Application);
                F_BuscarInscripcio.BuscarCorredor.Close;
                F_BuscarInscripcio.BuscarCorredor.SQL.Clear;
                F_BuscarInscripcio.BuscarCorredor.SQL.Add('SELECT DORSAL, NOM_LLARG, DNI, LLICENCIA, CODIUCI, NACIO, CLUB, ABR_CLUB, PUBLICITAT, EDAT, CATEGORIA FROM CTR0003');
                F_BuscarInscripcio.BuscarCorredor.SQL.Add('WHERE NOM_LLARG STARTING :NOM');
                F_BuscarInscripcio.BuscarCorredor.SQL.Add('OR DNI STARTING :NOM');
                F_BuscarInscripcio.BuscarCorredor.SQL.Add('OR LLICENCIA STARTING :NOM');
                F_BuscarInscripcio.BuscarCorredor.SQL.Add('OR CODIUCI STARTING :NOM');
                F_BuscarInscripcio.BuscarCorredor.ParamByName('NOM').AsString:=Edit1.Text;
                F_BuscarInscripcio.BuscarCorredor.SQL.Add('ORDER BY NOM_LLARG');
                F_BuscarInscripcio.BuscarCorredor.Open;
                F_BuscarInscripcio.Show;
        end;
end;

El motivo del Edit único es por semejanza al uso de un programa que ya está funcionando en la actualidad y se hace así. Para no liar más a los usuarios imito el funcionamiento.

Saludos

Josep