Saber si existe una tabla o vista en una DBC

VFP tiene al menos dos funciones que podemos utilizar para saber si existe una tabla o vista en una DBC:

1. Con INDBC():

IF NOT DBUSE("MiDbc")
  OPEN DATABASE C:MiDbc
ENDIF
SET DATABASE MiDbc

*-- Saber si existe la tabla "MiTabla"
IF INDBC("MiTabla", "TABLE")
  MESSAGEBOX("Si existe la tabla")
ELSE
  MESSAGEBOX("No existe la tabla")
ENDIF

*-- Saber si existe la vista "MiVista"
IF INDBC("MiVista", "VIEW")
  MESSAGEBOX("Si existe la vista")
ELSE
  MESSAGEBOX("No existe la vista")
ENDIF

2. Con ADBOBJECTS():

IF NOT DBUSE("MiDbc")
  OPEN DATABASE C:MiDbc
ENDIF
SET DATABASE MiDbc

*-- Saber si existe la tabla "MiTabla"
ln = ADBOBJECTS(laArray, "TABLE")
IF ln > 0 AND 0 # ASCAN(laArray, UPPER("MiTabla"))
  MESSAGEBOX("Si existe la tabla")
ELSE
  MESSAGEBOX("No existe la tabla")
ENDIF

*-- Saber si existe la vista "MiVista"
ln = ADBOBJECTS(laArray, "VIEW")
IF ln > 0 AND 0 # ASCAN(laArray, UPPER("MiVista"))
  MESSAGEBOX("Si existe la vista")
ELSE
  MESSAGEBOX("No existe la vista")
ENDIF

Luis María Guayán