Desactivar parametro en query

[Kenobi]

esta es mas loca aun porque depende de al posición del texto en particular dentro del sql del query :

Código Delphi [-]
  if miParametro = '' then query.SQL.Strings[linea_donde_esta_el_where]:=''
                 else query.Params.ParamValues['miParametro']:=miParametro;

funciona, pero es peor el remedio que la enfermedad ....

[[AgustinOrtu]]

No lo probe nunca pero creo que se podria hacer algo como

Código SQL [-]
SELECT * FROM Table
WHERE Campo = :Param AND Campo <> NULL

Código Delphi [-]
  qry.ParamByName('Param').Clear;
  qry.ParamByName('Param').Value := NULL; // uses Variants
  qry.ParamByName('Param').SetNull;

No estoy seguro cual de las 3 alternativas de arriba es valida, creo que dependen de los componentes/motor bd.

PD: El metodo SetNull no estoy seguro si existe o me lo saque de la chistera

[Kenobi]

Hola gracias por tu respuesta, pero no funciona ninguna de las opciones, tanto clear como value:=null devuelven el query vacio quiere decir que no lo usa como comodin de ALL(% , *)

gracias y setNUll en efecto no existe JEJEJEJE

[[AgustinOrtu]]

Bueno, admito que me equivoque eso pasa por hacerlo de memoria y no probarlo jaja

Edito:

Me retracto nuevamente lo que postie no sirve

[[AgustinOrtu]]

Estaba convencido de que se podia

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  if Edit1.Text <> '' then
    ADOQuery1.Parameters.ParamByName('ParamId').Value := Edit1.Text
  else
    ADOQuery1.Parameters.ParamByName('ParamId').Value := NULL;
  ADOQuery1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.SQL.Text := ' SELECT * FROM Productos WHERE Id = IsNull(:ParamId, Id) ';
  ADOQuery1.Prepared := True;
end;

Saludos

[Casimiro Noteví]

Empezado por Kenobi

tienes razon, ese query no funciona ya que lo invente en el momento para no mostrar el codigo del query real, por aquello de proteger el codigo en producción, pero es muy similar.

-Señor policía, ¿puede ayudarme?
+Sí, dígame lo que le ocurre.
-No puedo, es secreto.

[Kenobi]

Empezado por Casimiro Notevi

-Señor policía, ¿puede ayudarme?
+Sí, dígame lo que le ocurre.
-No puedo, es secreto.

, ojo no es por mezquinar el codigo es simplemente respetar la confidencialidad de la organización ya que mis tablas tienen nombres muy elocuentes....

me disculpo por eso.

[[AgustinOrtu]]

Creo que la mejor forma de independizar del motor es usando interfaces:

Código Delphi [-]
unit SQLFunctions;

interface

uses
  Data.DB;

type
  ISQLFunctions = interface
    ['{CD84579F-2EE3-4842-BCF3-F8B5A2B7C50B}']
    function NullFx(const ParamName, FieldName: string): string;
  end;

  TExtendedSQLConnection = class abstract(TInterfacedObject, ISQLFunctions)
  protected
    FConnection: TCustomConnection;
    function NullFx(const ParamName, FieldName: string): string; virtual; abstract;
  public
    constructor Create(const AConnection: TCustomConnection); virtual;
  end;

implementation

uses
  System.SysUtils;

{ TExtendedSQLConnection }

constructor TExtendedSQLConnection.Create(const AConnection: TCustomConnection);
begin
  if not Assigned(AConnection) then
    raise Exception.Create('TExtendedSQLConnection.Create :: AConnection is not Assigned');

  inherited Create;
  FConnection := AConnection;
end;

end.

Código Delphi [-]
unit MySQLFunctions;

interface

uses
  SQLFunctions;

type
   TMySQLExtendedConnection = class(TExtendedSQLConnection)
   protected
    function NullFx(const ParamName, FieldName: string): string; override;
   end;

implementation

uses
  System.SysUtils;

{ TMySQLExtendedConnection }

function TMySQLExtendedConnection.NullFx(const ParamName, FieldName: string): string;
begin
  Result := Format('IfNull(:%s, %s)', [ParamName, FieldName]);
end;

end.

Código Delphi [-]
unit MSSQLFunctions;

interface

uses
  SQLFunctions;

type
   TMSSQLExtendedConnection = class(TExtendedSQLConnection)
   protected
    function NullFx(const ParamName, FieldName: string): string; override;
   end;

implementation

uses
  System.SysUtils;

{ TMSSQLExtendedConnection }

function TMSSQLExtendedConnection.NullFx(const ParamName, FieldName: string): string;
begin
  Result := Format('IsNull(:%s, %s)', [ParamName, FieldName]);
end;

end.

[[AgustinOrtu]]

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  if Edit1.Text = EmptyStr then
    ADOQuery1.Parameters.ParamByName('Param').Value := NULL
  else
    ADOQuery1.Parameters.ParamByName('Param').Value := Edit1.Text;
  ADOQuery1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FSQLFunctions := TMSSQLExtendedConnection.Create(ADOConnection1);
  ADOQuery1.SQL.Text := 'SELECT * FROM Productos WHERE Id = ' + FSQLFunctions.NullFx('Param', 'Id');
  ADOQuery1.Prepared := True;
end;

Edito:

Si las funciones para comprobar si es Null o no comprometen la eficiencia, la unica manera es usando dos componentes Query.

[bucanero]

Una alternativa usando solamente parámetros es utilizar dos parámetros, uno que indica que muestre todos y otro para filtrar directamente los datos que queremos

Código SQL [-]
select proyectos, categorias, count(categorias)
from proyectos
where :todos or proyectos=:miParametro
group by proyectos, categorias

y en el codigo de busqueda:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  if Edit1.Text = EmptyStr then
    //se le indica que muestre todos
    ADOQuery1.Parameters.ParamByName('todos').Value := 1
  else begin
    //se obliga a filtra por el dato necesario
    ADOQuery1.Parameters.ParamByName('todos').Value := 0
    ADOQuery1.Parameters.ParamByName('miParametro').Value := Edit1.Text;
  end;
  ADOQuery1.Open;
end;

[Kenobi]

Barbaro ....
solo 2 cosas, para mySql es IfNull() lo cual es un pequeño problema porque la idea es mantener el codigo mas independiente del manejador, por otro lado me imagino que sera propio del uso de la funcion se afecta el rendimiento notablemente, eso si que es un problema para mi porque seria muchas consultas a las que le aplicaria la solución, gracias mil...

seguire buscando otra alternativa ...