Open Database MiDataBase TRY cAlias=Alias() lOk = .T. DBGetProp(cAlias,"VIEW","Comment") CATCH TO oErr lOk = .F. FINALLY EndTry IF lOk =MessageBox(cAlias + " Es una Vista") Else TRY lOk = .T. DBGetProp(cAlias,"DATABASE","Comment") CATCH TO oErr lOk = .F. FINALLY EndTry IF lOk =MessageBox(cAlias + " Es una Tabla") EndIf ENDIFb) Abrir la .dbc como una tabla y buscar el nombre y el tipo:
Use MiDataBase.dbc Again Shared cAlias=Lower(Alias()) Locate for Lower(ObjectName)=cAlias .and. Lower(ObjectType)="view" IF !Eof() =MessageBox(cAlias + " Es una Vista") ELSE Locate for Lower(ObjectName)=cAlias .and. Lower(ObjectType)="table" IF !Eof() =MessageBox(cAlias + " Es una Tabla") EndIf EndIf Use>Tenemos un caso particular, en el cual nos integramos con una aplicación de terceros escrita en VFP con DBC y vistas, locales, remotas y tablas asociadas al DBC.