Elegir el valor más reciente en un Select

[vega22]

Actualizo la base de datos con un "addnew" y un "update", introduciendo una nueva fila. El "Id" de la fila es "autoupdate". A continuación, en el mismo script, necesito recoger ese nuevo "Id", que no conozco, para enviarlo por una url. ¿Cómo lo hago? Sólo se me ocurre crear un nuevo recordset where "más reciente elemento". Pero no sé cómo pedirle a la BD el "más reciente elemento".
¿Alguna idea, porfi?

[Adler]

Prueba esto

Código PHP:

  SQL = "Select id, campo1, campo2, ... from tabla order by id desc"
rs.Open SQL, oConn,0,2
rs.addnew
rs("campo1") = 14
rs("campo2") = "blanco"
.....
rs.update
rs.moveFirst
response.write rs("id")
rs.Close
set rs=nothing
oConn.Close
set oConn=nothing 
   

Suerte

[i_e_s27]

Asi, mira:

Abris la base de datos:

Código:

Const adOpenForwardOnly = 0 'Es el cursor por defecto y nos permite recorrer el Recordset en forma secuencial.
Const adOpenKeySet = 1 'Permite movernos hacia delante y atrás. Permite observar las modificaciones en los datos del Recordset , no así si existen ingresos de nuevos registros.
Const adOpenDynamic = 2 'Permite movernos en cualquier sentido, viendo cualquier modificación, ingreso o eliminación de datos del Recordset.
Const adOpenStatic = 3 'Permite movernos en cualquier sentido, pero no se verá ningún cambio ocurrido en la tabla.

Const adLockReadOnly = 1 'Es el cerrojo por defecto y no permite modificar los registros de la tabla.
Const adLockPessimistic = 2 'Una vez que alguien abre la tabla, ésta queda bloqueada para los demás usuarios. Con este modo se asegura la integridad de los datos.
Const adLockOptimistic = 3 'La tabla sólo será bloqueada a los demás usuarios mientras se ejecute una operación Update. De esta forma la tabla se bloqueará durante mucho menos tiempo que con el método anterior.
Const adBatchOptimistic = 4 'Los registros serán actualizados en modo batch. 

Dim adoCon
Set adoCon = Server.CreateObject ("ADODB.Connection")
adoCon.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base_de_datos.mdb")

Set rsRECORDSET = Server.CreateObject("ADODB.Recordset")
strSQLRECORDSET = "SELECT * FROM tblcategorias"
rsRECORDSET.Open strSQLComboCategoria, adoCon, adOpenStatic, adLockOptimistic

Y para ir al primer registro asi:

rsRECORDSET.MoveFirst

Y para ir al ultimo:

rsRECORDSET.MoveLast

Aunque creo que al agregar un nuevo registro y actualizar ya solo te posiciona sobre esa fila ultima que agregaste, osea que solo tenes que hacer la consulta del ID.

[i_e_s27]

Iniciado por i_e_s27

Asi, mira:

Abris la base de datos:

Código:

Const adOpenForwardOnly = 0 'Es el cursor por defecto y nos permite recorrer el Recordset en forma secuencial.
Const adOpenKeySet = 1 'Permite movernos hacia delante y atrás. Permite observar las modificaciones en los datos del Recordset , no así si existen ingresos de nuevos registros.
Const adOpenDynamic = 2 'Permite movernos en cualquier sentido, viendo cualquier modificación, ingreso o eliminación de datos del Recordset.
Const adOpenStatic = 3 'Permite movernos en cualquier sentido, pero no se verá ningún cambio ocurrido en la tabla.

Const adLockReadOnly = 1 'Es el cerrojo por defecto y no permite modificar los registros de la tabla.
Const adLockPessimistic = 2 'Una vez que alguien abre la tabla, ésta queda bloqueada para los demás usuarios. Con este modo se asegura la integridad de los datos.
Const adLockOptimistic = 3 'La tabla sólo será bloqueada a los demás usuarios mientras se ejecute una operación Update. De esta forma la tabla se bloqueará durante mucho menos tiempo que con el método anterior.
Const adBatchOptimistic = 4 'Los registros serán actualizados en modo batch. 

Dim adoCon
Set adoCon = Server.CreateObject ("ADODB.Connection")
adoCon.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base_de_datos.mdb")

Set rsRECORDSET = Server.CreateObject("ADODB.Recordset")
strSQLRECORDSET = "SELECT * FROM tblTABLA"
rsRECORDSET.Open strSQLComboCategoria, adoCon, adOpenStatic, adLockOptimistic

Y para ir al primer registro asi:

rsRECORDSET.MoveFirst

Y para ir al ultimo:

rsRECORDSET.MoveLast

Aunque creo que al agregar un nuevo registro y actualizar ya solo te posiciona sobre esa fila ultima que agregaste, osea que solo tenes que hacer la consulta del ID.

[vega22]

Muchas gracias, Adler y Ies27. He mirado tarde el foro porque pensé que ya nadie respondería.
A ver, me he escapado por los pelos, y no he necesitado hacer mucho para lograr la empresa. El tema es que me estoy comunicando con una MySQl a través del ASP, con la famosa string Driver. Sencillamente una vez añadidos los datos nuevos los he recuperado haciendo un "select * order by Id desc limit 1" al más puro estilo MySQL, y se lo ha tragado el asp perfecto.
Si no recuerdo mal, la comunicacion ASP - MySQL no permite cursores ¿cierto?
Me hubiera gustado probar la función moveFirst, pero bueno, como de momento va perfecto no lo toco.

[vega22]

No he probado el método con cursores, porque ya digo que me extraña que funcione, pero sí el sencillo movefirst. No, no va. Aunque lo ponga después del update, elige la penúltima fila, la que era la última antes de añadir el nuevo producto.
Es mejor cerrar la conexion despues del update, y abrir un nuevo Select después, como estaba haciendo.

[Shiryu_Libra]

utilizando este mismo codigo (permiso Adler)

SQL = "Select id, campo1, campo2, ... from tabla order by id desc"
rs.Open SQL, oConn,0,2
rs.addnew
rs("campo1") = 14
rs("campo2") = "blanco"
.....
rs.updatebatch <-- esta es la diferencia
response.write rs("id")
rs.Close
set rs=nothing
oConn.Close
set oConn=nothing

:saludos:

[vega22]

Hola Lord Shyriu. A ver si en un rato puedo probar tu código, pero de entrada me queda una duda ¿es así o te falta poner el movefirst debajo del updatebatch ?

[Shiryu_Libra]

no ocupa el movefirst, ya que el cursor se queda en la posicion y realiza todo el procedimiento al mismo tiempo

[vega22]

No..no va con la MySQL. Ahora ni siquiera da valor a la variable. Casualmente acabo de ver una conversacion casi identica en el foro pero 3 años atrás...
Lo dejo como está, aunque haya tenido que crear un recordset nuevo, que le vamos a hacer. Al menos parece una construccion muy solida.

[mc_quake]

FUNCION PARA BUSCAR EL ULTIMO REGISTRO INGRESADO EN LA BD, BASTANTE UTIL

ASI SE LLAMA
ultimodato = sqlmaximo(campo, tabla)

campo = corresponde autonumerico
tabla = tabla que buscas el ultimo registro ingresado

ESTA ES LA FUNCION

Function sqlmaximo( campo, tabla )
on error resume next
sql = "select max("&campo&") as maximo from "&tabla
set rsmax = db.execute(sql)
if err <> 0 then
Response.Write("ERROR :"&err.description&"<hr>")
else
if not rsmax.eof then
sqlmaximo = rsmax("maximo")
end if
rsmax.close
End Function
__________________
Atte,

A n g e l u s

[vega22]

Iniciado por mc_quake

FUNCION PARA BUSCAR EL ULTIMO REGISTRO INGRESADO EN LA BD, BASTANTE UTIL

ASI SE LLAMA
ultimodato = sqlmaximo(campo, tabla)

campo = corresponde autonumerico
tabla = tabla que buscas el ultimo registro ingresado

ESTA ES LA FUNCION

Function sqlmaximo( campo, tabla )
on error resume next
sql = "select max("&campo&") as maximo from "&tabla
set rsmax = db.execute(sql)
if err <> 0 then
Response.Write("ERROR :"&err.description&"<hr>")
else
if not rsmax.eof then
sqlmaximo = rsmax("maximo")
end if
rsmax.close
End Function

Pues sí que es útil esto para usar en caso general y aplicado a muchas BDs, pero en el caso concreto de ASP con MySQL, si el tema consiste en usar una conexión extra a la base, el "SELECT * ORDER BY campo DESC LIMIT 1" va de lujo y es bien sencillo de implementar.