DBOrderNickname
Seleciona a ordem de índice ativa através de seu apelido.
Sintaxe
DBOrderNickname( < cApelido > )
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cApelido | caractere | Indica o nome do apelido da ordem que será setada. | X |
|
Retorno
Nome | Tipo | Descrição |
---|---|---|
lRet | lógico | Retorna verdadeiro (.T.), se a ordem for setada com sucesso; Caso contrário, retorna falso (.F.). |
Observações
- Esta ordem é a responsável pela sequência lógica dos registros da tabela corrente.
- Caso cApelido não exista, será apresentada a mensagem de erro: "DBOrderNickName - Nick Name not found: XXX Alias: YYY". Onde XXX será o apelido, YYY será o alias e será retornado falso (.F.).
- Se a work area não estiver em uso, será apresentada a mensagem de erro: "Work area not in use" e será retornado falso (.F.).
Exemplos
user function test() local cT1 := "T1" TcLink() if TcCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"FIELD_COD" , "C", 2, 0}, ; {"FIELD_NAME", "C", 10, 0}}, "TOPCONN") DBUseArea(.F., "TOPCONN", cT1, (cT1), .F., .F.) DBCreateIndex("T1INDEX", "FIELD_COD+FIELD_NAME" , {|| FIELD_COD+FIELD_NAME }) (cT1)->( DBSetNickName("T1INDEX", "T1NICK") ) DBOrderNickname("T1NICK") nIdxOrd := IndexOrd() msgInfo("Ordem de índice ativo: " + cValToChar( nIdxOrd ) + chr(13)+chr(10) + "Chave de índice ativo: " + IndexKey(nIdxOrd)) tcUnLink() return
Veja também
- TCLink
- TCCanOpen
- TCDelFile
- DBCreate
- DBUseArea
- DBCreateIndex
- DBSetNickname
- IndexOrd
- cValToChar
- IndexKey
- TCUnlink
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas