FoxPro/Visual FoxPro - SOLUCION A PROBLEMAS DE TABLA DAÑADA EN VFP 9.0

Saludos Comunidad!

Hace un tiempo publique problemas que me venia dando los indices en VFP9, sobre todo cuando se trabaja con tablas de mas cien mil registros. Bueno les tengo bueas noticias.

SOLUCIONE EL PROBLEMA!

El asunto es que VFP9 es muy estricto con la revision de la cabecera de los DBF, y si detecta un ligero problema, lo declara corructo al DBF mostrando el mensaje "Table NombredeTabla has become corrupted. The table will need to repaired before using again"

SOLUCION

SET TABLEVALIDATE TO 0

Este comando era la clave para solucionar mi problema. SET TABLEVALIDATE TO 0 desactiva la validacion, permitiendote abrie el supuesto DBF dañado, lo recomendable es agregar un registro en blanco al final y si deseas lo eliminas (recall), mandas un PACK y lugo un REINDEX, CLOSE ALL (cerramos los DBF) luego volver a activar la validacion SET TABLEVALIDATE TO 1 y listo.

Esto lo estoy aplicando en un modulo de reparacion automatica de mis sistemas. Y me esta dando excelentes resultados.

mas informacion respecto al tema: http://www.portalfox.com/index.php?name=News&file=article&sid=1555

Lo dejo aqui por a alguien mas le sirve.

FERNANDO MORA
MACHALA - ECUADOR

amigos del foro en la pagina de DAVID AMADOR www.davphantom.net pudes bajar una aplicacion que rePara tablas dañadas se llama

CM Table Repair Version 2008a

Hola, Tengo un problema con tablas en el FoxPro me dicen que estan dañas, todo esto paso cuando estaba capturando en el sistema y se fue la luz, cuando volvio entre de nuevo me salio el ERROR, si tienen alguna experiencia igual favor de comentar algo, bueno o malo, gracias

EXELENTE METODO FACIL MUY BUENO GRACIAS MUCHAS GRACIAS


EDGGAR GONZALEZ

REPUBLICA DOMINICANA

Muchisimas gracias, lei esta solcuion y me ayudo mucho.

Funciona Perfecto.
Muchas Gracias

Estimado Fernando,
Chingonisimo tu aporte, me acabas de enseñar una instruccion nueva y me ayudaste a resolver un pedo con una tabla que se me daño cuando por causar ajenas el servidor de la empresa se cagò.

Te mando un cordial saludo...

BUENAS TARDES FERNANDO

EXCELENTE TU APORTE. ME RESULTO MUY UTIL HOY (23-11-2012-6:00 P.M.). GRACIAS

ENRIQUE RODRIGUEZ VIVAS
BOGOTA-COLOMBIA

Me sirvió para una tabla que se dañó en un restaurante el día 21/12/2012.

Muy buena solución, gracias.

Geovanny
Costa Rica.

INTENTÉ SOLUCIONAR, PERO DESPUES DE Q ESCRIBIR
SET TABLEVALIDATE TO 0
USE COMPRAS.din IN 0 SHARED
GENERA UN ERROR Q DICE "COMPRAS.DIN IS NOT A TABLE"
Y NO DEJA ABRIR LA TABLA COMPRAS.DIN

Q PUEDO HACER???? AUXILIO!!!!! ES INFORMACION MUY IMPORTANTE PARA LA EMPRESA

tengo el mismo problema y no puedo solucionar este problema por favor ayuda dice not table y no deja hacer nada..

Un abrazo que el Sr. te bendiga. Espero seguirte los pasos.

lo pudiste solucionar? por que tengo le mismo error

abre en modo exclusivo, haces un pack un reindex y set table en 1 cierras la tabla y la vuelves a abrir y listo solucionado la tabla dañada

Gracias tenia un problema con una tabla y lo solucione con tu aporte. Gracias de verdad

Me encanto tu solucion, muy rapida y es justamente lo que necesitaba.

Muchas gracias por tu ayuda se que a muchos nos ha pasado.

Thanks. Bro. Eres lo maximo!!!

Mil gracias por la respuesta, excelente solución.

¿qué pasa si dejo SET TABLEVALIDATE TO 0 y no lo cambio a SET TABLEVALIDATE TO 1?

De antemano Gracias

Gracias. este sitio es de incalculable ayuda

Fernando, muy efectiva tu solucion, la verdad que me fue de mucha utilidad ante el grave problema de las tablas corruptas, gracias por el aporte

Gracias Fernando.
Saludos desde Republica Dominicana.

Estimado Fernando

Muchas gracias por tu solución, el día de ayer hubo problemas de red y se hecharon a perder algunas tablas, con esto las recuperaremos.

Saludos

M.A.M.
Guayaquil - Ecuador

Muchas gracias me ayudo en mi problema

heey excelente,,..tenia otra manera pero queria una mas rapida y senclla.. me funciono muchisimo mejor.. gracias

Gracias Fernando, me fue de utilidad.

Buenas tardes Fernando
Hoy 28/01/2022 estoy teniendo ese mismo problema. Logro reparar la tabla desde la ventana de comandos. Pero lo que quisiera es así como mencionas tener un modulo o formulario desde el cual poder seleccionar la tabla a ser reparada y reparar dando clic a un botón.

Este es el código que tengo escrito en el botón pero no me funciona. podrías ayudarme?

tablarota = ALLTRIM(thisform.combo1.DisplayValue) &&En combo1 se cargan los nombres de todas las tablas del sistema
set tablevalidate to 0
use &tablarota
APPEND BLANK
use &tablarota
RECALL
use &tablarota EXCLUSIVE
PACK
use &tablarota EXCLUSIVE
REINDEX

CLOSE TABLES ALL
set tablevalidate to 1


Adjunto otro codigo que SI funciona pero no recupera los datos de los campos tipo date

tablarota = ALLTRIM(thisform.combo1.DisplayValue)
set tablevalidate to 0
use &tablarota EXCLUSIVE
copy to nuevatabla
select (tablarota)
ZAP
APPEND FROM nuevatabla
set tablevalidate to 1
erase nuevatabla.*


Gracias

Buenas tardes Cristhian!

Noté tantito diferente el código que mencionas a lo que antes había visto.
Algunos comandos que mencionas no me suenan lógicos de aplicar.

Te dejo éste link:
https://davidacuna.wordpress.com/2011/10/21/bajar-nivel-integridad-al-comprobar-estado/

Suerte
zarlu
Chetumal, Quintana Roo, México

Encontré allí la solución.

Muchas gracias Zarlu