Ver Mensaje Individual
  #2  
Antiguo 03-11-2015
Luis F. Orjuela Luis F. Orjuela is offline
Miembro
 
Registrado: may 2003
Ubicación: Bogotá - Colombia
Posts: 68
Reputación: 22
Luis F. Orjuela Va por buen camino
Sería así desde Delphi:

Utilizando un componente TEdit = ed_Cadena_Buscar y un IBQuery (Firebird / Interbase)

Código Delphi [-]
  With IBQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select E.NOMBRES || ' ' || E.APELLIDO1 || ' ' || E.APELLIDO2 Nombre, nu.descripcion centro, e.direccion, e.telefono');
      SQL.Add('from no_epla ne inner join STG_EGRAL.nom_empl e on e.id_empl = ne.id_empl');
      SQL.Add('inner join no_uorg nu on nu.id_uorg = ne.id_uorg');
      SQL.Add('where e.activo = 1 and e.nombres like :CADENA');
      SQL.Add('order by nu.descripcion, e.nombres');

      ParambyName('CADENA').AsString:='%'+ed_Cadena_Buscar.Text+'%';
      Open;
    end;
__________________
Ing. LUIS FERNANDO ORJUELA
BOGOTA - COLOMBIA
Responder Con Cita