error en rs.movelast

[Laika]

Hola tengo 2 tablas en una base de datos de sql:

TABLA1 TABLA2
id_libro id_libro PK
id_cajon nombre_libro

Si inserto en TABLA2 un nombre_libro, el id_libro es autonumerico. ¿Como puedo coger mediante un recodset o variable ese id_libro que se haya generado en ese insert para después en otro insert añadirlo en Tabla1?

He probado a que no sea autonumerico e ir metiendolo cada vez desde un formulario haciendo esto (aunque preferiria que sea autonumerico):

sql3="SELECT id_libro FROM TABLA2"
set rs3 = Conn.Execute(sql3)
rs3.movelast

Pero me da este error:

Número de argumentos erróneo o asignación de propiedad no válida: 'eof'

[Shiryu_Libra]

cuando grabes
lo que uso en access...

entonces al realizar la rutina de insercion

Código PHP:

  RS.open sSQL, oCxn, 3, 3
if Err=0 then
if RS.EOF=TRUE then
RS.addnew
...........
RS.updatebatch
rn=int(rs.Fields.Item("index").value)
response.write "index: "&rn
end if
end if
rs.close  
   

basicamente antes de que cierres el RS, puedes tomar el valor del campo

espero te ayude
suerte

[Laika]

No me funciona lo que me dices. Mira yo inserto asi el campo en TABLA2:

set rs = Conn.Execute ("insert into [tabla2] (nombre_libro) values ('"&Request.Form("nombre_libro")&"')")

Automaticamente quiero que al ser autonumerico en sql server me asigna un valor a campo1 PK.

Pues este valor que me ha asignado quiero que al mismo tiempo despues de esta consulta, haga otra para insertar ese numero en otra tabla, no se si me explico bien

[tammander]

Gdeneralmente casi todas los motores de BD transaccionales tienen una funcion para eso: lastInsertId o parecido. Access no dispone de tan preciada herramienta. Pero puedes comprobar cual fue el ultimo dato de un determinado campo numérico usando la función MAX:

cnn.execute("INSERT INTO tabla1 VALUES ('', 'Nombre del libro')")
rs = conn.execute("SELECT MAX(id_libro) AS ultNumInsertado FROM tabla1")

luego no tienes mas que asignar el valor

cnn.execute("INSERT INTO tabla2 VALUES ('', " & rs("ultNumInsertado") & ",'talytal')")




Un saludo

[Laika]

¿Podrias aclararme esta consulta?

selecciono el número máximo de id_libro... AS ultNumInsertado (esto quiero entender)

cnn.execute("INSERT INTO tabla2 VALUES ('', " & rs("ultNumInsertado") & ",'talytal')")

No encontre nada de lastInsertId para sqlserver

Laika

[tammander]

MSSQL dispone de scope_identity(), ident_current() y de @@identity pero seguramente el que te interesa es la función scope_identity()

Y

SELECT MAX(id_libro) AS ultNumInsertado FROM tabla1

Significa : Selecciona el número máximo (más alto) del campo id_libro de la tabla tabla1 y llamame al resultado ultNumInsertado

devuelve un recordset con un solo campo y un solo registro. A esa celdilla la llamamos ultNumInsertado.

luego puedes hacer lo que se hace con cualquier recordset :)


Un saludo

[Laika]

Ok con la función MAX correcto.

Llevo un buen rato buscando y probando y no consigo usar la función SCOPE_IDENTITY().

set rs = Conn.Execute ("insert into [TABLA1] (nombre) values ('prueba'); SELECT @Identity = SCOPE_IDENTITY()")

Lo que quiero es que me muestre en pantalla el id_nombre que me haya generado al hacer el insert

Gracias

[Myakire]

Lo que quiero es que me muestre en pantalla el id_nombre que me haya generado al hacer el insert

Código:

strSQL = "Set Nocount on "
strSQL = strSQL + "insert into TABLA1 (nombre) values ('prueba')"
strSQL = strSQL + " select IdentityInsert=@@identity"
strSQL = strSQL + " set nocount off"
objRS.Open strSQL, objConn
objRS("IdentityInsert")

Saludos

[Laika]

He copiado el codigo y al ejecutarlo me da error:

El sitio web no puede mostrar la página
HTTP 500
Causas más probables:
El sitio web está en mantenimiento.
El sitio web tiene un error de programación.

[Laika]

Se ha producido un error: No coinciden los tipos

[Myakire]

Pues hay que ver el código, la linea que da el error, etc., así no se puede. Ese código funciona, lo tengo en producción, así que debe ser otra cosa.

[Laika]

este es el codigo, no mas!.
No me da la lina del error.

* nombre es un campo de tipo char.

on error resume next

Set Conn = Server.Createobject("ADODB.Connection")
conn.open "bd"

strSQL = "Set Nocount on "
strSQL = strSQL + "insert into TABLA1 (nombre) values ('prueba')"
strSQL = strSQL + " select IdentityInsert=@@identity"
strSQL = strSQL + " set nocount off"

objRS.Open strSQL, Conn
objRS("IdentityInsert")

If Err <> 0 Then
Response.Write "Se ha producido un error: " & Err.Description
End If

[Shiryu_Libra]

sensei Myakire, no tiene nada que ver que sea una tabla en ACCESS???

[Laika]

La base de datos en es en Access es en SQl Server 2000.

Conecto a ella mediante un ODBC que tengo creado

[Myakire]

sensei Myakire, no tiene nada que ver que sea una tabla en ACCESS???

Access? .... diablos!!, donde se dice antes que no era sql server?

La base de datos en es en Access es en SQl Server 2000.

eehh?, por fin, en que quedamos? es o no es en sql server?

este es el codigo...

Solo eso? ..... mmmmm, no te falta por ejemplo, definir el objeto objRS?

Deja hago un ejemplo completo

[Myakire]

listo ...

Código:

<%
set con = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=SQLOLEDB.1;Data Source=servidor;Initial Catalog=respaldo;User Id=userx;Password=123;"
Con.CommandTimeout  = 0
con.Open  ConnString

set objRS = Server.CreateObject("adodb.recordset")

strSQL = "Set Nocount on "
strSQL = strSQL + "insert into borrame (nombre) values ('prueba')"
strSQL = strSQL + " select IdentityInsert=@@identity"
strSQL = strSQL + " set nocount off"

objRS.Open strSQL, con
response.write "Se ha ingresado el Id: " & objRS("IdentityInsert")

%>

[u_goldman]

Primero: Los error handlers hay que dejarlos para después de probar que el código inicial funcione.

Segundo: Trata cambiando un poco tu sentencia, cambios en negritas

Código:

'on error resume next

Set Conn = Server.Createobject("ADODB.Connection")
conn.open "bd"

strSQL = "Set Nocount on "
strSQL = strSQL + "insert into TABLA1 (nombre) values ('prueba');"
strSQL = strSQL + " select @@identity AS IdentityInsert"
strSQL = strSQL + " set nocount off"

objRS.Open strSQL, Conn
objRS("IdentityInsert")

If Err <> 0 Then
Response.Write "Se ha producido un error: " & Err.Description
End If

Edit: Si no utilizas una conexión OLEDB, no funcionará esta sentencia...oops me ganó el maestro tigurón

Salud

[Laika]

Si no utilizas una conexión OLEDB, no funcionará esta sentencia

Debo conectarme por ODBC asi que supongo que si me dices esto no me vale de nada y no voy a poder usar esta función ¿no?.

Que raro que no s epueda con ODBC...

Gracias de todos modos.

[Myakire]

por que debes de conectarte con ODBC?????

No he probado ese código con ODBC, aunque supongo no debe tener problemas, no me queda claro por que lo dijo U_G, cosa de probar

[u_goldman]

Alguna vez leí por ahí que solamente podrías recuperar @@IDENTITY desde una conexión OLEDB, pero ya no encuentro el link, otra manera sería definir un parámetro de salida y tratar a @@IDENTITY como una variable de T-SQL.

Salud

[CésarBalaguer]

hay muchas formas por la que puedes lograr eso, primero lo puedes hacer mediante un trigger, ahi en la tabla inserted està el ùltimo id generado en la columna identity, otra forma es que antes de insertar tu segunda tabla hacer un SELECT MAX(id_libro) FROM tabla2 de esa manera no necesitas hacer un movelast dado a que el query te devolverà siempre un registro con el mayor valor y que por orden debe ser el ùltimo insertado.
debes tener en cuenta que lo debes hacer todo dentro de una transacciòn para evitar que haya otra grabaciòn a la tabla y que estes recuperando el id que ha grabado otro usuario.

saludos y buena suerte