Asignar último numero
Publicado por David (3 intervenciones) el 06/03/2005 01:53:03
Al abrir el formulario de mi base de datos cojo por defecto el último numero+1 que es el siguiente del último registro creado en la base, y lo hago de esta forma:
<%
Dim conexion,tabla,sql,ultimo
Set conexion = Server.CreateObject("AdoDB.Connection")
Set tabla = Server.CreateObject("AdoDB.Recordset")
conexion.open "Seguridad"
sql ="select numero from Incidencias order by numero"
tabla.Open sql,conexion, 3, 3
tabla.MoveLast
ultimo = tabla.fields("numero")+1
tabla.close
set tabla = nothing
conexion.close
set conexion = nothing
%>
El problema lo tengo cuando otro usuario tiene abierta la base y como es logico tambien tiene el mismo numero. Como podría decirle que al conectar, si hay otro usuario conectado a la base el valor "ultimo = tabla.fields("numero")+2 "
<%
Dim conexion,tabla,sql,ultimo
Set conexion = Server.CreateObject("AdoDB.Connection")
Set tabla = Server.CreateObject("AdoDB.Recordset")
conexion.open "Seguridad"
sql ="select numero from Incidencias order by numero"
tabla.Open sql,conexion, 3, 3
tabla.MoveLast
ultimo = tabla.fields("numero")+1
tabla.close
set tabla = nothing
conexion.close
set conexion = nothing
%>
El problema lo tengo cuando otro usuario tiene abierta la base y como es logico tambien tiene el mismo numero. Como podría decirle que al conectar, si hay otro usuario conectado a la base el valor "ultimo = tabla.fields("numero")+2 "
Valora esta pregunta


0