Consulta con valores null

[Casimiro Noteví]

Por favor, no olvidar las etiquetas de código, ejemplo:



.

[kapcomx]

Tienes Razon casimiro, como se me fue a olvidar jejejeje

que tal vez si intentas con un if

Código Delphi [-]
 

if (desdefamilia.text='') then 
begin
DMList.QApuntes.Close;DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where (familia = null)';
DMList.QApuntes.Open;
end
else
begin

DMList.QApuntes.Close;DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where (familia >= '+ QuotedStr(DesdeFamilia.Text)+') and (familia <= '+ QuotedStr(HastaFamilia.Text)+')';DMList.QApuntes.Open;

end;

[MartinS]

Tal vez no entiendo muy bien lo que necesitas en caso de que no existan valores en los TEdit. Por lo que veo la consulta expuesta por el compañero kapcomx muestra o los null o los del rango de acuerdo al contenido del Edit si esta vacio o no. Si lo que deseas es que muestre en conjunto el rango + los null deberias agregar a la consulta

Código Delphi [-]
and (familia is null)

y si... la forma es igual que en mysql (is null).-

Saludos

[[Chris]]

Una cosa importante a tener en cuenta:

NULL es NULL. NULL es un valor indefinido según el estándar SQL. Al ser indefinido, NULL no es ni mayor ni menor a `''´ ni tampoco es igual. NULL es un valor único que solo es similar a NULL. Si lo que quieres es devolver opcionalmente los valores NULL tendrás que indicarlo en la consulta. Por ejemplo:

Código SQL [-]
Select * From Apuntes Where (familia between :familia_start and :familia_end) or (familia is NULL)

Ten en cuenta que el operador indicado para trabajar con NULL es `is´. NULL es tan especial que los demás operadores no son recomendados para trabar con él.

Saludos!

[ecfisa]

Hola Luís.

Otra opción:

Código Delphi [-]
 with QApuntes do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM APUNTES ');
    SQL.Add('WHERE FAMILIA >= :DESDE AND FAMILIA <= :HASTA OR FAMILIA IS NULL');
    ParamByName('DESDE').AsString:= DesdeFamilia.Text;
    ParamByName('HASTA').AsString:= HastaFamilia.Text;
    Open;
  end;

Saludos.

Edito: No había visto el mensaje de Chris, así que corrijo "Otra opción" por 'Una opción parecida' ...

[[Luis M.]]

Saludos.

Ante todo dar las gracias a todos los que habéis respondido.
Chris tiene toda la razón, Null es Null y el único operador para trabajar con él, es IS.
He probado todas las opciones que me habéis recomendado y no me funcionaba con yo quería.
O no me devolvía ningún registro o me devolvía todos menos los null.
Así que con la idea de kapcomx y del resto de compañeros, he podido solucionar el problema.

Código Delphi [-]
  if DesdeFamilia.Text = '' then cConsulta := '(familia <= '+QuotedStr(HastaFamilia.Text)+') or (Familia is null)'
  else cConsulta := '(familia >= '+QuotedStr(DesdeFamilia.Text)+') and (Familia <= '+QuotedStr(HastaFamilia.Text)+')';

Código Delphi [-]
DMList.QApuntes.Close;
DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where '+cConsulta;
DMList.QApuntes.Open;

Ahora ya me devuelve los registros dentro del rago y si "Desdefamilia" está vacío me devuelve los null.
Espero que a otros le sirva de ayuda.
Nuevamente gracias a todos por vuestra ayuda.

[Casimiro Noteví]

¿Y no puedes poner todos los campos null a cadena vacía?

Código SQL [-]
update apuntes set familia='' where familia is null

Se acabó el problema.

[[RONPABLO]]

Esto podría funcionar.

Código Delphi [-]
DMList.QApuntes.Close; DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where (coalesce(familia,'') >= '+
                              QuotedStr(DesdeFamilia.Text)+') and (coalesce(familia,'') <= '+
                              QuotedStr(HastaFamilia.Text)+')'; 
DMList.QApuntes.Open;

[[Luis M.]]

Empezado por Casimiro Notevi

¿Y no puedes poner todos los campos null a cadena vacía?

Código SQL [-]
update apuntes set familia='' where familia is null

Se acabó el problema.

Hola Casimiro.
Fue lo primero que intenté.
En el OnNewRecord del Dataset intenté con ApuntesFamila.asstring := '', también ApuntesFamilia.asstring := ' ' pero si me iba al IBExpert para comprobar los datos, allí estaba ese lindo null .
También lo intenté en el BeforePost con

Código Delphi [-]
if ApuntesFamilia.isnull then ApuntesFamilia.asstring := '', etc.

pero de nada servia.
No he echo lo que me recomiendas, lo intentaré a ver que tal.
RONPABLO hoy no me da tiempo para probarlo, en cuanto lo haga te digo si funciona.
Un saludo para todos.