Ver Mensaje Individual
  #3 (permalink)  
Antiguo 05/08/2003, 16:31
Avatar de AlexNV
AlexNV
 
Fecha de Ingreso: junio-2003
Ubicación: Madrid
Mensajes: 289
Antigüedad: 21 años, 10 meses
Puntos: 1
SQL="SELECT MAX(ID) as maximo FROM TABLA"
ejecutas el sql y guardas el valor:

maximo = rs.fields("maximo")

tomas el valor numérico del id y le sumas uno

valormaximo = int(mid(maximo, 4, len(maximo) -3))
valorsiguiente = valormaximo + 1

le vuelves a poner el "reg" delante
idsiguiente = 'reg' & str(valorsiguiente)

y lo insertas
"INSERT INTO TABLA(ID) VALUES ('" & idsiguiente & "')"