Problemas con @@IDENTITY en SQL Server

[Lethe]

Hola a tod@s!

Tengo una pag. asp con conexion a B.D. SQL Server; en donde ejecuta un Insert... estoy tratando de obtener el último valor autogenerado por el Insert, y no me funciona; a través de:

SQL = "Select @@identity as id From Riesgos"

Alguien me podría ayudar?

[u_goldman]

Puedes poner tu sentencia SQL completa?

[Lethe]

strSQL = "Insert Into Riesgos(rie_proyecto_cod, rie_fecha_gen, rie_premisa, rie_titulo) "
strSQL = strSQL & "values ('" & proyecto & "','" & fecha_generacion & "'," & premisa & ",'" & titulo & "')"
set strRS = Cnn.Execute(strSQL )

SQL = "Select @@identity as rie_id From Riesgos"
set RS = Cnn.Execute(SQL)

[cmunozp]

una vez ejecutado el insert debes poner la siguiente sentencia

select @@identity as salida


luego en tu asp debes poner lo siguiente:


<%
sql="insert...."
set rs=conn.execute(....)
dato=rs("salida")
%>

saludos

[u_goldman]

Justo como te dijeron

Código:

strSQL = "Insert Into Riesgos(rie_proyecto_cod, rie_fecha_gen, rie_premisa, rie_titulo) "
strSQL = strSQL & "values ('" & proyecto & "','" & fecha_generacion & "'," & premisa & ",'" & titulo & "'); SELECT @@IDENTITY as ident"

Set rs = conn.Execute(strSQL)
id = rs("ident")

Salu2,

[Lethe]

u_goldman: tengo el código tal cual como lo colocastes y aún así me genera el siguiente error:

No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

justo en la instrucción: id = rs("ident")

[un_tio]

Iniciado por cmunozp

una vez ejecutado el insert debes poner la siguiente sentencia

select @@identity as salida


luego en tu asp debes poner lo siguiente:


<%

sql="insert...."
set rs=conn.execute(....)
dato=rs("salida")
%>

saludos

Muy interesante...

Lethe, fíjate en el código y entiende lo que haces (un pequeño rapapolvo, no te lo tomes a mal pero no debes limitarte a poner las instrucciones que te den sin entenderlas. Jeje, creo que otros te lo darían aún peor que yo ). No es rs("ident") (fue un pequeño fallo de goldman, pero vamos la idea estaba clara), es rs("salida"), pues así le llamaste.

[Lethe]

un_tio: sí entiendo lo que hace el código... y el alias que le asigné fue: "ident" no "salida"... ese fue un ejemplo de nuestro amigo cmunozp.

El problema es que cuando hago referencia a ese campo de mi recordset no lo encuentra.... y no se por qué...

[u_goldman]

Prueba asi:

Código:

strSQL = "Insert Into Riesgos(rie_proyecto_cod, rie_fecha_gen, rie_premisa, rie_titulo) "
strSQL = strSQL & "values ('" & proyecto & "','" & fecha_generacion & "'," & premisa & ",'" & titulo & "'); SELECT @@IDENTITY as ident"

Set rs Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, conn, 3, 3
id = rs("ident")

[Lethe]

ya lo intenté y... pues nada... sigue dando el mismo error...

[u_goldman]

El campo del que tratas de sacar el id, esta definido como campo llave? que tipo de dato es? por la estructura de esa tabla aqui...
Y el codigo de paso

[Lethe]

ok.

Sí, ese campo es clave y es autogenerado. Aquí te va la
estructura de la tabla: "Riesgos".

Nombre --------------- Tipo ----- Longitud
----------------------------------------------------------

rie_proyecto_cod ------- varchar -------- 20 (llave)
rie_riesgo_num --------- int -------------- 4 (llave)
rie_fecha_gen ----------- varchar -------- 10
rie_premisa ------------- bit -------------- 1
rie_titulo ---------------- varchar --------- 80

Nota:
El campo: rie_riesgo_num esta declarado como:
Identity: Yes (Not For Replication)
Identity Seed: 1
Identity Increment: 1

Y éste es el código:

Código:

strSQL = "Insert Into Riesgos(rie_proyecto_cod, rie_fecha_gen, rie_premisa, rie_titulo) "
strSQL = strSQL & "values ('" & proyecto & "','" & fecha_generacion & "'," & premisa & ",'" & titulo & "'); SELECT @@IDENTITY as ident"

Set rs Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Cnn, 3, 3
id = rs("ident")

[u_goldman]

Que raro que no funciona, estas ocupando SQL cierto? Trata asi:

Código:

strSQL = "Insert Into Riesgos(rie_proyecto_cod, rie_fecha_gen, rie_premisa, rie_titulo) "
strSQL = strSQL & "values ('" & proyecto & "','" & fecha_generacion & "'," & premisa & ",'" & titulo & "');SELECT @@IDENTITY AS ident; " & _
		"DECLARE @ident int; DECLARE ident_cursor CURSOR FOR SELECT @@IDENTITY; OPEN ident_cursor; FETCH NEXT FROM ident_cursor INTO @ident; "

Set rs Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Cnn, 3, 3
id = rs("ident")

Si no funciona, mejor que llamen a un programador porque sho no se!

[Lethe]

no... tampoco funcionó...

Y lo peor es que ejecuté el query, tal cual, directamente desde la cónsola de SQL Server (SQL Query Analyzer) y lo realiza perfectamente...

No se que hacer....

[un_tio]

Iniciado por Lethe

un_tio: sí entiendo lo que hace el código... y el alias que le asigné fue: "ident" no "salida"... ese fue un ejemplo de nuestro amigo cmunozp.

El problema es que cuando hago referencia a ese campo de mi recordset no lo encuentra.... y no se por qué...

Cierto, perdona.

[Lethe]

un_tio estas disculpado no te preocupes...

Aprovecho para comentar que ya logré que funcionara. El código que envie esta bien... lo que le faltaba era la siguiente instrucción; justo antes de: id = rs("ident")

Código:

'--Consigue el segundo resultado del objeto RecordSet
Set RS = Rs.NextRecordSet()

Gracias a todos por la ayuda prestada...
Salu2,