Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Altera a estrutura de uma tabela.


Sintaxe

TCAlter ( <cNome>, <aEstruturaAntiga>, <aEstruturaNova>, [@nErro] ) --> lRet
 

Parâmetros / Elementos

NomeTipoDescriçãoObrigatórioReferência
cNomeCaracterIndica o nome da tabela que será alteradaX 
aEstruturaAntigaVetorIndica o array que contém as informações dos campos atuais da tabela.X 
aEstruturaNovaVetorIndica o array que contém as informações com os campos que serão alterados na tabela.X 
nErroNuméricoCaso ocorra algum erro na hora da alteração, o número do erro do DBAccess será colocado nessa variável X


Retorno

lRet (lógico) 

Após a execução da função TCAlter(), se o retorno for verdadeiro (.T.), a alteração foi realizada com sucesso e <nErro> será 0 (zero).

Caso, o retorno seja falso (.F.), deve-se verificar <nErro>. Se <nErro> ainda for nulo (NIL), a instrução de alteração da estrutura não passou pela pré-validação do Protheus, não sendo enviada ao banco. Caso não seja NIL, a instrução foi enviada ao banco de dados, e não obteve sucesso, sendo retornado na propriedade <nErro> o número da ocorrência do DBAccess relacionada ao erro.


Observações

  • É responsabilidade do programador passar a estrutura antiga corretamente, caso seja passada uma estrutura errada será mostrada uma mensagem de erro; 
  • A unica conversão de tipo suportada é N (numérico) para C (caracter). Caso seja realizada uma conversão de tipo não suportada, todos os dados da tabela serão apagados;

Exemplo

User Function ex_TCAlter()
Local cTableNAme := "TTABLE"
Local nTopErr := NIL

// conecta com o dbaccess
nStatus := tclink("POSTGRES/teste","192.168.189.128")

If nStatus < 0
UserException("TOPCONN - Falha de conexao ["+str(nStatus,4)+"]")
Endif

// Array com a antiga estrutura
aStru := {}
aadd(aStru,{"CPO01","N",8,0})
aadd(aStru,{"CPO02","N",10,0})
aadd(aStru,{"CPO03","D",8,0})
// Cria a tabela para o teste
DbCreate(cTableName,aStru,"TOPCONN")
// Array com a nova estrutura 
aNewStru := {}
aadd(aNewStru,{"CPO01","C",8,0})
aadd(aNewStru,{"CPO02","N",10,0})
aadd(aNewStru,{"CPO03","D",8,0})

bRet := TCAlter(cTableNAme,aStru,aNewStru, @nTopErr)
If !bRet
MSgInfo(tcsqlerror(),"Erro no TCAlter!")
Endif
Return
  • Sem rótulos