Página 1 de 1
Como usar begin sequence
Enviado: 28 Fev 2012 15:14
por 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.
Como usar begin sequence
Enviado: 28 Fev 2012 17:31
por 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
Como usar begin sequence
Enviado: 29 Fev 2012 10:14
por 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.
Como usar begin sequence
Enviado: 29 Fev 2012 11:35
por 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á.