ultimo generador que ingrese

[Casimiro Noteví]

Falta información por tu parte, ¿cómo aumentas el generador?, trigger, store procedure, desde delphi...

[JAI_ME]

Empezado por Casimiro Notevi

Falta información por tu parte, ¿cómo aumentas el generador?, trigger, store procedure, desde delphi...

gracias casimiro, todo lo hago desde delphi.

[guillotmarc]

Hola.

Para conocer el valor actual de un generador, puedes usar la función gen_id con un incremento de 0.

Ejplo.

select gen_id(gen_clientes, 0) from rdb$database

NOTA: Utilizo rdb$database porqué sé que un select de esa tabla siempre va a devolver un único registro.

Saludos.

[JAI_ME]

gracias guillotemarc enseguida lo pruebo.

[marcoszorrilla]

Al estar relacionadas entiendo que por cada registro en la Tabla A puede haber x en la Tabla B, en este caso podrías utilizar el evento OnNewRecord de la tabla B.

Código Delphi [-]
....
Tablab_Campoxxx.Value := TablaAID.Value;
.....

Un Saludo.

[ljvenegas]

Empezado por guillotmarc

Hola.

Para conocer el valor actual de un generador, puedes usar la función gen_id con un incremento de 0.

Ejplo.

select gen_id(gen_clientes, 0) from rdb$database

NOTA: Utilizo rdb$database porqué sé que un select de esa tabla siempre va a devolver un único registro.

Saludos.

gracias voy a probar

[Casimiro Noteví]

Empezado por JAI_ME

gracias casimiro, todo lo hago desde delphi.

Das la información con cuentagotas

Desde delphi, sí, vale, pero ?cómo?.

El método propuesto por el compañero guillotmarc te devuelve, evidentemente, el último valor generado, pero si estás en un entorno multiusuario entonces puede no valerte si otro usuario ha pedido un nuevo número.

[[Chris]]

Si trabajas con Firebird 2.1 o posterior puedes utlizar la clausula RETURNING.

Código SQL [-]
Insert into mi_tabla (nombre, apellido) values (:new_nombre, :new_apellido) returning id

No es recomendable que tú asignes el valor del campo ID, o de cualquier otro campo que obtiene su valor del próximo estado del generador. Para asignar los valores en este tipo de campos, es mejor dejar el código de asignación en un stored procedure -ejecutado en un AFTER INSERT-. A cómo tú lo has dicho, nunca sabes si un usuario va a ingresar un registro al mismo tiempo que lo haga otro usuario.

Saludos,
Chris

[[Delphius]]

Empezado por Chris

Si trabajas con Firebird 2.1 o posterior puedes utlizar la clausula RETURNING.

Código SQL [-]
Insert into mi_tabla (nombre, apellido) values (:new_nombre, :new_apellido) returning id

Tengo una pregunta. ¿Cómo haces para leer o recuperar el valor devuelto por esa instrucción desde Delphi? Porque en una ocasión en DelphiAccess salió el tema y algunos intentaron darle rosca al asunto y no han podido acceder a ese valor. Según parece no hay todavía soporte en los drivers para Firebird sobre esto.

Saludos,

[[Chris]]

No estoy muy seguro, pero creo que con los componentes que soporten Firebird 2.1 llamas al procedimiento Open, en lugar de llamar al ExecSQL como lo harías normalmente. Desconozco si esta funcionalidad es soportada por los componentes que no han sido desarrollados teniendo en cuanta las mejoras en la versión 2.1 de firebird.

[[Delphius]]

Así parece ser Cris. Debería emplearse componentes o drivers que trabajen con las nuevas características de Firebird... Yo uso D6 y FB 1.5 por lo que no se mucho, pero otras personas que trabajan con Firebird 2.0 y 2.1 y cuentan con versiones modernas de Delphi no pueden leer el RETURNING con los componentes estándares.

Desconozco si Zeos ya soporta esto, creo yo que ni siquiera el nuevo Driver para DBX disponible en Delphi 2010 y XE Enterprise tiene soporte para esto.

Saludos,