Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   autoincrementar id (https://www.clubdelphi.com/foros/showthread.php?t=36525)

leodelca23 15-10-2006 16:45:37

autoincrementar id
 
Hola a todos, perdon ya se que han escuchado esta pregunta antes pero no he encontrado mi respuesta todavia en el foro, por eso si alguien me puede ayudar. Trabajo con Interbase y he creado la tabla detalle como se muestra aqui, Deseo generar el iddetalle automaticamente, para eso hice un generador y un trigger. Pero he probado en el mismo interbase en la parte de DATA agregar algun campo y nunca me genera el id, Alguien me puede decir en que me estoy equivocando.


Código SQL [-]
/* Table: DETALLE, Owner: SYSDBA */

CREATE TABLE "DETALLE" 
(
  "IDDETALLE"    INTEGER NOT NULL,
  "IDPRODUCTO"    INTEGER NOT NULL,
  "CANTIDAD"    FLOAT NOT NULL,
 PRIMARY KEY ("IDDETALLE")
);
SET TERM ^ ;


/* Triggers only will work for SQL triggers */

CREATE TRIGGER "SET_DETALLE" FOR "DETALLE" 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.IDDETALLE is NULL) THEN
    NEW.IDDETALLE = GEN_ID(GENIDDETALLE,1);
END
 ^

COMMIT WORK ^
SET TERM ;^

Saludos a todos y Gracias

Lepe 15-10-2006 18:52:08

Todo parece estar bien. En Interbase.... a ¿qué te refieres, a la consola, Ib Expert,¿?¿?? ¿Seguro que has hecho un commit de la inserción?

Saludos.

leodelca23 15-10-2006 19:02:23

no se que hacer
 
Me refiero a IBConsole en las propiedades de la tabla en la parte de data ahi trato de cambiar los datos y me obliga a insertar el iddetalle ya verifique que el trigger este activo. no se que hacer. Y en delphi a ese campo en la tabla le he cambiado la propiedad de AutogenerateValue y tampoco siempre me dice que tengo que el campo iddetalle debe contener un Valor. Esto lo estoy haciendo con un dbgrid y ttables y la funcion de agregar y aceptar la tengo con el dbnavigator ya que no he desead implementarla. Gracias por tu respuesta haber si con mas informacion se te ocurre algo. Saludos

Crandel 15-10-2006 23:13:54

El problema es que tu campo ID lo declaraste que no puede ser nulo, por lo que no puedes intentar ingresarlo sin que darle un valor al ID.

Hay varias posibles soluciones:
1. Darle un valor por defecto, por ejemplo cero. luego en el trigger lo reemplazas por el valor autoincremental.

Código SQL [-]
CREATE TRIGGER "SET_DETALLE" FOR "DETALLE" 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  NEW.IDDETALLE = GEN_ID(GENIDDETALLE,1);
END ^

2. Ingresar el valor a traves de un procedimiento almacenado, le pasas tods los paramentros menos el ID, ahi adentro calculas el nuevo ID y se lo asignas.

Código SQL [-]
CREATE PROCEDURE ING_DETALLE
(
  IDPRODUCTO  INTEGER,
  CANTIDAD FLOAT
)
AS
  DECLARE VARIABLE ID INTEGER;
BEGIN
  ID = gen_id(INC_CONST, 1);

  INSERT INTO DETALLE(IDDETALLE, IDPRODUCTO, CANTIDAD)
    VALUES (:ID, :IDPRODUCTO, :CANTIDAD);
END^

y posiblemente otras soluciones.

leodelca23 16-10-2006 14:54:00

Gracias
 
Ahi estuvo le puse valor 0 como inicial y funciono gracias a todos :D. La solucion fue perfecta


La franja horaria es GMT +2. Ahora son las 19:45:45.

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