Retorna um array com a(s) View(s) associada(s) a tabela.
TCHasView( < cTable > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cTable | caractere | Nome da tabela que será avaliada. | X |
Nome | Tipo | Descrição |
---|---|---|
aViews | vetor | Array com a lista de Views associadas a tabela. |
Conteúdo | Detalhes |
Array vazio | Um array vazio, pode significar:
|
Array com conteúdo | Nome(s) da(s) view(s) associada(s) a tabela. |
user function exemplo local cT1 := "T1" local cView:= "" local cRDD := "TOPCONN" local i TCLink() clearEnv(cT1) // criação da tabela base para a view DBCreate(cT1, {{"FIELD_NAME", "C", 10, 0}, ; {"FIELD_TYPE", "C", 10, 0}}, cRDD) // criação da view VIEW1 associada a tabela T1 for i := 1 to 3 cView := "VIEW"+cValToChar(i) if TCViewOne(cView, "T1") == .F. UserException("TCViewOne - CREATE VIEW FAIL") endif next conout('Views associadas a tabela T1: ') varInfo("",TCHasView("T1")) clearEnv(cT1) TCUnLink() return static function clearEnv(cT1) local i TCLink() if TCCanOpen(cT1) aViews := TCHasView(cT1) else conout(TCSQLError()) return endif if ( len(aViews) > 0 ) for i:= 1 to len(aViews) TCDelFile(aViews[i]) next endif if TCCanOpen(cT1) if (!TCDelFile(cT1)) conout("FAIL TO DELETE TABLE: " + cT1) conout(TCSQLError()) //apresenta a mensagem de erro do SGBD endif endif TCUnLink() return |