ultimo generador que ingrese

[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,

[Casimiro Noteví]

Empezado por Delphius

[..] creo yo que ni siquiera el nuevo Driver para DBX disponible en Delphi 2010 y XE Enterprise tiene soporte para esto.
Saludos,

Pues con el dineral que cuesta, ya podían haberlo puesto.

[guillotmarc]

Sí, es una vergüenza que este driver solo esté en la versión Enterprise, debería estar a partir de la versión Professional.

NOTA: No sé si permite recuperar el valor returning de un insert, puesto que como no he podido pagar la burrada que cuesta un Enterprise, no tengo este driver.