Buscar en campo calculado

[Delphitest]

Buenas Tardes,

a la hora de mostrar la lista de registros de un DBLookupcombobox, necesito ver el contenido del campo nombre + apellidos.

Para ello he pensado que la solución sería crear un campo calculado llamado NombreCompleto

Lo he creado en la query y de cara al listado funciona perfectamente pero veo que a medida que escribo en el DBLookupcombobox no se hace la búsqueda en la lista como si se tratase de un campo normal.

Para solucionarlo he pegado un Edit encima y a medida que escribo en el ejecuto una sentencia SQL que busca en la query.

El problema es que puedo buscar por el nombre o por el apellido pero no en el contenido del campo NombreCompleto.

¿Existe algun truco para hacer esta busqueda?

Muchas Gracias

[ecfisa]

Hola Delphitest.

Creo recordar que trabajas con ADO y Access, te pongo entonces ejemplos basados en la tabla Employee de dbdemos:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Consulta
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text:= 'SELECT FIRSTNAME + '' '' + LASTNAME AS FULLNAME, * FROM EMPLOYEE';
    Open;
  end;
  // configurar DBLookupComboBox
  with DBLookupComboBox1 do
  begin
    KeyField  := 'EMPNO';
    ListField := 'FULLNAME';
    ListSource:= DataSource1;
  end;
end;

Si quisieras realizar una búsqueda incremental desde el evento OnChange de un TEdit, sería similar:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT FIRSTNAME+'' ''+LASTNAME AS FULLNAME, * FROM EMPLOYEE');
    SQL.Add('WHERE FIRSTNAME +'' ''+LASTNAME LIKE :PARAM');
    Parameters.ParamByName('PARAM').Value:= Edit1.Text + '%';
    Open;
  end;
end;

Saludos

[Delphitest]

Muchísimas Gracias Ecfisa,

funciona a la perfección.

Recuerdas bien, trabajo con ADO y Access

Me he quedado un poco atascado a la hora de adaptarlo porque me empeñe en no poner el * delante del from y me daba errores pero repasándolo en condiciones hace lo que necesitaba.

Aprovecho sólo para pedirte tu opinión acerca del uso del DBLookUpCombobox si no te importa. Ahora mismo lo uso para listar una tabla de clientes que contiene unos 150 registros y me funciona sin problemas, pero a medida que pase el tiempo y se incremente esa lista, por ejemplo si se da el caso de llegar a 500 registros ¿Seguiría siendo correcto hacer uso de el o tendría que plantearme otra cosa?

Gracias de Nuevo y Felices Fiestas para todos vosotros

Un fuerte abrazo

[ecfisa]

Hola Delphitest.

Empezado por Delphitest

...
Aprovecho sólo para pedirte tu opinión acerca del uso del DBLookupCombobox si no te importa. Ahora mismo lo uso para listar una tabla de clientes que contiene unos 150 registros y me funciona sin problemas, pero a medida que pase el tiempo y se incremente esa lista, por ejemplo si se da el caso de llegar a 500 registros ¿Seguiría siendo correcto hacer uso de el o tendría que plantearme otra cosa?

De nada

Trabajando de forma local, no vas a tener problemas ni con cifras cientos de veces superiores a la que comentas. Sin embargo puede ser distinto trabajando en red... Vas a encontrar una muy buena explicación al respecto en el libro: La cara oculta de Delphi 4 (cap. 27)


Saludos y feliz año

[Delphitest]

Buenas Noches,

siento reabrir este tema pero me pasa algo fuera de normal y no se como arreglarlo.

Todo va bien en cuanto al funcionamiento pero veo que en la lista que proporciona el DBLookupCombobox aparecen de forma aleatoria muchas filas en blanco que no forman parte de la consulta ni de la tabla original.

Si en lugar de hacer que la lista sea el campo FullName, pongo solo el nombre o los apellidos se ven los registros sin problemas y no hay lineas en blanco.

¿Alguien sabe qué puede estar pasando?

Gracias de nuevo

[ecfisa]

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

[Delphitest]

Muchísimas Gracias Ecfisa por tu ayuda y por tomarte las molestias en buscar la solución de tantos problemas que planteamos.

No sabía que al concatenar dos campos si uno de ellos era Null automáticamente el total también lo sería, pensaba que se limitaba a no poner uno de ellos y por eso me llamó la atención.

Lo he comprobado y así es.

Como no son muchos registros voy a recorrerlos y completar esos apellidos que faltan para que todo aparezca bien y de ahora en adelante tomare la precaución de no dejar esos campos vacíos.

Mil gracias por tu tiempo y que el año nuevo te traiga lo que te mereces.

FELIZ 2015 para todos