by MGA » Mon Sep 09, 2013 3:18 pm
Algo assim:
for n := 1 to len(aAlteracoes)
cQuery := "ALTER TABLE " + cTabela + " "
do Case
case aAlteracoes[n,'nProcedimento'] == ATUALIZACAO_CAMPO_EXCLUIDO
cQuery += "DROP COLUMN `" + Alltrim(aAlteracoes[n,'cNome']) + "`"
case aAlteracoes[n,'nProcedimento'] == ATUALIZACAO_CAMPO_ALTERADO
cQuery += "MODIFY COLUMN " + DefinicaoColuna(aAlteracoes[n]) + " " + PosicaoColuna(aAlteracoes[n, 'cCampoAnterior'])
case aAlteracoes[n,'nProcedimento'] == ATUALIZACAO_CAMPO_INCLUIDO
cQuery += "ADD COLUMN " + DefinicaoColuna(aAlteracoes[n]) + " " + PosicaoColuna(aAlteracoes[n, 'cCampoAnterior'])
otherwise
loop
endcase
//QUERY
if !M->oServer:Execute(cQuery)
MsgStop('Não foi possível atualizar a tabela: '+cTabela+CRLF+CRLF+'Query: '+cQuery,'Atenção!')
endif
next