Histórico da Página
...
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cNome | Caracter | Indica o nome da tabela que será alterada | X | |
| aEstruturaAntiga | Vetor | Indica o array que contém as informações dos campos atuais da tabela. | X | |
| aEstruturaNova | Vetor | Indica o array que contém as informações com os campos que serão alterados na tabela. | X | |
| nErro | Numérico | Caso 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).
...
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)
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas