Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-10-2023
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Uso de variables en un query

Hace ya tiempo me explicasteis como definir (RDB$SET_CONTEXT) y usar (RDB$GET_CONTEXT) variables en un query pero me ha llamdo la atención que esas variables definidas no puede usarse en las condiciones del query.

Por ejemplo: tengo definidas en un query estas dos variables.
Código SQL [-]
RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOS', ((SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                AND Proceso = A.CodPro AND (Partido > 1 OR Partido = (SELECT Codigo FROM Partidos 
                WHERE CodPrv = A.CodPrv AND Sigla = 'BLANCOS')) AND Mesa IN (SELECT Codigo FROM Mesas 
                WHERE CodPrv = A.CodPrv AND Municipio = A.Codigo))))

RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR', ((SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                AND Proceso = A.CodPro AND Partido = C.Partido AND Mesa IN (SELECT Codigo FROM Mesas 
                WHERE CodPrv = A.CodPrv AND Municipio = A.Codigo))))
y sin trato de hacer esto en un query:
Código SQL [-]
AND RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') >= 5 * RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOS') / 100
SQL Manager me da este error:
Cita:
Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.
Dynamic SQL Error.
Expression evaluation not supported.
Strings cannot be multiplied in dialect 3.
Entiendo que ese tipo de estructura es ilegal en Firebird o ¿lo estoy haciendo mal?
Responder Con Cita
  #2  
Antiguo 18-10-2023
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Prueba hacer un CAST de la variable...

"Strings cannot be multiplied"
implica que está tratando de multiplicar un string por un número.
Supongo que la variable siempre será de tipo string...
No se si se puede dar un tipo a la variable...

Código SQL [-]
AND RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') >= 5 * CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOS') AS DOUBLE PRECISION) / 100
Responder Con Cita
  #3  
Antiguo 18-10-2023
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Acabe de ver la documentación y dice <value> ::= A value of any type, as long as it's castable to a VARCHAR(255)
Por lo tanto la variable siempre es de tipo VARCHAR(255) y deberás hacer los CAST necesarios.

https://firebirdsql.org/refdocs/lang...t-context.html

Cita:
Available in: DSQL, ESQL, PSQL

Added in: 2.0

Description: Creates, sets or unsets a variable in one of the user-writable namespaces USER_SESSION and USER_TRANSACTION.

Result type: INTEGER

Syntax:

RDB$SET_CONTEXT ('<namespace>', '<varname>', <value> | NULL)

<namespace> ::= USER_SESSION | USER_TRANSACTION
<varname> ::= A case-sensitive string of max. 80 characters
***
<value> ::= A value of any type, as long as it's castable to a VARCHAR(255)
***
Responder Con Cita
  #4  
Antiguo 18-10-2023
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por duilioisola Ver Mensaje
Acabe de ver la documentación y dice <value> ::= A value of any type, as long as it's castable to a VARCHAR(255)
Por lo tanto la variable siempre es de tipo VARCHAR(255) y deberás hacer los CAST necesarios.
Pues tienes razón. Como siempre, me tiro de cabeza a la piscina sin mirar si hay antes agua. Muchas gracias.
Responder Con Cita
  #5  
Antiguo 19-10-2023
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Sigo estrellándome una y otra vez. A ver si me ayudáis a ver que está mal porque yo soy incapaz. Tengo este query:
Código SQL [-]
SELECT DISTINCT A.Codigo, A.Nombre, CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS INTEGER) Votos, 
       COALESCE(C.Electos, 0) Electos, CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS INTEGER) Total,
       RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR', (SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                       AND Proceso = B.Proceso 
                       AND Partido = A.Codigo
                       AND Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217))),
       RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT', (SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                       AND Proceso = B.Proceso 
                       AND (Partido > 0 OR Partido = (SELECT Codigo FROM Partidos WHERE CodPrv = A.CodPrv AND Sigla = 'BLANCOS'))
                       AND Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217)))
  FROM Partidos A, Resultados B
  LEFT JOIN NumElectos C ON B.CodPrv = C.CodPrv AND B.Proceso = C.Proceso AND C.Tipo = 'M' AND C.Circunscripcion = 1217 AND B.Partido = C.Partido
 WHERE A.CodPrv = '13' AND A.Codigo > 0
   AND B.Proceso = 42 AND A.CodPrv = B.CodPrv AND B.Partido = A.Codigo
   AND B.Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217)
 ORDER BY Votos DESC, Electos DESC, Nombre
Así, tal cual, da este resultado:

Primero que nada que no entiendo por qué aparece tres veces el primer registro si todos los datos son iguales; eso ya me ha dejado perplejo. Además, y de acuerdo con el query, las tres últimas filas están mal ordenadas.

Si al query le añado la sintaxis que me sugirió duilioisola, así:
Código SQL [-]
SELECT DISTINCT A.Codigo, A.Nombre, CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS INTEGER) Votos, 
       COALESCE(C.Electos, 0) Electos, CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS INTEGER) Total,
       RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR', (SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                       AND Proceso = B.Proceso 
                       AND Partido = A.Codigo
                       AND Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217))),
       RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT', (SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                       AND Proceso = B.Proceso 
                       AND (Partido > 0 OR Partido = (SELECT Codigo FROM Partidos WHERE CodPrv = A.CodPrv AND Sigla = 'BLANCOS'))
                       AND Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217)))
  FROM Partidos A, Resultados B
  LEFT JOIN NumElectos C ON B.CodPrv = C.CodPrv AND B.Proceso = C.Proceso AND C.Tipo = 'M' AND C.Circunscripcion = 1217 
            AND B.Partido = C.Partido
 WHERE A.CodPrv = '13' AND A.Codigo > 0
   AND B.Proceso = 42 AND A.CodPrv = B.CodPrv AND B.Partido = A.Codigo
   AND B.Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217)
   AND CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS DOUBLE PRECISION) >= 5 * CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS DOUBLE PRECISION) / 100
 ORDER BY Votos DESC, Electos DESC, Nombre
Entonces no me devuelve nada y lo que tendría que mostrar son aquellos registros en los que los votos sean iguales o mayores que el 5% del total (796); es decir: las tres últimas filas no deberíanb mostrarse.
Responder Con Cita
  #6  
Antiguo 19-10-2023
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
1ra Pregunta - Por que se triplica el primer registro.

Seguramente porque el JOIN que utilizas lo triplica
Por ejemplo si hubiera 1 "Partidos" con 3 "NumElectos" que cumplan la condición del join.
También puede ser porque hay 1 "Partidos" con 3 "Resultados" que cumplen la condición B.Partido = C.Partido.

Para debugar este problema debes hacer un SELECT * y ver qué columnas son las diferentes.
Por ejemplo:
Código SQL [-]
SELECT *
  FROM Partidos A, Resultados B
  LEFT JOIN NumElectos C ON B.CodPrv = C.CodPrv AND B.Proceso = C.Proceso AND C.Tipo = 'M' AND C.Circunscripcion = 1217 AND B.Partido = C.Partido
 WHERE 
   A.CodPrv = '13' AND A.Codigo > 0
   AND B.Proceso = 42 AND A.CodPrv = B.CodPrv AND B.Partido = A.Codigo
   AND B.Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217)
 ORDER BY /*Votos DESC,*/ Electos DESC, Nombre
Te saldrán todas las columnas de cada tabla. Serán todas iguales excepto las de la tabla que se repite.
Solución: deberás corregir...


2da Pregunta: El orden es incorrecto.

Veo que hay campos para los que no utilizas ALIAS. Si se repiten en varias tablas puede estar ordenando por el que no quieres.
Corrige el ORDER BY
Para el campo Electos debes utilizar la función COALESCE porque de lo contrario los nulos estarán al principio (o al final, no recuerod).
Entiendo que nombre es de la tabla "Partidos". Puede que haya otro campo Nombre en otra de las tablas.
Votos no se decirte, porque es una función. Yo utilizaría la función completa con el CAST a integer para evitar que lo ordene como string ('1', '10', '11', ..., '2', '20', ...)
Código SQL [-]
 ORDER BY CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS INTEGER) DESC, COALESCE(C.Electos, 0) DESC, A.Nombre


3ra Pregunta: No sale nada si agregas la condición al WHERE.

Lo más sencillo es agregarlo como dato para comprobar que lo que sale es lo que supones que debe salir... podría haber nulos o los CAST están convirtiéndo cosas raras, etc.
Veo que se trata de enteros, por lo que quizás el CAST deba ser a INTEGER.

Código SQL [-]
SELECT DISTINCT A.Codigo, A.Nombre, CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS INTEGER) Votos, 
       COALESCE(C.Electos, 0) Electos, CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS INTEGER) Total,
       RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR', (SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                       AND Proceso = B.Proceso 
                       AND Partido = A.Codigo
                       AND Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217))),
       RDB$SET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT', (SELECT SUM(Votos) FROM Resultados WHERE CodPrv = A.CodPrv 
                       AND Proceso = B.Proceso 
                       AND (Partido > 0 OR Partido = (SELECT Codigo FROM Partidos WHERE CodPrv = A.CodPrv AND Sigla = 'BLANCOS'))
                       AND Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217))),
       -- Campos como Float
       CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS DOUBLE PRECISION),  CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS DOUBLE PRECISION), 
       -- Campos como Enteros
       CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS INTEGER),  CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS INTEGER),
       -- Resultado la la formula utilizada
       (5 * CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS DOUBLE PRECISION) / 100)
  FROM Partidos A, Resultados B
  LEFT JOIN NumElectos C ON B.CodPrv = C.CodPrv AND B.Proceso = C.Proceso AND C.Tipo = 'M' AND C.Circunscripcion = 1217 
            AND B.Partido = C.Partido
 WHERE A.CodPrv = '13' AND A.Codigo > 0
   AND B.Proceso = 42 AND A.CodPrv = B.CodPrv AND B.Partido = A.Codigo
   AND B.Mesa IN (SELECT Codigo FROM Mesas WHERE CodPrv = A.CodPrv AND Municipio = 1217)
   -- AND CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSPAR') AS DOUBLE PRECISION) >= 5 * CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'VOTOSTOT') AS DOUBLE PRECISION) / 100
 ORDER BY Votos DESC, Electos DESC, Nombre
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Variables en un query Angel.Matilla Firebird e Interbase 3 24-06-2022 11:35:05
Realizar un Update en delphi con un query concondicion desde otro query!!! rotsen26 SQL 9 09-03-2013 22:17:47
??enviar variables de consulta de un query a reporte lazreport?? jasmad Lazarus, FreePascal, Kylix, etc. 2 27-10-2011 20:22:22
Variables por Referencia y Query Raynel Tablas planas 1 25-02-2008 10:51:24
variables variables (manual php) salvica PHP 0 25-09-2005 16:44:52


La franja horaria es GMT +2. Ahora son las 20:18:58.


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
Copyright 1996-2007 Club Delphi