Olá a todos estou desenvolvendo um app de administração de Igrejas sem fins lucrativos, o sistema está na fase final e eu tinha na pasta do sistema a base de dados antiga ainda em .mdb e a fui dar um limpa em arquivos desnecessários na pasta tanto do sistema como na pasta da base de dados pois ia fazendo teste e acumulando .accdbs testados e o original, e por engano deletei a base de dados original a .accdb que já contem dados e configurações das ribbons e outras tabelas ao invés da .mdb que falta esta mencionadas bom usei alguns programas para restaurar este arquivo de volta consegui pois não tinha backup deste tinha somente do front-and ae blz só que o arquivo agora não abre mais esta dando a mensagem de que o formato de banco de dados "caminho do db" não reconhecido vou anexar a imagem da mensagem do access e tentei vários apps na internet de recuperar dbs em access mas sem sucesso pois todos são pagos mostram 4 tabelas 3 delas do próprio access tabelas internas no caso e uma minha somente. se alguém souber fico agradecido e o reino do Senhor mais ainda obrigado vou disponibilizar uma copia do db para ver se alguém consegue restaurar.
usei ate um script de vbs mas não deu certo
usei ate um script de vbs mas não deu certo
- Código:
"'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
'%% %%%%%%%%%%Criado e desenvolvido por %%%%%%%%%%%%%%%%'
'%%%>>>>&&&&&&&******Décio Malinowski*****&&&&&&<<<<<%%%'
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
Box = InputBox ("Informe Senha","Libera Processo.....Décio")
If box = "1102" Then
Box = InputBox ("Informe Senha","Libera Processo.....Décio")
If box = "1102" Then
Box = MsgBox ("O banco é em Office 2007(*.accdb)?" &_
Chr(13) & "Se for clique em Sim." &_
Chr(13) & "E se for anterior(*.mdb), clique em Não",vbYesNo + vbInformation,"Reparar e Compactar")
If box = vbYes then
banco = InputBox ("Informe o caminho do banco com o nome sem a extensão" &_
Chr(13)& "Ex.:\\caminho\nome banco")
If banco = VbCancel then
MsgBox "Ação Cancelada",vbInformation,"Reparar e Compactar"
Else
Set Access = Wscript.CreateObject ("Access.Application")
Set Shell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ori = banco & ".accdb"
bak = banco & "Compactando.accdb"
Access.CompactRepair ori,bak
If FSO.fileexists (bak) Then
FSO.deletefile (ori)
FSO.MoveFile bak,ori
End If
MsgBox "Banco Reparado",vbInformation,"Reparar e Compactar"
box1 = msgbox("Abrir Banco Reparado",vbYesNo + vbInformation,"Reparar e Compactar")
If box1 = vbYes Then
Access.Visible = TRUE
Access.OpenCurrentDatabase ori
If Access.Visible = TRUE Then
aberto = 1
Do While aberto = 1
WScript.Sleep(1000)
If Access.Visible = False Then
aberto = 0
End If
Loop
End If
Else
'nada faz
End If
End If
Else If box = vbNo Then
banco = InputBox ("Informe o caminho do banco com o nome sem a extensão" &_
Chr(13)& "Ex.:\\caminho\nome banco")
If banco = VbCancel then
MsgBox "Ação Cancelada",vbInformation,"Reparar e Compactar"
Else
Set Access = Wscript.CreateObject ("Access.Application")
Set Shell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ori = banco & ".mdb"
bak = banco & "Compactando.mdb"
Access.CompactRepair ori,bak
If FSO.fileexists (bak) Then
FSO.deletefile (ori)
FSO.MoveFile bak,ori
End If
MsgBox "Banco Reparado",vbInformation,"Reparar e Compactar"
box1 = msgbox("Abrir Banco Reparado",vbYesNo + vbInformation,"Reparar e Compactar")
If box1 = vbYes Then
Access.Visible = TRUE
Access.OpenCurrentDatabase ori
If Access.Visible = TRUE Then
aberto = 1
Do While aberto = 1
WScript.Sleep(1000)
If Access.Visible = False Then
aberto = 0
End If
Loop
End If
Else
'nada faz
End If
End If
End If
End If
Else
MsgBox "Senha Incorreta, Lamento....",vbInformation,"Libera Processo.....Décio"
End If
Else
MsgBox "Senha Incorreta, Lamento....",vbInformation,"Libera Processo.....Décio"
End if
WScript.Quit"
- Anexos
- db e imagem da mensagem.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (575 Kb) Baixado 9 vez(es)