Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Stored Procedure

Hola de nuevo !

.... no lo entiendo ....

Intento crear un Stored Procedure complejo, del cual las primeras sentencias son las que pongo a continuación :

Código Delphi [-]
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (
    in_random decimal(12,0))
returns (
    out_random decimal(12,0))
as
  declare variable aux_rand decimal(12,0);
  declare variable aux_true integer;
begin
 
  AUX_TRUE  = 0;
 
  while (:"AUX_TRUE" = 0) do begin

    Select RANDOMNO from AVAIL_CALC_TEMP
      where RANDOMNO = :"IN_RANDOM"
      rows 1 into AUX_RAND;

    if (:"AUX_RAND" is null) then begin
      Leave;
    end
    else begin
      IN_RANDOM = :"IN_RANDOM" + 1;
      /* También he probado IN_RANDOM = IN_RANDOM +1; */
      if (:"IN_RANDOM" > 200) then Leave;
    end

  end
 
  OUT_RANDOM = IN_RANDOM;
 
  suspend;
 
end

Se trata de detectar si un valor de entrada ya existe en AVAIL_CALC_TEMP y si existiera, incrementar el valor hasta que obtenga un valor nuevo que no exista. Ese valor se pasa después como resultado de salida.

Supongamos que la tabla AVAIL_CALC_TEMP contiene registros con el campo RANDOMNO = 1. Entonces si llamo al procedimiento con
Código Delphi [-]
Select * from NEW_PROCEDURE2(1)
me debería devolver el valor 2 (asumiendo que 2 no existe en la tabla). Pero resulta que he añadido la sentencia comprobando que el bucle no cree valores mayores de 200 y siempre me devuelve el valor 201.

Si por el contrario ejecuto
Código Delphi [-]
Select * from NEW_PROCEDURE2(2)
me devuelve correctamente el valor 2.

No sé qué estoy haciendo mal !

He probado todo, añadiendo variables propias del procedimiento, etc. Pero no consigo saber por qué no funcionan estas líneas.

Gracias como siempre por vuestra inestimable colaboración.
__________________
Piensa siempre en positivo !

Última edición por gluglu fecha: 24-02-2011 a las 15:18:42.
Responder Con Cita
  #2  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Para empezar, prueba a quitar las comillas a esas variables que has declarado sin comillas. Sin comillas puedes usarla como quieras, mayúscula o minúscula, pero si lo pones entre comillas entonces la busca exactamente como está puesto entre las comillas, así que supongo que aux_true es una variable distinta a "AUX_TRUE". Al menos, con los campos, es así, por eso nunca uso las comillas.
Responder Con Cita
  #3  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Gracias Casimiro.

Creo que no tiene nada que ver con las comillas, porque después de tu indicación lo he probado también sin comillas, y sigue igual.

El hecho es que entra en el bucle 'while', pero no sale correctamente de él. Si el Select encuentra un valor (p.ej. el 1), Aux_Rand (mayúscula o minúscula, da igual ahora ...) no es null e intento entonces incrementar el valor de entrada para encontrar uno que no exista.

Al pasar como valor de entrada el 1, me devuelve 201, lo que significa que sin duda alguna entra en el bucle de la suma para finalmente, al ser mayor de 200, devolverme 201.

En cambio si haga la llamada con el valor de entrada 2, entonces me devuelve correctamente 2, ya que el 2 no existe, y entonces Aux_Rand sí que es null y ejecuta el primer 'Leave'.

Por lo tanto tengo que deducir que el error está en el Select y el valor que le pasa 'into Aux_Rand'. No sé por qué rara razón, si en la primera vez que se ejecuta el Select, el valor no existe entonces Aux_Rand es null y sale del While. Si en cambio a la primera el valor existe, y ya ejecuta después el incremento + 1, entonces ya Aux_Rand nunca vuelve a ser null.
__________________
Piensa siempre en positivo !
Responder Con Cita
  #4  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Puedes poner un metadata simplificado con algunos datos para probar?

Un script con su create table y los mínimos campos necesarios y algunos datos extraidos con ibexpert, por ejemplo, o el que uses.
Responder Con Cita
  #5  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Voy a cambiar la tabla de nombre para simplicarlo todo. Introducimos un único registro con un único valor = 1. Creamos el Stored Procedure.

Código Delphi [-]
CREATE TABLE PRUEBA(
    RANDOMNO DECIMAL(12,0)
);
 
INSERT INTO PRUEBA (RANDOMNO)
            VALUES (1);
COMMIT WORK;
 
SET TERM ^ ;
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (
    in_random decimal(12,0))
returns (
    out_random decimal(12,0))
as
 declare variable aux_rand decimal(12,0);
 declare variable aux_rand2 decimal(12,0);
 declare variable aux_true integer;
begin
 
  AUX_TRUE  = 0;
 
  while (:"AUX_TRUE" = 0) do begin

    Select RANDOMNO from PRUEBA
      where RANDOMNO = :"IN_RANDOM"
      rows 1 into AUX_RAND;

    if (:"AUX_RAND" is null) then begin
      Leave;
    end
    else begin
      IN_RANDOM = IN_RANDOM + 1;
      if (IN_RANDOM > 200) then Leave;
    end

  end
 
  OUT_RANDOM = IN_RANDOM;
 
  suspend;
 
end
^
SET TERM ; ^

Y por último ejecutamos :
Código Delphi [-]
Select * from NEW_PROCEDURE2(1)
Esta sentencia me devuelve el valor 201.

Esta otra
Código Delphi [-]
Select * from NEW_PROCEDURE2(2)
me devuelve el valor 2.

Si pruebo con lo siguiente :
Código Delphi [-]
SET TERM ^ ;
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (
    in_random decimal(12,0))
returns (
    out_random decimal(12,0))
as
 declare variable aux_rand decimal(12,0);
 declare variable aux_rand2 decimal(12,0);
 declare variable aux_true integer;
begin
 
  AUX_TRUE  = 0;
 
  while (:"AUX_TRUE" = 0) do begin

    Select RANDOMNO from PRUEBA
      where RANDOMNO = :"IN_RANDOM"
      rows 1 into AUX_RAND;

    if (:"AUX_RAND" is null) then begin
      Leave;
    end
    else begin
      IN_RANDOM = IN_RANDOM + 1;
      if (IN_RANDOM > 200) then Leave;
    end

  end
 
  OUT_RANDOM = AUX_RAND;
 
  suspend;
 
end
^
SET TERM ; ^
para ver qué valor queda en Aux_Rand, entonces

Código Delphi [-]
Select * from NEW_PROCEDURE2(1)
me devuelve el valor 1
y
Código Delphi [-]
Select * from NEW_PROCEDURE2(2)
me devuelve null.

P.D. La versión de Firebird es la 2.1
__________________
Piensa siempre en positivo !
Responder Con Cita
  #6  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
... parece como si una vez que Aux_Rand no ha tomado el valor null, ya no lo volviera a tomar más en el bucle y en su comprobación correspondiente If (:"Aux_Rand" is null) porque no hace el Leave adecuado, pero en cambio, al comprobar el valor con OUT_RANDOM, entonces sí que aparece el null.

... no lo entiendo ...
__________________
Piensa siempre en positivo !
Responder Con Cita
  #7  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Me parece que está claro:

Si lo llamas con el valor 1, que existe, entonces como aux_rand no es null aumenta in_random en 1 hasta que llega a 200+1 y sale, devolviendo 201
Sin embargo, cuando lo llamas con 2, que no existe, no lo encuentra, entonces aux_rand es null y sale con el valor pasado, el 2 en este caso.
Responder Con Cita
  #8  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Si lo que quieres es simplemente el número siguiente al mayor existente, entonces vale con hacer algo simple como:

Código SQL [-]
select max(randomno)+1 from latabla where loquesea into :lavariableadevolver

Y si no pueden existir repetidos entonces mejor un generador.

Y si es otra cosa, entonces es que no me he enterado todavía porque después de comer me está dando sueño y voy a por un café...
Responder Con Cita
  #9  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Exactamente !

.... pero eso no es lo que está programado !!

Porque si el valor que le paso es '2', que no existe, y por lo tanto Aux_Rand es null, entonces correctamente sale. Pero si le paso '1', en la siguiente pasada por el bucle While, se incremeta 1 al 2, y debería de volver a comprobarlo, y ahora que el valor es 2 y no existe, me debería devolver 2 (!!) y no 201 ya que entra de nuevo en la suma !!
__________________
Piensa siempre en positivo !
Responder Con Cita
  #10  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Acabo de leer tu último comentario.

El problema surge que hay muchos usuarios que acceden a esa tabla, y tengo que saber si cada usuario va a tener un número único. Para eso genero un número aleatorio cualquiera, y compruebo si existe ya previamente. Si no existe, perfecto, devuelvo ese mismo número aleatorio que le pasé de entrada, como salida.

Pero si el número aleatorio (por p... casualidad) ya existiera, tengo que buscar otro que no exista para que cada usuario diferente tenga garantizado que su número obtenido es único en la tabla.

Generalmente la tabla estará vacía, porque es una tabla para unos cálculos temporales, que después se muestran en un StringGrid. Una vez que salga del Form con ese StringGrid, los datos se vuelven a borrar de la tabla.
__________________
Piensa siempre en positivo !
Responder Con Cita
  #11  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Voy a probar con fb2.1, es que tenía ahora mismo la 1.5 y lo he adaptado porque no funcionaba las comillas, el rows 1, etc.
Ahora vuelvo...
Responder Con Cita
  #12  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Código Delphi [-]
SET TERM ^ ;
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (
    in_random decimal(12,0))
returns (
    out_random decimal(12,0))
as
 declare variable aux_rand decimal(12,0);
 declare variable aux_rand2 decimal(12,0);
 declare variable aux_true integer;
begin
 
  Select RANDOMNO from PRUEBA
    where RANDOMNO = :"IN_RANDOM"
    rows 1
  into AUX_RAND;
 
  if (:"AUX_RAND" is not null) then
    IN_RANDOM = IN_RANDOM + 1;
 
  Select RANDOMNO from PRUEBA
    where RANDOMNO = :"IN_RANDOM"
    rows 1
  into AUX_RAND;
 
  if (:"AUX_RAND" is not null) then
    IN_RANDOM = IN_RANDOM + 1;
 
  OUT_RANDOM = IN_RANDOM;
 
  suspend;
 
end
^
SET TERM ; ^

Por qué esta modificación, si ejecuto con el valor de entrada 1, entonces me devuelve 3 (!!! ) y si el valor de entrada es 2, entonces me devuelve 2 !!

Parece como si no gestionase correctamente la Suma + 1 del parámetro de Entrada In_Random. Pero es que como ya dije anteriormente lo he probado incluso con variables propias del procedimiento, sin tocar la variable de entrada, y tampoco ....
__________________
Piensa siempre en positivo !
Responder Con Cita
  #13  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Prueba esto:

Código SQL [-]
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (in_random decimal(12,0))
returns (out_random decimal(12,0))
as
  declare variable aux_rand decimal(12,0);
  declare variable aux_true integer;
begin
  AUX_TRUE  = 0;
 
  while (:AUX_TRUE = 0) do
  begin

    aux_rand = null;   /*   <------------------------------- */

    Select RANDOMNO from PRUEBA
      where RANDOMNO = :IN_RANDOM
      rows 1 into AUX_RAND;

    if (:AUX_RAND is null) then
    begin
      Leave;
    end
    else
    begin
      IN_RANDOM = :IN_RANDOM + 1;
      if (:IN_RANDOM > 200) then
        Leave;
    end

  end
 
  OUT_RANDOM = IN_RANDOM;
 
  suspend;
 
end
Responder Con Cita
  #14  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
... ahora lo pruebo ....

... PEOR todavía .....

Código Delphi [-]
begin
 
  AUX_RAND2 = IN_RANDOM;
 
  Select RANDOMNO from PRUEBA
    where RANDOMNO = 1
    rows 1
  into AUX_RAND;
 
  if (:"AUX_RAND" is not null) then
    AUX_RAND2 = AUX_RAND2 + 1;
 
  Select RANDOMNO from PRUEBA
    where RANDOMNO = 2
    rows 1
  into AUX_RAND;
 
  if (:"AUX_RAND" is not null) then
    AUX_RAND2 = AUX_RAND2 + 2;
 
  OUT_RANDOM = AUX_RAND2;
 
  suspend;
 
end

Si lo ejecuto con 1 de entrada, entonces el primer Select encuentra un valor, y suma 1 a la entrada. Correcto. El segundo Select busca un 2 en la base de datos, QUE NO EXISTE !. A pesar de eso, al parecer Aux_Rand is not null y suma otros 2 a Aux_Rand2, y me devuelve 4 !!!

Por qué carajo el segundo select me devuelve un valor que no es null ???
__________________
Piensa siempre en positivo !
Responder Con Cita
  #15  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pues no sé qué tienes en tu tabla, a mí no me devuelve eso

Si le paso 1, me devuelve 2.
Si le paso 2, me devuelve 2.
Si le paso 3, me devuelve 3.
Si le paso 88, me devuelve 88.

Tan sólo tengo el registro con valor '1' en la tabla.
Responder Con Cita
  #16  
Antiguo 24-02-2011
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Pues YA ESTA !!!!

La solución es la que tu propones Casimiro !!!

Hay que 'resetear' la variable a null para que funciona correctamente.

En el mismo ejemplo que acabo de poner ahora último, si se 'resetea' de nuevo la variable a Null, entonces funciona también correctamente.



.... pero 'lógicamente' no debería hacer falta, no ??

MUCHAS GRACIAS !!!
__________________
Piensa siempre en positivo !
Responder Con Cita
  #17  
Antiguo 24-02-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pues en teoría no sería necesario, no, debe ser un "bug" muy gracioso
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Stored Procedure !!! Ledian_Fdez C++ Builder 0 02-03-2010 15:01:29
Stored Procedure StartKill MySQL 2 27-08-2008 07:18:44
Ver los Stored Procedure tgsistemas SQL 0 06-04-2004 18:18:22
Stored Procedure tgsistemas SQL 1 27-02-2004 14:10:33
problema con stored procedure Markoz Firebird e Interbase 8 27-06-2003 14:46:31


La franja horaria es GMT +2. Ahora son las 22:39:22.


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