Sentencia SQL con varios campos

[Casimiro Noteví]

Empezado por 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.

Sí, pero vas creando la sentencia poco a poco, eso es algo engorroso, sobre todo si luego tratas de hacer un cambio, tener que "cuadrar" todo de nuevo.
Sin embargo, de la otra forma (parámetros), cambias la sql y no tienes que hacer nada más.

[engranaje]

Normalmente a la hora de generar una sentencia sql en la mayoria de los procesos creo la sentencia con parametros y la asigno a un tquery. Posteriormente cuando se necesita asigno los valores a los parametros y la abro. Pero esto solo lo hago cuando la consulta siempre va a tener valores para cada uno de los parametros.

Cuando me encuentro con una consulta que puede filtrarse por una serie de parametros en cualquier combinación de ellos desde 0 a todos utilizo una estructura en la que monto la consulta sin el where para el caso de que no se asigne valor a ningún parámetro, y si hay algún parámetro con valor los voi añadiendo uno a uno a la consulta.

Lo cierto es que por mas que le doy vueltas es la única forma que veo de tener una ventana de consulta con 6 edits por ejemplo para los datos de clientes y un boton de consulta de modo que si no relleno ningún edit me muestre todas los clientes, si relleno solo el nombre me muestre solo los que se llaman asi y si pongo el nombre y la calle me muestre todos los clientes que viven en esa calle y se llaman asi.

Sin compuner la consulta de este modo no se me ocurre como hacer que cuando un parámetro no tiene nigún
valor (o tiene '') la consulta se comporte como si en su lugar hubiera un " (campo is null or campo is not null),
por otra parte entiendo que por norma las consultas son mas rapidas cuanto menos campos haya en los filtros.

Si hay un modo de hacer lo que propuse en mi ejemplo solo con una texto de consulta sql fijo y nada mas que cambiando los parámetros me gustaría ver cual es para evitarme el "montaje" de la sentencia sql.

[Casimiro Noteví]

Sí, a veces no queda más remedio que hacerlo como comentas

[Delphitest]

Pues agradecido de nuevo.

Probé con lo que comenta ecfisa pero aunque funciona bien no hace el filtro que necesito ya que muestra, ademas de lo que busco, los registros con campos vacíos.

Al final el código ha quedado como el que os pongo, es con el sistema de engranaje, no se si es lo correcto o no, no entiendo bien la parte que estais debatiendo, pero si que da el resultado que estoy buscando. He añadido hasta 5 edit para adaptarlo y puesto un OR en lugar de AND y ya está operativo.

Código Delphi [-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);

var bOtraCondicion :boolean;

begin
  bOtraCondicion:=false;
  with TBuscarCliente do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM CLIENTES');

    if ( (Edit1.Text <>'') or  (Edit2.Text <>'') or (Edit3.Text <>'') or  (Edit4.Text <>'') or (Edit5.Text <>'') ) then
    begin
      SQL.Add('WHERE');

      if  Edit1.Text <>'' then
      begin
        SQL.Add('NOMBRE LIKE :PNOM ');
        bOtraCondicion:= true;
        Parameters.ParamByName('PNOM').Value:= '%'+Edit1.Text+'%';
      end;

      if  Edit2.Text <>'' then
      begin
        if bOtraCondicion then
        SQL.Add('AND');
        SQL.Add('APELLIDOS LIKE :PAPE');
        bOtraCondicion:= true;
        Parameters.ParamByName('PAPE').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;

      if  Edit4.Text <>'' then
      begin
        if bOtraCondicion then
        SQL.Add('AND');
        SQL.Add('PROVINCIA LIKE :PPROV');
        Parameters.ParamByName('PPROV').Value:= '%'+Edit4.Text+'%';
      end;

      if  Edit5.Text <>'' then
      begin
        if bOtraCondicion then
        SQL.Add('AND');
        SQL.Add('TELEFONO_FIJO LIKE :PTFNO');
        Parameters.ParamByName('PTFNO').Value:= '%'+Edit5.Text+'%';
      end;

    end;
    Open;
  end;
end;

Gracias de nuevo a todos, con todos los errores que me han surgido en este tiempo he aprendido ademas de lo buscaba otras cosillas, esto es un mundo y todos los días se aprende algo nuevo.

Un abrazo