Campos de tablas
Antes que nada gracias y saludos de mi parte, quisiera hacerle otra consulta:
Cómo puedo hacer mediante código crear un campo por (de tipo lógico por ejem) en una tabla que ya existe y que al iniciar mi programa lo investigue, si no existe que lo cree al campo, caso contrario que lo ignore.
Gracias.
Cómo puedo hacer mediante código crear un campo por (de tipo lógico por ejem) en una tabla que ya existe y que al iniciar mi programa lo investigue, si no existe que lo cree al campo, caso contrario que lo ignore.
Gracias.
Respuesta de thekovenant
1
Lo puedes hacer de la siguiente forma :
Use Mibase &&Abro la Base
Afields(aTest) &&Lleno un arreglo con los campos de la BD
lCrea=.T. &&Variable para saber si creo el campo o no
For I=1 to Alen(aTEst,1) &&Ciclo para verificar el nombre del campo
If Upper(aTest[1,1])=="MICAMPO" &&Valido el nombre del campo
lCrea=.F. &&No crea el campo
Exit &&Sale del For
Endif
Endfor
if lCrea
Alter Table MyBase Column Add MiCampo(L) &&Agrego el Campo
endif
No recuerdo bien la sintaxis del alter table, pero creo que es así, sino en la ayuda del Foxpro vienen la sintaxis correcta.
Use Mibase &&Abro la Base
Afields(aTest) &&Lleno un arreglo con los campos de la BD
lCrea=.T. &&Variable para saber si creo el campo o no
For I=1 to Alen(aTEst,1) &&Ciclo para verificar el nombre del campo
If Upper(aTest[1,1])=="MICAMPO" &&Valido el nombre del campo
lCrea=.F. &&No crea el campo
Exit &&Sale del For
Endif
Endfor
if lCrea
Alter Table MyBase Column Add MiCampo(L) &&Agrego el Campo
endif
No recuerdo bien la sintaxis del alter table, pero creo que es así, sino en la ayuda del Foxpro vienen la sintaxis correcta.
