13 de julio de 2004

Saber si existe un campo en una tabla

Con esta función podemos comprobar si existe un campo en una tabla.

Ejemplo:
? ExisteCampo("MiCampo","MiTabla")

FUNCTION ExisteCampo(tcCampo,tcTabla)
  LOCAL la(1)
  AFIELDS(la,tcTabla)
  RETURN ASCAN(la,tcCampo,1,0,1,15) # 0
ENDFUNC


Luis María Guayán

1 comentario :

  1. *** Otra forma de Verificar si existe Campo
    SELECT MiTabla
    IF FSIZE("MiCampo") = 0
    ALTER TABLE MiTabla ADD COLUMN MiCampo c(20) NULL
    ELSE
    *** No hace nada
    ENDIF

    ResponderEliminar