En Consulta SQL seleccionar un campo de un conjunto, Segun criterio

[Adrian Murua]

Estimados Amigos:

Tengo dos tabla en firebird 2.5 con la siguiente estructura

Tabla : EMPRESAS_STAR

    ID           INTEGER NOT NULL,  /* pk */
    EMPRESAS_ID  INTEGER NOT NULL,  /* fk - CON TABLA EMPRESAS */
    STAR_1       INTEGER DEFAULT 0,
    STAR_2       INTEGER DEFAULT 0,
    STAR_3       INTEGER DEFAULT 0,
    STAR_4       INTEGER DEFAULT 0,
    STAR_5       INTEGER DEFAULT 0


Tabla : EMPRESAS

    ID             INTEGER NOT NULL, /* pk */
    CUIT           STR11 NOT NULL 
    NOMBRE         STR100 NOT NULL,
    DIRECCION      STR100 ,
    POSTAL         STR10,
    TELEFONO_1     STR20,

La tabla EMPRESAS_STAR lleva las calificaciones ( tipo con estrellas, como las calificaciones de la musica en el WMP ) en importancia del listado de empresas,
los campos STAR_x, tienen dos posibles valores 0 y 1, dependiendo de la calificacion dada, obviamente solo uno de los cinco, puede estar en 1.
Deseo hacer una consulta de los datos de las empresas, donde ademas aparezca la calificacion de la misma, algo como:

select 
    empresas.id,
    empresas.cuit,
    empresas.nombre,
    empresas.direccion,
    empresas.postal,
    empresas.telefono_1,
    empresas_star.id,
    empresas_star.star_x
from empresas_star
   inner join empresas on (empresas_star.empresas_id = empresas.id

Donde EMPRESAS_STAR.STAR_X sea solo el campo de la tabla que contenga el valor 1, Se puede hacer esto desde la misma consulta SQL ?, o debo "trabajarla" a la consulta antes de mostrar los resultados en la aplicacion delphi.

Gracias por su tiempo.

[Adrian Murua]

Investigando un poco lo resolví de la siguiente manera:

he creado un procedimiento almacenado que me devuelve el ID de la Empresa y su calificación dependiendo siempre de cual de los campos star_x esta en 1. el código en el IBExpert es el siguiente :

Código SQL [-]

create procedure EMPRESAS_CON_CALIFICACIONES
returns (
    EMPRESA_ID integer,
    CALIFICACION integer)
as
declare variable EID integer;
declare variable ST integer;
declare variable ST_1 integer;
declare variable ST_2 integer;
declare variable ST_3 integer;
declare variable ST_4 integer;
declare variable ST_5 integer;

begin
   for select ID from empresas into :eid do
   begin
        select star_1, star_2, star_3, star_4, star_5 from empresas_star
        where empresas_star.empresas_id = :eid into :ST_1, :ST_2, :ST_3, :ST_4, ST_5;

        if( :ST_1 = 1 ) then
             ST = 1;
          else if( :ST_2 = 1 ) then
             ST = 2;
            else if ( :ST_3 = 1 ) then
              ST = 3;
              else if ( :ST_4 = 1 ) then
               ST = 4;
               else if ( :st_5 = 1 ) then
                ST = 5;

         Calificacion = ST;
         Empresa_ID = :eid;
         suspend;
    end
  END

de esta manera tengo las calificaciones de las empresas, asociadas por el ID, luego hago una consulta, donde mediante un INNER JOIN con el procedimiento almacenado(utilizado como una tabla mas ), tengo los datos de las empresas y la calificacion de cada una de ellas, la consulta es la siguiente:

Código SQL [-]
select 
    empresas.id,
    empresas.nombre,
    empresas.direccion,
    empresas.postal,
    empresas.telefono_1,
    empresas_con_calificaciones.calificacion,
from empresas
   inner join empresas_con_calificaciones on (empresas.id = empresas_con_calificaciones.empresa_id)

No se si es la forma correcta de resolver el problema, quizas exista alguna mas simple .

Espero que le sirva a alguien mas ...

Saludos.

[celades1]

Hola

Esta bien utilizar procedimientos cuando es necesario
pero no cuando con una simple select lo puedes resolver
para ello a partir de firbird 2.0 existe el case

Código SQL [-]
select 
    empresas.id,
    empresas.cuit,
    empresas.nombre,
    empresas.direccion,
    empresas.postal,
    empresas.telefono_1,
    case when empresas_star.star_1=1 then 1
           when empresas_star.star_2=1 then 2
           when empresas_star.star_3=1 then 3
           when empresas_star.star_4=1 then 4
           else 5 
    end star
from empresas_star
  inner join empresas on (empresas_star.empresas_id = empresas.id

Creo no haber hecho ningun error de sintaxis (pero la idea es esa)

Saludos

[Adrian Murua]

Empezado por celades1

Hola

Esta bien utilizar procedimientos cuando es necesario
pero no cuando con una simple select lo puedes resolver
para ello a partir de firbird 2.0 existe el case

Código SQL [-]
select 
    empresas.id,
    empresas.cuit,
    empresas.nombre,
    empresas.direccion,
    empresas.postal,
    empresas.telefono_1,
    case when empresas_star.star_1=1 then 1
           when empresas_star.star_2=1 then 2
           when empresas_star.star_3=1 then 3
           when empresas_star.star_4=1 then 4
           else 5 
    end star
from empresas_star
  inner join empresas on (empresas_star.empresas_id = empresas.id

Creo no haber hecho ningun error de sintaxis (pero la idea es esa)

Saludos

Gracias celades1, por responder, la verdad no sabia de la clausula case que haces referencia , y tienes razon con esa consulta esta de mas el procedimiento. muchas Gracias.

[Adrian Murua]

He probado la clausula CASE - WHEN , pero aparentemente funciona en el caso de que un campo tenga varios valores, en el caso del ejemplo seria si la tabla tuviera un campo STAR el cual tomara valores de 1 a 5, en el caso expuesto, no funciona ya que tendria que hacer un CASE para cada campo STAR_X, lo que lo convierte en un IF para validar si el campo tiene un valor 0 ó 1.

Asi que vuelvo a la opcion del procedimiento almacenado. Gracias por su tiempo

[abelg]

Creo es más aceptable la cuestion del CASE, claro ahi para que no te retorne 5 en else pondrías 0, otra forma cre es la siguiente.

select
empresas.id,
empresas.cuit,
empresas.nombre,
empresas.direccion,
empresas.postal,
empresas.telefono_1,
(empresas_star.star_1 * 1 +
empresas_star.star_2* 2 +
empresas_star.star_3 * 3 +
empresas_star.star_4 * 4) Calificacion
from empresas_star
innerjoin empresas on (empresas_star.empresas_id = empresas.id

esto siempre y cuando acepte star_x solo 0 o 1 como valore asi 0*1 = 0, 1*2 = 2 ....