Banco danificado

Grandes Mestres,

Mais uma vez estou aqui com problemas. Desse vez é o seguinte: Instalei um sisteminha em um cliente e o mesmo cadastrou aproximadamente 10.000 registros. Nunca fez backup (ao fechar o sistema sempre exibe mensagem sobre a necessidade do backup). No momento o sistema exibe: "Formato de banco de dados c:\...... não reconhecido" e NÃO abre de modo algum. Já tentei importar seus objetos e algumas outras tentativas e nada. Baixei alguns programas (para recuperar banco) e os mesmos ou não fazem nada (ou pedem o serial, são pagos, claro) ou dizem que o sistema está totalmente vazio. Como pode vazio se já tinha 10000 registros, 5 ou 6 tabelas, vários relatórios, etc. Além do banco não ser reconhecido ou está corrompido faz apagar todos os objetos do sistema? O fato de está corrompido ou não ser reconhecido como banco de dados leva a se achar que o banco não tenha nada nele? Inclusive o banco, antes dos cadastros tinha 8 MB e agora tem 15 MB. Deve ter algo nele. Como consigo recuperar? Alguém me ajuda?

MUITO Obrigado a todos.

Grande abraço

Esqueci de informar: Ambos os computadores (meu e do cliente) tem Windows 7 e Office 2007. No meu computador tenho o mesmo banco, totalmente vazio, antes de levar para o cliente e abre normal. No cliente também abria normal e depois o problema.

Poderia nos enviar pra ver se conseguimos alguma coisa.

Segue anexo

Caro Kaynan,

Conforme solicitado, enviei o banco desde ontem. Veja o que pode fazer por mim.

Muito grato

Abraços

Ola amigo to tentando mas ta complicado...
Voce falou que tem o banco vazio funcionando,se tiver poste pra gente...

Segue anexo o zerado que abre normalmente.

Muito grato

Abraços

Só uma observação: há casos em que o banco se corrompe de tal modo que os elementos dele são realmente excluídos. Mesmo que o arquivo mdb/accdb esteja com 2 giga de tamanho pode ser que não tenha nada nele. Para você ter uma ideia do que estou falando, se possível peque um banco gigante, faça uma cópia dele e exclua tudo dessa cópia: tabelas, formulário, relatórios, etc. Você verá que o tamanho não será alterado. Ele só voltará a ter alguns kb de tamanho depois que você fizer um Compactar/Reparar e é para isso que temos o Compactar/Reparar. Quanto mais ações um banco executa, maior o arquivo vai ficando. Mesmo excluindo muita coisa o tamanho não volta a menos que o reparemos. O backup é a melhor saída para evitar esse tipo de situação e se preciso for, pode-se obrigar o cliente a fazer o backup ou então colocar uma cláusula no contrato se isentando de responsabilidades em caso de as recomendações não serem seguidas. É dever do developer alertar sobre essa necessidade e dever do cliente segui-las. Se o cliente não segue, o developer não tem que se responsabilizar por casos irreversíveis.

Perfeito Criquio,muito bem explicado.
Vou tentar ajudar o colega mas sei que é complicado quando acontece isso.

Abçs.

Criquio / Kaynan

Criquio, muito grato pelo que você expões. Realmente é do modo que você diz. Esse sisteminha é para um gabinete político onde os funcionários não tem a menor responsabilidade com as consequências das besteiras que fazem e um backup fica sempre para amanhã ou para o outro funcionário do outro horário. A princípio, ao fechar o sistema ele abria automaticamente uma rotina de backup e simplesmente o usuário fechava e foi pedido para tirar esse backup. Coloquei só a mensagem FAÇA BACKUP... com tempo de 20 segundo e foi pedido para tirar. Em consequência vem este problema.


Fico ainda apelando que Kaynan consiga pelo menos recuperar o conteúdo das tabelas ou mesmo somente a tabela TbMala Dia_D que já me ajuda demais.

Muito grato a todos

Abraços

Vou deixar uma dica: inclua uma rotina para fazer uma cópia do aplicativo na primeira abertura do dia com o nome, por exemplo, da data: bkp_2014-11-19.mdb. Essa cópia pode até ficar em uma pasta oculta e/ou em um servidor sem permissão de exclusão se isso for possível.

Entendi seu raciocínio. Na implantação do sistema deixei um soft Cobain Backup (você deve conhecer) que fazia backup duas vezes ao dia e quando aconteceu o problema com o banco fiquei tranquilo achando que tinha vários backups em uma segunda partição do HD e ao procurar fui informado que ao verem aquele programa sendo executado, estranharam, não conseguiram falar comigo e chamaram um "entendido" que disse ser um vírus e o mesmo desinstalou. Não havia sido digitado nada ainda. O "vírus" entrou no computador deles depois que instalei o banco. É possível? O entendido ainda ganhou dinheiro. Dá?

Abraços

kinhos

veja esse link se ajuda

http://www.accessfaq.com.br/webroot/default.asp?http%3A//www.accessfaq.com.br/webroot/detalhe.asp%3FPergunta_Id%3D14

Valeu o link amigo. Já havia lido e continuo na estaca zero.
Muito grato pelo seu interesse.

Abraços

Quando necessário eu costumo fazer essa cópia utilizando o formulário de abertura do próprio aplicativo. Isso pode ser feito verificando se já existe o arquivo com o nome da data atual. Se não existir, faz a cópia:

Código:

    ' Deve estar marcada a referência "Microsoft Scripting Runtime"
   
    Dim fso As FileSystemObject
    Dim Origem As String, Destino As String

    ' Captura o caminho completo incluindo o nome e a extensão do aplicativo
    Origem = CurrentDb.Name

    ' Define o caminho do backup no formato bkp_yyyy-mm-dd.mdb
    Destino = CurrentProject.Path & "\Backups\bkp_" & Format(Year(Date), "0000") & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00") & ".mdb"

    ' Verifica se existe a pasta Backups dentro da pasta do aplicativo. Caso não exista, cria-a.
    If Len(Dir(CurrentProject.Path & "\Backups", vbDirectory)) < 1 Then
        MkDir CurrentProject.Path & "\Backups"
    End If

    ' Verifica se já existe o backup do dia. Caso não exista, cria-o.
    If Len(Dir(Destino, vbArchive)) < 1 Then
        Set fso = New FileSystemObject
        fso.CopyFile Origem, Destino
    End If

Valeu amigo. Muito grato pela sugestão. Vou guardar sua rotina para as minhas necessidades.

Muito grato

Abraços