Ver Mensaje Individual
  #5 (permalink)  
Antiguo 18/07/2010, 09:49
Avatar de gnzsoloyo
gnzsoloyo
Moderador criollo
 
Fecha de Ingreso: noviembre-2007
Ubicación: Actualmente en Buenos Aires (el enemigo ancestral)
Mensajes: 23.324
Antigüedad: 16 años, 5 meses
Puntos: 2658
Respuesta: Problema con automericooo

Te conviene, en ese caso, recurrir a Google, donde encontrarías un acceso a esta página, en la cual te explican todo: Recuperar valores de identidad o de autonumeración

Puntualmente, un poco más abajo está "Recuperar valores de autonumeración de Microsoft Access", donde explica:
Cita:
Microsoft Access no admite procedimientos almacenados ni el procesamiento de comandos por lotes, por lo que no es posible asignar un parámetro de salida a la columna de origen de la tabla en el ejemplo anterior. Sin embargo, Microsoft Access 2000 o posterior admite la propiedad @@IDENTITY para recuperar el valor de un campo Autonumérico después de una inserción (con INSERT). Mediante el evento RowUpdated es posible determinar si se ha producido una inserción, recuperar el último valor de autonumeración y ponerlo en la columna de identidad de la tabla local del DataSet.
Por otro lado buscando" @@identity en Access" en Google, encontramos la siguiente página : DesarrolloWeb:: Recoger valor del campo autonumérico después de insertar en ASP

En esa misma página, hay una nota de uno de los foristas (Andresbarr), en la que peudes encontrar este ejemplo, que parece ser una buena implementación:

Código ASP:
Ver original
  1. <%
  2.  
  3. '---------------ABRE LA TABLA E INGRESA---------
  4.  
  5. Set RsIn = Server.CreateObject("ADODB.Recordset")
  6. Call_table = "TABLA"
  7. RsIn.Open Call_table, MM_conecta_STRING,1,3
  8.  
  9. RsIn.AddNew
  10.         RsIn("Campo1") = (Request.Form("Campo1"))
  11.         RsIn("Campo2") = (Request.Form("Campo2"))
  12.  
  13. RsIn.Update              
  14. RsIn.Close
  15. Set RsIn = Nothing
  16.  
  17. '---------------RECUPERA EL ID INGRESADO-------
  18.  
  19. Set RsId = Server.CreateObject("ADODB.Recordset")
  20. Fnc_Sql = "Select @@IDENTITY as Ident"
  21. RsId.Open Fnc_Sql, MM_conn_STRING,1
  22. Id_New = RsId("Ident")
  23. RsId.Close
  24. Set RsId = Nothing
  25.  
  26. '-------------------------------------------------
  27.  
  28. %>
Deberías probarla.

Google es siempre una buena opción. Lo único que hay que ver es cómo escribir la búsqueda para que te de lo que realmente estás buscando y no basura...
__________________
¿A quién le enseñan sus aciertos?, si yo aprendo de mis errores constantemente...
"El problema es la interfase silla-teclado." (Gillermo Luque)