Ver Mensaje Individual
  #4 (permalink)  
Antiguo 06/04/2008, 13:00
Avatar de i_e_s27
i_e_s27
 
Fecha de Ingreso: marzo-2008
Ubicación: En mi casa
Mensajes: 208
Antigüedad: 17 años, 1 mes
Puntos: 5
Re: Elegir el valor más reciente en un Select

Cita:
Iniciado por i_e_s27 Ver Mensaje
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.