Olá Pessoal,

 

Tenho uma aplicação VB que acessa um Banco MYSQL remotamente em um servidor de um provedor. Minha conexão é de banda larga.

A aplicação roda perfeitamente, quando stand-alone.

Quando diversos usuários utilizam a aplicação, em alguns usuários eu recebo um erro durante a realização de uma query que é o seguinte:

RUN TIME ERROR: -2147467259 (80004005) - Erro não especificado.

Me parece que é um problema de banda (pois minha conexão é ADSL de 600 K para upstream e 128K para downstream).

Alguém já enfrentou este problema ou tem alguma idéia de como resolvê-lo.

Eu poderia gerar uma rotina de erro, para manipular este erro, e voltar para processar a última Query SQL (que é sempre um INSERT ou um UPDATE), mas como terei certeza de que a query que gerou o erro foi ou não executada no servidor MYSQL ?

 

[]'s

 

Roberto

Olá Roberto! Você pode se certificar se o comando SQL foi executado através da forma como esquematizar o tratamento de erros. Ex:

 

Private Sub Form_Load()

 

    On Error GoTo catch_ConnException

    'Abre a conexão

    conn.open
 
    On Error GoTo catch_InsertException
     'Executa comando
    conn.execute
   
    Exit Sub

 

catch_ConnException:
    MsgBox Err.Description
    Resume
   
catch_InsertException:
    MsgBox Err.Description
    Resume Next

 

End Sub

 

 

No código acima eu configurei pra que se houver um erro na conexão, o código seja direcionado para "catch_ConnException", e após exibir o alerta voltar para a linha que gerou o erro.

 

Se o erro for na execução do comando SQL o controle passa para "catch_InsertException", que também exibe uma mensagem, mas passa a execução do programa para a instrução seguinte àquela que gerou o erro.

 

Resumindo, se a conexão falhar, reconecta. Se o comando SQL der erro, sai da rotina.

 

Daí depende do que você quer fazer. Se precisar de ajuda pra montar o esquema é só falar.

 

Espero ter ajudado. Abraço!