Traer id del mismo formulario

[ruben_vmb]

Hola,, tengo un formulario en asp que se almacena en una base de datos en
SQL,, los campos son:
nombre
expediente
comentarios
autorizo
en la base de sql tengo un id que va creciendo dependiendo del numero de
registro,
1, 2, 3
lo que quisiera es que cuando alguien llene el registro y le de enviar, le
aparezca una ventana que le diga que su numero de registro es el que en ese
momento va, para que lo anote y lo podramos verificar despues por medio
de ese numero,, espero me halla dado a entender.
Garcias

[u_goldman]

Tienes que hacer un query inmediatamente después de la incersión, si estás trabajando con SQL o Access y tu campo autonumérico es el id de la tabla puedes hacer lo siguiente:

SQL = "INSERT INTO tabla(campos) VALUES(valores); SELECT @@identity FROM tabla as mi_id"

y lo recuperas como rs("mi_id")

Salu2,

[ruben_vmb]

disculpa mi desconocimiento en ASP pero no te entendi mucho,, osea el campo mi_id
no lo pongo pero se inserta aunque el mismo SQL lo incremente por default, o lo quito
y despues lo recupero pero en la otra hoja asp,, supongo
en verdad me ayudaria que me explicaras mejor
sorry por tanta lata
Bye

[javopereira]

el campo mi_id es el autnumérico. Justamente x ser autonumérico no debes ponerlo en la sentencia.
por ser "autonumérico" se incrementa solo y vos no tenes que hacer nada al respecto.
resumiendo.
set oCon =server.createobject("ADODB.Connection")

set oRs =server.createobject("ADODB.recordset")
oCon.open Tu_connection_string
cSQL = "INSERT INTO tabla(campo1, campo2, ....., campoN) VALUES(valor1, valor2,.....,ValorN); SELECT @@identity FROM tabla as mi_id"
ors.open cSQL, oCon
id = oRs.fields("ni_id")

lo escribí de memoria, puede tener algun error de sintaxis.

[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")

[dobled]

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 ,

[ruben_vmb]

Hola tengo esto

<% Dim a, b, c, d, e, f, g, cnn, SR, strSQL
Set cnn = Server.CreateObject("ADODB.Connection")
set oRs =server.createobject("ADODB.recordset")

cnn.open "burn1"
a=Request.Form("nombre")
b=Request.Form("exp")
c=Request.Form("dg")
d=Request.Form("area")
e=Request.Form("autorizo")
f=Request.Form("motivo")
g=Request.Form("contenido")
strSQL = "insert into burn1 (nombre, exp, dg, area, autorizo, motivo, contenido ) values ('"&a& "', '"&b& "','"&c& "','"&d& "','"&e&"','"&f& "','"&g& "' ); SELECT @@identity FROM burn1 as id "
cnn.Execute(strSQL)
ors.open strSQL, cnn
id = oRs.fields("id")%>

<%Response.Write("Registro Exitoso")%>
<% Cnn.close
Set Cnn= nothing%>

El campo en SQL se llama id

Me sale un error que dice
Tipo de error:
ADODB.Recordset (0x800A0CC1)
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.
/intranet/burn1.asp, line 95
La linea 95 tiene
id = oRs.fields("id")%> de donde sale el id= no se si ponerle esto auqnue tambien sale
error <%=ors("id")%>

[marcocho2005]

ors.open strSQL, cnn
id = oRs.fields("id")%>

Al hacer esa consulta tratas de insertar nuevamente
mejor trabaja con el query que te mande hace un moemento

//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")

eso te funcionara muy bien

[ruben_vmb]

oye marcocho2005 antes que nada muchas muchas gracias y a los demas tambien
me sale este error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado: 'Msgbox'
/intranet/burn1.asp, line 103

[u_goldman]

Nope...el msgbox no puede ser una función en el servidor, pues estarías abriendo un msgbox en él, que no te serviría de ná necesitas hacerlo en el cliente mediante las etiquetas de script, ya sea que utilices VB(No te lo recomiendo) o un alert en javascript.


Salu2,

[ruben_vmb]

ok quede igual jiji

[u_goldman]

Lo siento, es que ando a la carrera:

<%
codigo asp
%>
<script language="javascript">
alert("Ultimo registro: " + <%=RsUltimo("id")%>);
</script>

salu2,

[ruben_vmb]

Gracias asi quedo bien,,, masters
Bye

[ruben_vmb]

Oye u_goldman como puedo hacer que la ventanita de java sea mas grande y la letra igual,,
Tambien me gustaria saber como puedo en el formulario que tengo adjuntar archivos,
Gracias

[José Molina]

Saludos.

En PHP+MYSQL existe esto:

mysql_insert_id();

Que captura el ID asignado al ultimo registro ingresado.

En ASP+SQL No existe algo igual??