Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Procedimieto para averiguar el valor de un generador en firebird (https://www.clubdelphi.com/foros/showthread.php?t=38432)

Mauro® 14-12-2006 16:03:50

Procedimieto para averiguar el valor de un generador en firebird
 
Hola a todos, cómo estan?, espero que bien. El motivo de mi consulta es para ver si alguien puede darme una idea de como realizar un procedimieto para averiguar el valor de un generador de mi base de datos firebird. O quizas hay otra solución.
Desde ya les agradezco de antemano.
Saludos a todos.
Mauro

Lepe 14-12-2006 17:55:37

En un procedimiento almacenado puedes poner gen_id('nombreGenerador',0)

Edito: Abajo del todo, en hilos relacionados tienes otra solución con una consulta

Saludos

Mauro® 14-12-2006 23:54:41

No puedo ver el valor del generador desde mi aplicación
 
Antes que nada gracias por responder!!
He logrado hacer funcionar el procedimiento pero no puedo ver el valor desde mi aplicación, he leido los hilos que me recomendaron pero no los entiendo muy bien, podrían ayudarme con otro ejemplo?
Y también agradecería mucho si pudieran recomendarme material sobre firebird/interbase, porque la verdad es que tengo muchas dudas y soy muy nuevo con estos motores. (estoy tratando de salir de paradox pero tengo varias dudas :o )
Gracias a todos, sobre todo a ti Lepe por responder.
Saludos,
Mauro

Guti13 15-12-2006 00:33:51

Mauro en el interbase existe una tabla similar a la tabla "Dual" de Oracle denominada RDB$DATABASE por o que prueba a hacer lo siguiente:

Código SQL [-]
Select gen_id(Genrador,0) as Valor
From RDB$DATABASE

Espero haberte sido de ayuda.

Crandel 15-12-2006 01:09:05

Hola Mauro, llego un poco tarde, por ahi ya lo resolviste pero aca te constesto.

Primero creamos el genrador:
Código SQL [-]
CREATE GENERATOR INC_GENERADOR;

luego procedimiento almacenado :
Código SQL [-]
CREATE PROCEDURE VALOR_GENERADOR RETURNS (COD INTEGER)
AS
BEGIN
  COD = gen_id (INC_GENERADOR, 0);
END^

y luego para leer el valor utilizamos el componente TIBStoredProc, y usamos este código:

Código Delphi [-]
Proc_Valor_Generador.ExecProc;
Num := Proc_Valor_Generador.ParamByName('COD').AsInteger;


La franja horaria es GMT +2. Ahora son las 18:26:44.

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