Undelete em Paradox, � poss�vel ?

Question

Inadvertidamente deletei todos os registros de uma tabela Paradox 7. Ao abrir a tabela com o Database Desktop, ela se mostra vazia. Por�m ocupa 128Kb.  Ao abri-la com algum editor de texto, v�-se que ...

Helderjr · Answer

Colega tente assim, peguei essa dica no livro 365 dicas de Delphi do Bruno Sonnino, nunca usei mas acredito que de certo pois as dicas do Bruno s�o muito uteis.

procedure TForm1.Button1Click(Sender: TObject);
var
Table : TTable;
RProps : RecProps;
begin
Table := TTable.Create(Self);
with Table do begin
DatabaseName := Table1.DatabaseName;
TableName := Table1.TableName;
Open;
DbiSetProp(hDbiObj(Handle),curSOFTDELETEON,1);
Refresh;
First;
While not Eof do begin
DbiGetRecord(Handle,dbiNOLOCK,nil,@RProps);
if RProps.bDeleteFlag then
Check(DBIUndeleteRecord(Handle));
Next;
end;
Close;
Free;
end;
end;

Aroldo Zanela · Answer

Colegas,Receio que esta rotina sirva apenas para tabelas dBase, pois a estrutura de tabelas Paradox � completamente diferente ao dBase. Acredito que n�o existe mecanismo de �Undelete� para tabelas Paradox....

Bacalhau · Answer

Com ou sem essa possibilidade, relembro ao colega carlosrm que fa�a um backup antes de qualquer tentativa. :wink: Abra�o...

Sistemald · Answer

Eu j� utilizei uma rotina parecida com esta, s� que ao inv�s de restaurar os dados usei para apagar, funcionou em bd Paradox....

Aroldo Zanela · Answer

Colegas,Eu nunca utilizei paradox, mas todas as respostas sobre este assunto que foi submetida ao TeamB teve a mesma resposta - N�o � poss�vel recuperar. Quanto a rotina semelhante que o colega se refere-se, deve ser uma rotina de PACK....

Mmtoor · Answer

Prezado amigo.H� um componente de nome atParadoxRepair, free.Se ele n�o recuperar sua tabela paradox, esque�a.Se quiser me mandar, tento por aqui.valhaha.mysql@bol.com.brMMTOOR2003...

Carlosrm · Answer

Agrade�o a presteza e aten��o de todos os colegas (inclusive pelo alerta e pux�o-de-orelhas do Bacalhau (he he)) e vou seguir as orienta��es de voc�s. MMTOOR2003, t� te mandando um e_mail...
De novo, obrigados... carlosrm.

Aroldo Zanela · Answer

[quote:a691df0fdb=�mmtoor�]Prezado amigo.H� um componente de nome atParadoxRepair, free.Se ele n�o recuperar sua tabela paradox, esque�a.Se quiser me mandar, tento por aqui.valhaha.mysql@bol.com.brMMTOOR2003[/quote:a691df0fdb]Colegas,[quote:a691df0fdb]TatParadoxRepair componentThe atParadoxRepair is a Paradox table repair component. Just drop in on form, assign a DatabaseName (or directory) and a TableName (in design-time or run-time) and execute the Rebuild method. It will fix the corrupted paradox file. The atParadoxRepair component needs the TUtil32.DLL file.[/quote:a691df0fdb]Ou seja, o objetivo do componente � reparar tabelas corrompidas e n�o recuperar registros �deletados�....

Bacalhau · Answer

� estimado carlorm n�o foi um pux�o de orelhas!!! H� tempos tive um cliente que foi invadido por toxicodependentes (pessoal da droga) e incendiaram-lhe a empresa - o desgra�ado n�o tinha backups e quase que se... digamos que enterrava a empresa!

Quanto ao undelete: eu fiz um teste em que criei uma pequena tabela com 3 registos. guardei (salvei) a tabela, apaguei os registos e guardei a nova tabela com os registos apagados num nome diferente.

Depois comparei no Notepad. O resultado foi um pouco preocupante, para n�o usar palavr�es. Todo o espa�o dos registos APAGADOS foi ocupado com a informa��o do �LTIMO registo apagado.

Algu�m consegue explicar como os engenheiros Paradox caem nisto? Eu tenho sido o maior defendor do Paradox, mas depois desta...

F�rum Undelete em Paradox, � poss�vel ? #183845