13/04/2005, 13:36
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Rancagua - Chile
Mensajes: 1.328
Antigüedad: 23 años, 3 meses Puntos: 2 | |
Cita:
Iniciado por marcocho2005 Aconsejo que trabajes de la siguiente forma para que te puedas guiar de mejor manera
Dim Cnn
Dim RsUltimo
Dim SQL
Set Cnn = Server.CreateObject("ADODB:Connection")
Cnn.Open Conection_String
//Realizas la insercion:
SQL = "Insert into tabla (nombre, expediente, comentarios, autorizo) Values (val_nombre, val_expediente,val_comentarios, val_autirzo)
Cnn.Execute SQL
//Buscas el ultimo Registro hecho
Set RsUltimo = Server.CreateObject("ADODB.Recordset")
SQL = "Select Top 1 id From Tabla Order By id Desc"
RsUltimo.Open SQL, Cnn, 3
//Muestra un Mensaje con el numero de id
Msgbox "Ultimo registro: " & RsUltimo("id")
me quitaste el mensaje de la teclas , 
__________________
Usa títulos específicos y con sentido
En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema. |