Backup & Restauração

Para efetuar a cópia:

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.