Ayuda con corrupcion en campo memo
Posted: Thu Apr 05, 2012 11:46 am
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
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