Anónimo
Como hacer que una tabla tenga un campo automático
Disculpa me gustaría que me ayudaras, quisiera saber como hago para que una tabla tenga un campo que maneja un código y este entra automáticamente.
correo
correo
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
El campo autonumérico no existe en VFP, pero puedes implementar un sustituto con algo similar a:
GO BOTTOM
m.cValor = PADL( ALLTRIM( STR( VAL( Tabla.CampoID ) + 1 ) ), nTm, '0' )
APPEND BLANK
REPLACE Tabla.CampoID WITH m.cValor
Donde:
Tabla. CampoID es el campo (incluyendo el nombre de la tabla) que funciona como ID (autonumérico)
NTm es el tamaño del campo Tabla. CampoID
Esto es suponiendo que el campo Tabla. CampoID sea carácter. Si el campo es numérico, el código quedaría como:
GO BOTTOM
m.nValor = Tabla.CampoID + 1
APPEND BLANK
REPLACE Tabla.CampoID WITH m.nValor
GO BOTTOM
m.cValor = PADL( ALLTRIM( STR( VAL( Tabla.CampoID ) + 1 ) ), nTm, '0' )
APPEND BLANK
REPLACE Tabla.CampoID WITH m.cValor
Donde:
Tabla. CampoID es el campo (incluyendo el nombre de la tabla) que funciona como ID (autonumérico)
NTm es el tamaño del campo Tabla. CampoID
Esto es suponiendo que el campo Tabla. CampoID sea carácter. Si el campo es numérico, el código quedaría como:
GO BOTTOM
m.nValor = Tabla.CampoID + 1
APPEND BLANK
REPLACE Tabla.CampoID WITH m.nValor