backup

Question

Em um programa que armazena uma rela��o de clientes, preciso criar um backup ou salvar um arquivo da tabela para posteriormente ser aberto, caso precise reinstalar o programa. Como se faz isso?

T�tulo editado pra ficar conforme as regras de conduta
Zoom

Ntrafa · Answer

Q BD o programa usa???...

Silvagv · Answer

Utilizo o BDE para criar as tabelas, que s�o editadas no paradox 7....

Fabio.hc · Answer

Como criar um arquivo de Backup muito feio mais eficiente

procedure TFormCopia.BitBtn1Click(Sender: TObject); 
var I: Integer; 
begin 
   Database1.Connected:=True; // Database para controle 
   Table2.DatabaseName:=DirectoryListBox1.Directory; // Seleciona local de destino da c�pia 
   with Session1 do 
      begin 
      Active:=True; 
      GetTableNames(�AliasName�,�*.*�,True,True,Memo1.Lines); // Retorna o nome das tabelas 
   end; 
   for I:= 0 to Memo1.Lines.Count - 1 do 
      begin 
      Table1.TableName:=Memo1.Lines[I]; // Tabela origem 
      Table2.TableName:=Memo1.Lines[I]; // Tabela destino 
      BatchMove1.Execute; 
      end; 
end;

Para efetuar a restaura��o:

procedure TFormRestaura.BitBtn1Click(Sender: TObject); 
var I: Integer; 
begin 
   Database1.Connected:=True; 
   Table2.DatabaseName:=DirectoryListBox1.Directory; // Origem da restaura��o 
   with Session1 do 
      begin 
      Active:=True; 
      GetTableNames(Table2.DatabaseName,�*.*�,True,True,Memo1.Lines); // Retorna nomes das tabelas 
      end; 
   for I:= 0 to Memo1.Lines.Count - 1 do 
      begin 
      Table1.TableName:=Memo1.Lines[I]; // Tabela origem 
      Table2.TableName:=Memo1.Lines[I]; // Tabela destino 
      BatchMove1.Execute; 
      end; 
end;

//Ap�s restaurar por este m�todo, voc� deve recriar os �ndices.

F�rum backup #228049