Foro - Perl en Español

Agradecería sí pusiesen indicarme cómo otener el último id insertado en una tabla.

El motor de base de datos es SQL Server 2000 y estoy usando DBD::ODBC. En MySQL he usado el método last_insert_id pero aquí NO existe. ¿¿Cómo puedo obtenerlo??

¡¡¡Muchas gracias, por la ayuda!!!

Según la documentación del método last_insert_id() en el manual de DBI, con el MS SQL Server, sí que funciona, con tal de que en la última sentencia INSERT no se hayan utilizado placeholders, es decir, caracteres '?' que serán sustituidos por los valores que luego le pasamos en el execute().

Otra opción: sacarlo con esta sentencia: select @@identity

Muchas gracias, ¡¡¡este SQL Server es todo un tema!!!

last_insert_id() no funciona; lo probé de todas formas. Pero sí resultó select @@identity.

Una cosa para tener en cuenta para alguien que utilice este motor: no permite tener varios manejadores de sentencias activos por conexión. Hay que cerrarlas a todas, a medida que se utilizan ($sth->finish) . Hay que abrir varias conexiones a la base según cantidad de manejadores de sentencia se necesiten activos.

¡¡¡Muchas gracias!!!

Hola Lord,

¿Puedes por favor ayudarme con esto? Tengo exactamente el mismo problema que tu tuviste: no sé cómo sacar el id. Anexo mi código.

$sql = 'insert into nivel (descripcion, usuario, nivel_vigencia, id) SELECT descripcion, usuario,nivel_vigencia,id FROM nivel where id_nivel=20
SELECT @@identity';
$sth = $dbh->prepare($sql);
$sth->execute();
$id = $dbh->last_insert_id(undef, undef, 'Nivel', 'id_nivel');
$templ->registro($id);

El insert lo hace bien, pero la variable $id al imprimirla no me retorna ningún valor.
¿¿Qué modificación tengo que hacer para capturar el valor??

Mil Gracias...

Una de las limitaciones de select @@IDENTITY es que no funciona en la misma sentencia INSERT.

Deberás hacer un segundo prepare/execute para obtener el valor.

Exacto. Como dice explorer:

Primero hacer el INSERT

Luego

Muchas gracias por la respuesta, ya resolví