MySql error -1

[Bingen Ugaldebere]

Buenas compañeros.
Obtengo aleatoriamente gran cantidad de errores que tienen siempre el mismo:
Subsistema: MySQL
Código de error: -1
Estado: .T.
Pero de muy diversas descripciones como:
Descripción: Unknown column 'demandantes_formacion.titulo' in
'field list' (mentira se que el campo existe y la select funciona casi
siempre, a veces me sale otro campo diferente a este que también existe)
Descripción: Commands out of sync; you can't run this command now
(parece que el servidor no quiere procesar la select)
No encuentro información clara en Internet, pero todos estos errores -1
parecen tener que ver con la conexión al Servidor no?
Alguien puede confirmarmelo?
Salu2.

[Martin Del Angel]

#include "Xailer.ch"
//---------------------------------------------------------- --------------------
// SOPORTE CONEXION DATA SOURCE MySQL
//---------------------------------------------------------- --------------------
#define DK_DEFAULT_OR_NOT DEFAULT // Why ? :'(
CLASS TMySQLDataSource FROM XMySQLDataSource
METHOD Execute( cCmdMySQL, cEOpe, @aData, @aHeaders )
ENDCLASS
METHOD Execute( cCmdMySQL, cEOpe, aData, aHeaders ) CLASS TMySQLDataSource
Local oE, lSuccess, lDone := TRUE
while( lDone )
lDone := FALSE
TRY
lSuccess := Super:Execute( cCmdMySQL, cEOpe, @aData, @aHeaders )
// Now the integrity of your DATA is PROBLEM of MySQL.
CATCH oE
lSuccess := FALSE
SWITCH( oE:GenCode )
CASE 2006 // MySQL server has gone away
Waiton("Conectando con Base de Datos ....") <==== De tu propiedad jejejej
::Disconnect(); ProcessMessages(); Sleep( 10 )
lDone := lSuccess := ::Connect(); ProcessMessages(); Sleep( 10 )
waitoff()
if( !lSuccess )
DEFAULT cEOpe TO ''
::CheckError( cEOpe + ' => Re-Connect ERROR' )
endif
EXIT
CASE 2014 // Commands out of sync; You can't run this command now
MSGINFO('ERROR 2014')
DEFAULT cEOpe TO ''
lSuccess :=.t.
CASE 1053 // Desconexion de servidor en proceso
CASE 1152 // Conexión abortada
DK_DEFAULT_OR_NOT // What ???
WITH OBJECT oE
:Operation := :ProcName := ProcName( 1 )
:ProcLine := ProcLine( 1 )
END
Throw( oE )
END
END
enddo
RETURN lSuccess
//---------------------------------------------------------- --------------------
--

[jfgimenez]

Bingen,
> Obtengo aleatoriamente gran cantidad de errores que tienen siempre el
> mismo:
>
> Subsistema: MySQL
> Código de error: -1
> Estado: .T.
El -1 no significa nada en especial, simplemente que hay un error. Lo
importante es el mensaje de error, que sale directamente de MySQL.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Bingen Ugaldebere]

Gracias Martí­n.
>
> Tu Servidor de MySql se encuentra en un sitio de WebHosting ?
Algo parecido, en un servidor remoto de una corporación dentro del mismo
municipio conectado por fibra a media docena de edificios del mismo
municipio.
>
> Si es asi , como controlas el TimeOut de la conección?
Tení­a una versión antigua del Prg que me enví­as que ya cogí­ del foro.
Gracias por arrojar algo de luz sobre este embrollo, pondré este nuevo
código a ver que pasa.
Salu2.