Buscar

Backup e restauração

Código

//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.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 29/05/03
Por: Felipe Monteiro
Visualizada: 8269 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009