Sentencia SQL con varios campos

[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;

[Casimiro Noteví]

Empezado por engranaje

Yo estas cosas suelo hacerlas asi:

Aunque funcione, es mejor usar la versión con parámetros mostrada por román y ecfisa. Evitas problemas de "inyección sql", además es la forma profesional de trabajar.
Deberías ir acostumbrándote a hacerlo con parámetros, el código queda más claro, simple y fácil de seguir. Seguro que si intentas cambiar, poco a poco, verás que te acostumbras a usar parámetros y ya no volverás a hacerlo de la otra manera.

[engranaje]

Hombre técnicamente uso parámetros. Lo que pasa es que en vez de hacer consultas sobre campos que no necesito consultar lo que hago es añadir solo los parametros que necesito. Es cierto que es engorroso e igual debería pasarme a añadir todos los parámetros a la consulta y lanzarla sobre todos, teniendo en cuenta que cuando alguno va vacio quiero decir que puede tener cualquier valor incluido nulos... pero he pillado esta costumbre y me siento más comodo trabajando asi... será cuestión de probar tu recomendación.