Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

numeros automaticos consecutivos

Estas en el tema de numeros automaticos consecutivos en el foro de Visual Basic clásico en Foros del Web. buen dia, me surge una gran duda con algo q pense q tenia dominado, estoy trabajndo con vb6, access y dao... quiero generar numeros automaticos ...
  #1 (permalink)  
Antiguo 01/11/2011, 13:04
 
Fecha de Ingreso: noviembre-2008
Mensajes: 29
Antigüedad: 15 años, 6 meses
Puntos: 0
Pregunta numeros automaticos consecutivos

buen dia, me surge una gran duda con algo q pense q tenia dominado, estoy trabajndo con vb6, access y dao... quiero generar numeros automaticos para luegos guardarlos en la base... resulta q desde vb creo los numeros, y de una carga a otra me genera cualq numero, q no es consecutivo, y se repiten con el ultimo....
en fin, lo q quiero hacer es generar numeros automaticos consecutivos, con un campo de mi tabla rx, llamado nro...
acepto sugerencias, y saber de q manera ustedes lo hacen... el codigo q utilizo es:

na2 = 0
Set rsh2 = db.OpenRecordset("rx")

If rsh2.BOF And rsh2.EOF Then
na2 = 1

Else
rsh2.MoveLast
na2 = rsh2!nro + 1 'automat serial

End If



desde ya gracias...
  #2 (permalink)  
Antiguo 02/11/2011, 11:53
Avatar de Kruzado  
Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 17 años, 2 meses
Puntos: 17
Respuesta: numeros automaticos consecutivos

no has pensado en definir tu campo como autonumerico? (en access) con esto,
sino prueba lo siguiente

Set rsh2 = db.OpenRecordset("select * from rx order by nro")
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:44.