Comprobar si un valor es nulo

[Neftali [Germán.Estévez]]

No se si alguien lo ha comentado ya, pero ¿no puedes añadir la condición a la SQL, en lugar de tratarlo a posteriori?

Código SQL [-]
 ... AND (LITERAL IS NOT NULL)

[Angel.Matilla]

Empezado por Neftali

... AND (LITERAL IS NOT NULL)

Esa condición no me vale. Fíjate que lo que me interesa es precisamente que salgan los valores nulos para saber que registros están mal grabados y la tabla en la que voy a buscar los literales no está indexada, ni me interesa, ya que es donde se guardan los valores básicos de configuración.

[ecfisa]

Hola.

La situación no me termina de quedar clara... Cuando el valor de la columna LITERAL es NULL, ¿ Deseas que el ítem del CheckListBox incluya algún texto como sugiere la imágen de tu primer mensaje ?

Si no te interpreté mal y es así, creo que lo mas simple es hacerlo con la sugerencia de Casimiro, ejemplo :

Código PHP:

...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TIBQuery *qy = static_cast<TIBQuery*>(IBQuery1);

  qy->Close();
  qy->SQL->Clear();
  qy->SQL->Add( "SELECT DISTINCT A.SITUACION," );
  qy->SQL->Add( "COALESCE(UPPER(B.LITERAL), 'NULO') AS LITERAL" );
  qy->SQL->Add( "FROM PERSONA A LEFT JOIN INSTALACION" );
  qy->SQL->Add( "B ON A.SITUACION = B.VALOR ..." );
  ...
  for ( qy->Open(); !qy->Eof; qy->Next() )
    CheckListBox1->Items->Add(qy->FieldByName("LITERAL")->AsString );
  CheckListBox1->Style = lbOwnerDrawFixed;
}

void __fastcall TForm1::CheckListBox1DrawItem(TWinControl *Control,
      int Index, TRect &Rect, TOwnerDrawState State)
{
  TCheckListBox *lb = static_cast<TCheckListBox*>(Control);
  AnsiString str = lb->Items->Strings[Index];

  if ( str == "NULO" ) {
    lb->Canvas->Font->Color = clRed;
    lb->Canvas->Font->Style = TFontStyles() << fsBold << fsUnderline;
  }
  lb->Canvas->FillRect( Rect );
  lb->Canvas->TextOut( Rect.left, Rect.top, str );
} 


Muestra:


Saludos

[Angel.Matilla]

Empezado por ecfisa

La situación no me termina de quedar clara... Cuando el valor de la columna LITERAL es NULL, ¿ Deseas que el ítem del CheckListBox incluya algún texto como sugiere la imágen de tu primer mensaje?

Perdón por explicarme tan mal. Lo que quiero es que cuando haya un valor NULL en la columna literal, al cargar el CheckListBox, se asocie a Desconocida. Más que nada, y lo sabéis, si un usuario del programa ve una casilla sin descripción como en el ejemplo que subí al principio o que la etiqueta ponga NULO como sugieres, tardan 30 segundos en llamarte para preguntarte que es eso de NULO. Lo he solucionado así:

Query->Close();
Query->SQL->Text = "SELECT DISTINCT A.Situacion, "
                   "COALESCE(B.Literal, 'Desconocida') Literal "
                   "FROM Persona A "
                   "LEFT JOIN Instalacion B "
                   "ON A.Situacion = B.Valor AND B.Etiqueta = 'Situacion' "
                   "WHERE A.CodPrv = (SELECT Literal FROM Instalacion WHERE Etiqueta = 'Provincia')";
Query->Open();

bool lPrueba = false;
for (; !fPersona->Query->Eof; fPersona->Query->Next())
{
     if (UpperCase(fPersona->Query->FieldByName("Literal")->AsString) == "DESCONOCIDA")
     {
          if (lPrueba)
               continue;

          lPrueba = true;
     }
     CheckListBox2->Items->Add(fPersona->Query->FieldByName("Literal")->AsString);
}