Cria uma chave unica para a tabela corrente.
TCUnique( < cAlias >, [ cColumn ] )
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cAlias | caractere | Alias da tabela corrente. | X | |
cColumn | caractere | Nome das coluna da tabela. |
Nome | Tipo | Descrição |
|---|---|---|
Retorna | numérico | 0 no caso de sucesso. No caso de erro retorna os numeros de erros. |
FUNCTION Example()
Local cT1 := "T1"
TCLink()
DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
{"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.)
// exemplo com duas colunas
nRet := TCUnique("T1", "FIELD_NAME+FIELD_TYPE")
if nRet == 0
conout("Criado com sucesso")
endif
DBCloseArea()
TCUnlink()
RETURN