Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   En Consulta SQL seleccionar un campo de un conjunto, Segun criterio (https://www.clubdelphi.com/foros/showthread.php?t=71872)

Adrian Murua 15-01-2011 15:23:33

En Consulta SQL seleccionar un campo de un conjunto, Segun criterio
 
Estimados Amigos:

Tengo dos tabla en firebird 2.5 con la siguiente estructura
Código:

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:

Código:

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 16-01-2011 06:22:49

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 16-01-2011 22:02:00

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 18-01-2011 06:29:28

Cita:

Empezado por celades1 (Mensaje 387738)
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 19-01-2011 00:46:02

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:cool:

abelg 28-01-2011 14:12:36

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 ....


La franja horaria es GMT +2. Ahora son las 17:15:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi