Histórico da Página

< cTable 

>, < aEstruturaAtual 

>, 

< aEstruturaNova >, [ @nErro ] )

A função determina internamente as ações a serem tomadas para adequar a estrutura atual para a nova estrutura informada, mantendo os dados na tabela. Nesta operação, dependendo do SGDB em questão, um ou mais índices existentes para a tabela podem ser apagados para que a operação seja completa.

Ao comparar as estruturas, são determinadas originalmente quatro ações para cada campo da estrutura

• Coluna Inserida ( existe na nova estrutura, mas não existe na estrutura atual )
• Coluna Eliminada ( existe na estrutura atual, mas não existe na nova estrutura )
• Coluna Mantida ( existe em ambas as estruturas, com os mesmos atributos – tipo e tamanhos )
• Coluna Alterada ( existe em ambas as estruturas, porém com tipo ou tamanho diferentes )

 ex_TCAlter()

  Local cTableNAme := "TTABLE"

  Local nTopErr := NIL

   
  // conecta com o dbaccess

  nStatus := 

TCLink()
   
  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