Ver Mensaje Individual
  #6  
Antiguo 30-12-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Delphitest.

Con seguridad que alguno de las columnas intervinientes tiene valor NULL. Cualquier concatenación en el que intervenga una columna con valor NULL, dará como resultado NULL.

Poniendo previamente en NULL un nombre de la tabla EMPLOYEE,
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add('SELECT EMPNO, FIRSTNAME + '' '' + LASTNAME AS FULLNAME,');
    SQL.Add('SALARY FROM EMPLOYEE');
    Open;
  end;
end;
el código anterior dá este resultado:


La solución para que no aparezcan líneas vacías es evaluar los valores de ambos campos. Dado que no uso Access para mis trabajos, tuve que leer un poco para encontrar la equivalencia a la función COALESCE que según leí es SWITCH.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  SQLSTR = 'SWITCH(FIRSTNAME IS NULL, ''----'', FIRSTNAME IS NOT NULL, FIRSTNAME)'
            + '+'' ''+' +
            'SWITCH(LASTNAME IS NULL, ''----'', LASTNAME IS NOT NULL, LASTNAME)';
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format('SELECT EMPNO,%s AS FULLNAME, SALARY',[SQLSTR]));
    SQL.Add('FROM EMPLOYEE');
    SQL.Add(Format('ORDER BY %s',[SQLSTR]));
    Open;
  end;
end;
La diferencia luego de hacer click en Button1:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita