Como usar begin sequence

[JoséQuintas]

Estou tentando usar begin sequence.

Begin Sequence
? 1 / x
Recover
? "recover 1"
End Sequence
? "Fim"

Não seria só isso?
Continua dando erro na divisão, e não executa o que está em recover, nem o que está após end sequence.

[JoséQuintas]

Consegui... no estilo do VB.

Código: Selecionar todos

Procedure Main
Local cnMySql, mOpen
cnMySql := ConexaoMySql()
mOpen = .f.
BEGIN SEQUENCE with {|e| DoNothing(e)}
   cnMySql:Open()
   mOpen := .t.
RECOVER
  mOpen := .f.
END SEQUENCE
If mOpen
   ? "Ok, Database is Open"
   cnMySql:Close()
Else
   ? "Error, Database isn't open"
   ? cnMySql:State()
   ? cnMySql:Errors(0):Description()
Endif
cnMySql := NIL


Procedure DoNothing( oErr )
? "nothing"
break( oErr )
Return

Function ConexaoMySql(mServidor)
Local cnMySql
mServidor := iif(mServidor==NIL,"server",mServidor)
cnMySql := Win_OleCreateObject("ADODB.Connection")
cnMySql:ConnectionString := "Driver={MySQL ODBC 3.51 Driver};Server=" + 
mServidor + ";" + ;
   "Option=131072;Stmt=;Database=mydatabase;User 
ID=myuser;Password=mypassword;"
cnMySql:CursorLocation = 3 // cliente
cnMySql:CommandTimeOut = 30
cnMySql:ConnectionTimeOut = 30
Return cnMySql

[Itamar M. Lins Jr.]

Ola, José Quintas.
Fugindo um pouco do tópico
Como está usando o Browse com MySQL ?
Está chamando por exemplo, uma tabela com milhares de registros ? Como resolveu o problema da navegação ?

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Tenho isso de forma limitada, já que o uso do MySql também é limitado.
Meu servidor trata a parte de NFE, CCE e CTE, então somente a informação sobre isto fica no servidor, e o browse tem pouca informação.
Por exemplo, o cliente visualiza uma nota fiscal, e verifica o histórico de todos os emails enviados dessa nota, isso é uma parte que está no MySql.
Então são no máximo 10 registros, e mal precisa de browse.
Ainda tenho muito a evoluir no sistema: Apesar de MySql e parte gráfica serem importantes, há outros pontos que preciso resolver antes.
Tá andando tudo junto, eliminando pontos fracos do sistema, e aumentando o uso do MySql devagar.
O lado bom é, por exemplo, nesta semana passei a usar meu próprio servidor de MySql, e estou podendo acompanhar o resultado sem tumulto.
O lado ruim é que os avanços demoram mais.
Estas dúvidas que tenho, já é colocando em prática, sempre.
Funcionou, instalo nos clientes e vamos em frente.

Ainda tenho coisas só em VB, mas são módulos que só eu uso.
Nos clientes, só sobrou o preview de impressão em VB, o resto tá tudo em Harbour, acessando MySql, Webservice próprio e Webservice da Fazenda.
No lado do cliente, qualquer um deles, é só pedir pra atualizar o sistema, e passar a usar a última versão, instantâneo.
Às parece que evolui bastante, e às vezes parece que não.
Acho que é o que acontece trabalhando sempre com mesmos fontes, mantendo compatibilidade com versões anteriores, sei lá.