13/04/2005, 13:34
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 137
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| 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") |