O ADO continua indo
Enviado: 10 Fev 2016 20:06
Está acabando a parte fácil, depois ainda não sei como vou fazer.
Aqui um trecho da rotina executada automaticamente na carga do sistema, mexendo com estruturas do MySQL:
Aqui um trecho da rotina executada automaticamente na carga do sistema, mexendo com estruturas do MySQL:
FUNCTION AlteradoEntreVersoes()
LOCAL cnMySql := ADOClass():New( AppCnMySqlLocal() )
LOCAL aFileList, oEachFile
SayScroll( "Campo JPRECIBO.RESTATUS" )
IF .NOT. cnMySql:FieldExists( "RESTATUS", "JPRECIBO" )
cnMySql:ExecuteCmd( "ALTER TABLE JPRECIBO ADD COLUMN RESTATUS VARCHAR(1) NULL DEFAULT ''" )
ENDIF
SayScroll( "Renomeando BAIRRO pra HLBAIRRO" )
IF cnMySql:TableExists( "BAIRRO" )
IF cnMySql:TableExists( "HLBAIRRO" )
WriteErrorLog( "Conferir sobre MySQL.BAIRRO e MySQL.HLBAIRRO" )
ELSE
cnMySql:ExecuteCmd( "RENAME TABLE BAIRRO TO HLBAIRRO" )
ENDIF
ENDIF
...