Consulta sql anidada

[bucanero]

hola

yo para este tipo de consultas con filtros estáticos utilizo una estructura fija de SELECT (sin necesidad de cambiar o ajustar el SQL en runtime) como esta:

Código SQL [-]
SELECT MARCA,CODIGO,FORMULA,NUMERO,DESCRI,CODIGOI 
FROM INVENTA 
WHERE
  (:minLargo is null or :minLargo <= m1) and
  (:maxLargo is null or m1 <= :maxLargo ) and 
  (:minAncho is null or :minAncho <= m2) and
  (:maxAncho is null or m2 <= :maxAncho ) and 
  (:minAlto is null or :minAlto <= m4) and
  (:maxAlto is null or m4 <= :maxAlto ) 
  -- and  -- resto de opciones --

y los parámetros los cargo de la siguiente forma:

Código Delphi [-]
procedure TForm2.FILTROPBeforeOpen(DataSet: TDataSet);
  procedure SetParamsAsInt(AParam: TParam; AEdit: TEdit);
  var
    AValue:integer;
  begin
    if (AEdit.Text = '') or not TryStrToInt(AEdit.text, AValue) then
      AParam.Clear
    else
       AParam.AsInteger:=AValue;
  end;

begin
  with filtroP, Params do begin
    SetParamsAsCurr(ParamByName('minLargo'), Edit1);
    SetParamsAsCurr(ParamByName('maxLargo'), Edit2);
    SetParamsAsInt(ParamByName('minAncho'), Edit3);
    SetParamsAsInt(ParamByName('maxAncho'), Edit4);
    SetParamsAsInt(ParamByName('minAlto'), Edit5);
    SetParamsAsInt(ParamByName('maxAlto'), Edit6);
  end;
end;

De tal forma que si el usuario no rellena alguno de los campos de busqueda, ese campo se queda sin efecto

[ralf8727]

Gracias por sus ideas las pondre en practica y les comento como funcionaron.

[ralf8727]

Empezado por bucanero

hola

yo para este tipo de consultas con filtros estáticos utilizo una estructura fija de SELECT (sin necesidad de cambiar o ajustar el SQL en runtime) como esta:

Código SQL [-]SELECT MARCA,CODIGO,FORMULA,NUMERO,DESCRI,CODIGOI FROM INVENTA WHERE (:minLargo is null or :minLargo <= m1) and (:maxLargo is null or m1 <= :maxLargo ) and (:minAncho is null or :minAncho <= m2) and (:maxAncho is null or m2 <= :maxAncho ) and (:minAlto is null or :minAlto <= m4) and (:maxAlto is null or m4 <= :maxAlto ) -- and -- resto de opciones --



y los parámetros los cargo de la siguiente forma:


Código Delphi [-]procedure TForm2.FILTROPBeforeOpen(DataSet: TDataSet); procedure SetParamsAsInt(AParam: TParam; AEdit: TEdit); var AValue:integer; begin if (AEdit.Text = '') or not TryStrToInt(AEdit.text, AValue) then AParam.Clear else AParam.AsInteger:=AValue; end; begin with filtroP, Params do begin SetParamsAsCurr(ParamByName('minLargo'), Edit1); SetParamsAsCurr(ParamByName('maxLargo'), Edit2); SetParamsAsInt(ParamByName('minAncho'), Edit3); SetParamsAsInt(ParamByName('maxAncho'), Edit4); SetParamsAsInt(ParamByName('minAlto'), Edit5); SetParamsAsInt(ParamByName('maxAlto'), Edit6); end; end;


De tal forma que si el usuario no rellena alguno de los campos de busqueda, ese campo se queda sin efecto

no logro hacer funcionar este ejemplo

al compilar dice este error

[DCC Error] Busquedaavanzada.pas(286): E2003 Undeclared identifier: 'param'
[DCC Error] Busquedaavanzada.pas(290): E2003 Undeclared identifier: 'ParamByName'

y ya le cambie todos lo que se me pudo ocurrir utilizo delphi 2010

[bucanero]

¿de que clase es tu componente filtroP?, en mis pruebas lo hice con un TZQuery de las zeos, y para esta clase a los parámetros se accede mediante la propiedad params. Si por el contrario utilizas un TADOQuery entonces se accede mediante la propiedad Parameters, con otros componentes de base de datos es posible que la propiedad sea otra distinta.

En tu código, ya utilizabas la función ParamByName, así que en tu caso en particular supongo que debes de utilizar Parameters

Código Delphi [-]
FILTROP.Parameters.ParamByName('M1').Value:=Edit1.Text;

[ralf8727]

Empezado por bucanero

¿de que clase es tu componente filtroP?, en mis pruebas lo hice con un TZQuery de las zeos, y para esta clase a los parámetros se accede mediante la propiedad params. Si por el contrario utilizas un entonces se accede mediante la propiedad Parameters, con otros componentes de base de datos es posible que la propiedad sea otra distinta.

En tu código, ya utilizabas la función ParamByName, así que en tu caso en particular supongo que debes de utilizar Parameters

Código Delphi [-]FILTROP.Parameters.ParamByName('M1').Value:=Edit1.Text;

me falto ese detalle del TADOQuery gracias