Corrupção em arquivos FPT, como resolver?

[Rogerio Figueira]

Caros,

as vezes surge problema de corrupção em arquivos fpt (campo memo). Quando não tem conteúdo relevante, excluo o campo e crio novamente, zerando o arquivo fpt associado ao dbf.

Agora me surgiu um caso de um usuário que não pode excluir o conteúdo dos memos.

Já tentei copiar o dbf para novo arquivo (copy to...) não vai, tentei abrir com o OpenOffice, não abre.

Alguém conhece algum macete ou ferramenta para recuperar o dito cujo?

[]´s

[joaosolution]

Rogerio

Boa tarde

Na pasta do clipper versão 5.3 tem um utilitário que chama DBT53.EXE que talvez te ajude.

Em arquivos corrompidos, já consegui resolver abrindo o arquivo e excluindo somente a linha com problema.

Att

João Bosco

[kapiaba]

Tente com esse:

http://www.4shared.com/zip/c5sxe-t5ce/DBFDTOP.html

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32233&p=188939&hilit=ourxdbu#p188939

[Theotokos]

tente:

http://www.officerecovery.com/pt/dbf/

http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=2671

[Rogerio Figueira]

Caros, nada disso funcionou.

Eu já tinha tentado com o OurDbu, com o FiveDbu, atualizei agora o fivedbu, tentei com o DBFRecovery, com um programa meu que corta um trecho do arquivo e nada.

Parece que o FPT bixou de tal jeito que não consegue ser lido. O FiveDbu e o OurDbu até travam.

Paciência.

Vou verificar os backups do usuário e retornar os arquivos de uns dias atrás.

[]´s

[Jmsilva]

Rogério tive muitos problemas parecido com seu, as vezes um único registro causa um estrago, a solução que vou apresentar foi vai gravar vazio no campo que apresentar o problema, para isso uso velho TRY...CATCH.

Faça uma rotina em que abra o arquivo danificado e cria uma estrutura TEMP idêntica. lembre-se não pode ter arquivo index.

//Alias FILE: trata do arquivo danificado

DO WHILE !FILE->(EOF())

TEMP->(DBAPPEND())

FOR nCT:=1 TO FILE->(FCOUNT())

//rotina que tenta recuperar arquivo danificado

TRY

xVar := FILE->(FIELDGET(nCT))

CATCH //DEU ERRO MAS CONTINUA

IF FILE->(FieldType(nCT)) == "D"

xVar := CToD("")

ELSEIF FILE->(FieldType(nCT)) == "C"

xVar := ""

ELSEIF FILE->(FieldType(nCT)) == "N"

xVar := 0

ELSEIF FILE->(FieldType(nCT)) == "M"

xVar := ""

ELSEIF FILE->(FieldType(nCT)) == "L"

xVar := .F.

ENDIF

END

TEMP->(FIELDPUT(nCT,xVar)) //GRAVA

NEXT

FILE->(DBSKIP())

ENDDO

Esta rotina demora, vai depender da quantidade de registro, não use em rede, copie o DBF e FPT para uma pasta local.

Boa Sorte !!!

[Rogerio Figueira]

Obrigado JM, vou tentar e retorno o resultado.

[]´s

[vagner]

Geralmente o corruption se dá pela forma que está dando um pack no arquivo, qndo existem campos memo, o melhor é ao invés de dar pack, criar uma estrutura nova e ir copiando os registro quem não são deletados.

[Jorge Andrade]

Geralmente o corruption se dá pela forma que está dando um pack no arquivo, qndo existem campos memo, o melhor é ao invés de dar pack, criar uma estrutura nova e ir copiando os registro quem não são deletados.

Quem é vivo sempre aparece. ahuahuahauhaua

[]s,