FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error en Tdolphin
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Error en Tdolphin
Posted: Mon Jan 16, 2012 03:29 AM

A realizar un oRs(Skip) me ha dado una vez, el siguiente error:

Called from: tdolpsrv.prg => DOLPHIN_DEFERROR(2435)
Called from: tdolpsrv.prg => TDOLPHINSRV:CHECKERROR(686)
Called from: tdolpqry.prg => (b)TDOLPHINQRY:TDOLPHINQRY(133)
Called from: => TDOLPHINQRY:CHECKERROR(0)
Called from: tdolpqry.prg => TDOLPHINQRY:GETROW(984)
Called from: tdolpqry.prg => TDOLPHINQRY:SKIP(1502)

¿Alguna ayudadita para saber la causa?

Un saludo



Manuel
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Error en Tdolphin
Posted: Mon Jan 16, 2012 09:13 AM

Manuel

es por que has perdido en handle del Query... verifica que no tengas un oRS:End()

Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Re: Error en Tdolphin
Posted: Mon Jan 16, 2012 08:50 PM

Gracias Daniel por contestar.

Es un bucle donde va leyendo todos y cada uno de los elementos del recordset. NO existe ningun oRs:End. Al final, sale del bucle si oRs:EOF().

Le he puesto un Try/End, para cuando dé el error, salga automaticamente del bucle.

Un saludo



Manuel
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Error en Tdolphin
Posted: Mon Jan 16, 2012 10:04 PM

Manuel

podrias colocar cual es el codigo del error?
y el parte del prg que causa el problema

gracias

Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Re: Error en Tdolphin
Posted: Tue Jan 17, 2012 09:55 PM

Daniel,

Esto es el encabezado de error.log:

Time from start: 6 hours 3 mins 7 secs
Error occurred at: 16/01/2012, 04:21:48
Error MYSQL/9039

Stack Calls

Called from: tdolpsrv.prg => DOLPHIN_DEFERROR(2435)
Called from: tdolpsrv.prg => TDOLPHINSRV:CHECKERROR(686)
Called from: tdolpqry.prg => (b)TDOLPHINQRY:TDOLPHINQRY(133)
Called from: => TDOLPHINQRY:CHECKERROR(0)
Called from: tdolpqry.prg => TDOLPHINQRY:GETROW(984)
Called from: tdolpqry.prg => TDOLPHINQRY:SKIP(1502)
Called from: i_OnLine.prg => IONLINE(721)

Parte del código:

// crea recordset
TRY
oRs := oServer:query(cSql)
CATCH oError
// CLOSEMYSQL ALL
VALERT ( "Error query.",,,"X",,.t.)
RETURN 0
END

IF oRs = nil .OR. oRs:nRecCount = 0

  IF lOnline
     // No hay datos online
     VALERT ( cM[79], {cM[2]}, cM[4], "X",,.t.,,{"aceptar"})
  ELSE
     // No hay datos entre esas fechas.
     VALERT ( cM[63], {cM[2]}, cM[4], "X",,.t.,,{"aceptar"})
  ENDIF

  RETURN 0

ENDIF

WHILE .T.

. . . . . .
. . . . . .
. . . . . . mucho codigo pero ningun oRs:End()

oRs:Skip() // en esta linea da el error que he "imbuido" ahora en un TRY

if oRs:EOF()
EXIT
endif

ENDD

Muchas gracias

Un saludo



Manuel
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Error en Tdolphin
Posted: Tue Jan 17, 2012 10:11 PM

Manuel

el error 9039, indica que has perdido el handle de la conexion porque te has quedado sin memoria o pq has matado la conexion...

de cuantos registros es la consulta?
verifica el consumode memoria en el taskmanager mientras se ejecuta le proceso

Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Re: Error en Tdolphin
Posted: Wed Jan 18, 2012 12:13 PM

Podria ser cosa de la memoria, pero extraño, porque son 4Gb. Si fuera asi, con el TRY que he puesto ahora creo que por lo menos, no saldría la pantallita del error.

Muchas gracias Daniel.

Un saludo



Manuel

Continue the discussion