backup

Delphi

26/04/2004

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


Silvagv

Silvagv

Curtidas 0

Respostas

Ntrafa

Ntrafa

26/04/2004

Q BD o programa usa???


GOSTEI 0
Silvagv

Silvagv

26/04/2004

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


GOSTEI 0
Fabio.hc

Fabio.hc

26/04/2004

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.


GOSTEI 0
POSTAR