Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Nome

Tipo

Descrição

Obrigatório

Referência

cTable

caractere

Nome da tabela.

X

 

cIndex

caractere

Nome do índice.

 

 

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
STATIC FUNCTION CreateTable()
  TCDelFile('T1')
  TCDelFile('T2')
  
  DBCreate('T1', {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE"   , "C", 10, 0}}, 'TOPCONN')
                  
  DBCreate('T2', {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE"   , "C", 10, 0}, ;
                  {"FIELD_ID" , "N", 3, 0}}, 'TOPCONN')
RETURN

FUNCTION u_canOpen()
  RPCSetEnv("99","01"TCLink()
  
  CreateTable()

  DBUseArea(.F., 'TOPCONN', 'T2', 'T2', .F., .F.)

  DBCreateIndex('T2_IND', 'FIELD_NAME', { || 'FIELD_NAME' })

  IIF(TCCanOpen('T1'), CONOUT('TRUE'), CONOUT('FALSE'))             // retorna .T., ou seja, tabela existe
  IIF(TCCanOpen('T2'), CONOUT('TRUE'), CONOUT('FALSE'))             // retorna .T., ou seja, tabela existe
  IIF(TCCanOpen('T3'), CONOUT('TRUE'), CONOUT('FALSE'))             // retorna .F., ou seja, tabela não existe
  IIF(TCCanOpen('T2', 'T2_IND'), CONOUT('TRUE'), CONOUT('FALSE'))   // retorna .T., ou seja, tabela e índice existem
  IIF(TCCanOpen('T2', 'T2_INDEX'), CONOUT('TRUE'), CONOUT('FALSE')) // retorna .F., pois, o índice T2_INDEX não existe
  IIF(TCCanOpen('T1', 'T1_IND'), CONOUT('TRUE'), CONOUT('FALSE'))   // retorna .F., pois, o índice T1_IND não existe
 
  DBCloseArea()
RETURN

...