Como testar conexão cursoradapter VFP8 + MySql

[Rogério Gomes]

Prezados Amigos,

Criei um sistema em VFP8 de envio de dados para uma base MySql com conexão remota, até ai tudo bem, mas o que eu preciso é saber como testar essa conexão para evitar algum erro no processamento. Erro do tipo "colocar o programa pra rodar e cair a conexão".
Como resolver este problema!!!!

Alguém pode ajudar?

Abraços

Rogério

[alceu11]

Código:


 cStrConexao="DRIVER=MySQL ODBC 3.51 Driver;" +;
"SERVER=localhost;" +;
"UID=USER;" +;
"PWD=SENHA;" +;
"DATABASE=BANCODADOS;"

nConexao = Sqlstringconnect(cStrConexao)

If nConexao < 1
Messagebox( 'Nao foi possivel conectar-se ao Banco de Dados!',48,'Atencao' )
Else
If SQLExec(nConexao,"select * from PRODUTO","Gtemp" ) < 1
Messagebox("Erro na Conexão ou no Select",16,"Erro Aviso")
Else
Browse normal title 'produtos'
SQLDisconnect(nConexao)
Endif
Endif




[alceu11]

Assista este video tb no YouTube

[Você precisa estar registrado e conectado para ver este link.] src="[Você precisa estar registrado e conectado para ver este link.] width="425" height="350" type="application/x-shockwave-flash" wmode="transparent" quality="high" scale="exactfit">

[Rogério Gomes]

Valeu Alceu, já tinha assistido esse video e foi dai que parti pra conexão com o cursor adapter através do formulário - dataenviroment - builder, porém ainda não consegui testar a conexão. O Sistema está funcionando corretamente quando a conexão com internet está funcionando, mas eu queria um teste, caso, no meio do processamento a internet parasse de funcionar, ai eu teria como enviar uma informação ao operador e retornar ao sistema sem a paralização com erro.
Mas vou tentar com a sua dica de outra forma, vou tentar conectar sem o cursor adapter com as instruções dentro do formulário!!

[Rogério Gomes]

Alceu, ja faz algum tempo!!
sua dica foi muito proveitosa, criei uma nova conexão sem o cursor adapter e funcionou certinho. Consigo a conexão com o MySql via internet, porém (tenho um problema), quando desconecto o cabo de rede e fico sem internet e ponho o programa pra rodar, me abre uma caixa de dialogo do MySql ODBC 3.51, como posso fazer para inibir esta caixa? por que quando o programa chega na linha * nConexao = Sqlstringconnect(cStrConexao), ela praticamente ja esta conectando ao banco de dados

[Rogério Gomes]

Esta linha de comando vem antes do teste:

If nConexao < 1
Messagebox( 'Nao foi possivel conectar-se ao Banco de Dados!',48,'Atencao' )
Else
If SQLExec(nConexao,"select * from PRODUTO","Gtemp" ) < 1
Messagebox("Erro na Conexão ou no Select",16,"Erro Aviso")
Else
Browse normal title 'produtos'
SQLDisconnect(nConexao)
Endif
Endif


e mesmo com esse teste, ainda sim abre a caixa de dialogo.

Se puder me ajudar mais esta vez agradeço.

Abraços

[alceu11]

seria um retuRN .f. ELE CAIA FORA DA ROTINA

COLOQUE ISTO ANTES DE TUDO
****
DECLARE LONG InternetGetConnectedState IN "wininet.dll" LONG lpdwFlags, LONG dwReserved
IF InternetGetConnectedState(0, 0) <> 1
MESSAGEBOX("Sua Internet esta indisponivel !",48,"Aviso sem Net!! ")
RETURN .F.
ENDIF

Código:

 **Sera ke um return .F. ** nao resolve
If nConexao < 1
Messagebox( 'Nao foi possivel conectar-se ao Banco de Dados!',48,'Atencao' )
  RETURN .F.
Else
If SQLExec(nConexao,"select * from PRODUTO","Gtemp" ) < 1
Messagebox("Erro na Conexão ou no Select",16,"Erro Aviso")
  RETURN .F.
Else
Browse normal title 'produtos'
SQLDisconnect(nConexao)
Endif
Endif



[alceu11]

ROGERIO se a dica funcionar , compartilhe com o forum, como, ficou a tua rotina, com as novas alteracoes.
Para ke um proximo leia aproveite a sua SOLUCAO...!!!

[m@r<3|o]

Rogerio

If nConexao < 1 isso se não me engano é ODBC
Se a internet cair ou não durante muitos segundos varios ... a resposta continuara conectado

A solução acho que é verificar por Site antes do ODBC

tenta com InternetCheckConnection

Código:

 DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrl, INTEGER
 dwFlags, INTEGER dwReserved

 InternetCheckConnection("http://[Você precisa estar registrado e conectado para ver este link.]

ai sim a resposta será imediata .... tenta ai verificar antes do ODBC a conexão com a internet