Sentencia SQL con varios campos

[ecfisa]

Hola Delphitest.

Si no entendí mal lo que consultas, podrías hacer algo parecido a este ejemplo:

Código Delphi [-]
begin
  with tu_Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT APELLIDO, NOMBRE, DNI FROM CLIENTES');
    SQL.Add('WHERE APELLIDO LIKE :PAPE AND NOMBRE LIKE :PNOM AND DNI LIKE :PDNI');
    ParamByName('PAPE').AsString:= '%'+Edit1.Text+'%';
    ParamByName('PNOM').AsString:= '%'+Edit2.Text+'%';
    ParamByName('PDNI').AsString:= '%'+Edit3.Text+'%';
    Open;
  end;
end;

Toma en cuenta que la sintáxis puede variar un poco de acuerdo a los componentes que estes usando.

Saludos

[Delphitest]

Muchas Gracias por tu ayuda.

He intentado probar pero efectivamente algo falla en la sintaxis, uso ADO

He puesto esto:

Código Delphi [-]
    TBuscarCLiente.Close;
    TBuscarCliente.SQL.Clear;
    TBuscarCliente.SQL.Add('SELECT NOMBRE, APELLIDOS, DNI FROM CLIENTES');
    TBuscarCliente.SQL.Add('WHERE NOMBRE LIKE :PNON AND APELLIDOS LIKE :PAPE AND DNI LIKE :PDNI');
    TBuscarCliente.ParamByName('PNOM').AsString:= '%'+Edit1.Text+'%';
    TBuscarCliente.ParamByName('PAPE').AsString:= '%'+Edit2.Text+'%';
    TBuscarCliente.ParamByName('PDNI').AsString:= '%'+Edit3.Text+'%';
    TBuscarCliente.Open;

Pero me da error en las lineas donde uso ParamByName (Lo subraya en rojo)

[roman]

Prueba con

Código Delphi [-]
TBuscarCliente.Parameters.ParamByName('PNOM').Value := '%'+Edit1.Text+'%';

Es posible que antes tengas que poner:

Código Delphi [-]
TBuscarCliente.Parameters.ParamByName('PNOM').DataType := ftString;

// Saludos

[ecfisa]

Hola Delphitest.

Para los componentes ADO la sintaxis sería:

Código Delphi [-]
  with ADOQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT APELLIDO, NOMBRE, DNI FROM CLIENTES');
    SQL.Add('WHERE APELLIDO LIKE :PAPE AND NOMBRE LIKE :PNOM AND DNI LIKE :PDNI');
    Parameters.ParamByName('PAPE').Value:= '%'+Edit1.Text+'%';
    Parameters.ParamByName('PNOM').Value:= '%'+Edit2.Text+'%';
    Parameters.ParamByName('PDNI').Value:= '%'+Edit3.Text+'%';
    Open;
  end;
end;

Saludos

Edito: No había visto el mensaje de roman, pero comparto lo que te sugirió.

[Delphitest]

Mil gracias , así da gusto

Funciona a la perfección.

Muchísimas gracias por vuestra ayuda.

[Delphitest]

Un detallín...

veo que cuando los registros tienen contenido en los 3 campos (nombre, apellidos y dni) no hay ningún problema con la búsqueda, pero si hay registros que tengan uno de esos campos vacíos no se incluyen en la búsqueda.

No se si lo he explicado bien, pero por ejemplo si existe un registro que tenga un nombre y los apellidos pero no tenga dni no hay forma de que aparezca al buscarlo sea por el campo que sea.

¿eso tendría solución o no me queda otra que dejarlo así?

[ecfisa]

Hola Delphitest.

Una posibilidad sería considerar los campos con valor NULL:

Código Delphi [-]
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT APELLIDO, NOMBRE, DNI FROM CLIENTES');
    SQL.Add('WHERE (APELLIDO LIKE :PAPE OR APELLIDO IS NULL) AND');
    SQL.Add('(NOMBRE LIKE :PNOM OR NOMBRE IS NULL) AND');
    SQL.Add('(DNI LIKE :PDNI OR DNI IS NULL)');
    Parameters.ParamByName('PAPE').Value:= '%'+Edit1.Text+'%';
    Parameters.ParamByName('PNOM').Value:= '%'+Edit2.Text+'%';
    Parameters.ParamByName('PDNI').Value:= '%'+Edit3.Text+'%';
    Open;
  end;
end;

Pero no se si te sirva de ese modo...

Saludos

[engranaje]

Yo estas cosas suelo hacerlas asi:

Código Delphi [-]
var 
  bOtraCondicion:=boolean;
begin
  bOtraCondicion:=false; 
  with ADOQuery do  
  begin    
    Close;    
    SQL.Clear;    
    SQL.Add('SELECT APELLIDO, NOMBRE, DNI FROM CLIENTES');
 
    if ( (Edit1.Text <>'') and  (Edit2.Text <>'') (Edit3.Text <>'') ) then
    begin
      SQL.Add('WHERE');
   
      if  Edit1.Text <>'' then   
      begin
        SQL.Add('APELLIDO LIKE :PAPE ');
        bOtraCondicion:= true;        
        Parameters.ParamByName('PAPE').Value:= '%'+Edit1.Text+'%'; 
      end;
   
      if  Edit2.Text <>'' then   
      begin 
        if bOtraCondicion then
          SQL.Add('AND');     
        SQL.Add('NOMBRE LIKE :PNOM');     
        bOtraCondicion:= true;   
        Parameters.ParamByName('PNOM').Value:= '%'+Edit2.Text+'%';    
      end;
      
      if  Edit3.Text <>'' then   
      begin
        if bOtraCondicion then
          SQL.Add('AND');          
        SQL.Add('DNI LIKE :PDNI');   
        Parameters.ParamByName('PDNI').Value:= '%'+Edit3.Text+'%'; 
      end;
    end;
    Open;
  end;
end;