Ayuda con corrupcion en campo memo

[Orbex]

Hola amigos del foro

Tengo una base de datos que contiene un campo memo el cual en algunos momentos se "corrompe", para hacer la correccion, abro dicha DBF con en clasico DBUM, busco el registro con el problema, edito el contenido del campo memo y con eso se resuelve el problema.

Lo que deseo hacer es un programa que recorra dicha base de datos y que detecte y repare en forma automatica el problema. Me gustaria saber la forma en la que puedo hacer dicho procedimiento. He intentando hacer un ciclo por medio del cual detectar el problema y resolverlo pero no he tenido exito.

Agradezco a quien me pueda brindar una ayuda con dicho tema

Gracias.
Saludos


BEGIN SEQUENCE
bVError = ErrorBlock( { | o | VBreak( o ) } )

USE \TEMP\INVENT EXCLU NEW ALIAS "TOFIX"
DO WHILE !EOF()
cTXT:=FIELD->COMENTARIO
IF cTXT=NIL
cTXT:=''
ENDIF
FIELD->COMENTARIO:=cTXT
SKIP
ENDDO
END SEQUENCE
ErrorBlock( bVError )
?'OK'
QUIT



static function VBreak( oError )
FIELD->COMENTARIO:=''
lNoError:=.F.
BREAK
return nil

[hmpaquito]

orbex,

Se precisaría mas informacion:

compilador, rdd usado, ¿ por qué reparar y no evitar el problema ?

[rolando]

Orbex,

Tenía problemas con los campos memo y es que a veces "aparecía" en ellos información de otros memos y no la que se había guardado. Esto pasaba muy de vez en cuando pero, cuando lo hacía era un verdadero problema.

De acuerdo con lo sugerido por algunos integrantes del foro, revisé el programa en donde se "manejaba" este memo y lo reescribí dos veces pero el error en los memos seguía (muy de vez en cuando).

Te comento que el problema comenzó cuando se conectó el sistema a tres pc en red, antes de eso y con una sola pc jamás hizo la falla. Todas con el mismo so (XP) sólo que una de las pc es un poco más vieja y lenta.

La solución llegó cuando comencé a usar al ADS. NUNCA MÁS CORRUPCIÓN EN CAMPOS MEMOS. Ahora son tan confiables que incluso guardo en ellos infomación del seteo del sistema y otros datos importantísimos en foma de arrays multidimensionales y JAMÁS volví a tener problemas.

No se si será tu caso pero espero que te ayude en algo mi respuesta. Saludos.

Rolando

[Orbex]

Gracias por contestar Rolando

Se que con ADS se solucionan todos esos problemas, pero muchos de mis clientes no van a querer comprar la licencia de ADS y todos utilizan el sistema en red con por lo menos 3 pc... por eso estaba buscando una solucion gratuita de ser posible...

Gracias en todo caso por tu sugerencia

Saludos