FoxPro/Visual FoxPro - Tipo Autonumerico...

   
Vista:

Tipo Autonumerico...

Publicado por neo (1601 intervenciones) el 18/02/2008 21:45:17
Buen dia Comunidad, estoy tratando de realizar que el numero id de una tabla se re-ordene de forma que si se eliminó algun numero, ejemplo: (num 3). por medio de una rutina se autogenere y lo asigne de nuevo, para que de ese modo todos los numeros sean 1,2,3,4,5..etc Solo que algo anda mal no realiza el consecutivo...

Me pueden ayudar??

ID
1
2
4
5


La rutina es esta, en un prg:

SET SAFETY OFF
SET TALK OFF

OPEN DATABASE bd.dbc
SELECT 1

USE beneficiados
SELECT 1
GO TOP

LOCAL z1
z1=0
replace num WITH z1
GO top

DO WHILE ! EOF()
WAIT WINDOW NOWAIT "Iniciando Automatización, espere..."

REPLACE NUM WITH num+1

SKIP
ENDDO
WAIT WINDOW TIMEOUT 0.8 "Terminó con exito la Automatización de Datos"

CLOSE DATABASES
CLEAR ALL


Gracias►
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tipo Autonumerico...

Publicado por enrique (1041 intervenciones) el 18/02/2008 22:16:50
si queres que los numeros sean consecutivos desde el principio de la tabla.

OPEN DATABASE bd.dbc

USE beneficiados in 1
SELECT 1
x1=reccount()
GO TOP
WAIT WINDOW NOWAIT "Iniciando Automatización, espere..."

for i = 1 to x1
replace num with i
skip
endfor

WAIT WINDOW TIMEOUT 0.8 "Terminó con exito la Automatización de Datos"

CLOSE DATABASES
CLEAR ALL

probalo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Muy bueno...

Publicado por neo (1601 intervenciones) el 19/02/2008 16:11:39
Excelente, te sacaste un 10

Gracias Compañero►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar