Fórum Como Criar um Backup/Restore #156815

Você não mencionou o banco de dados que utiliza mas, de qualquer maneira, eis um exemplo da DTDelphi:

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

Tenho um componente de Backup/Restore que inclusive compacta os dados.

Me mande um e-mail, se desejar.

João Mota :D

Me mande um e-mail que tenho um exemplo completo

Luiz Zonta / SC :wink:

Desculpe faltou o e-mail:

luizzonta@ibest.com.br :D

Perzado(a):
Concordando ou não, o melhor backup é a criação de txt pré-formatado. Não precisará de ferramentas auxiiares e a veiculação do arquivo poder ser feita pela net.
Pode ainda utilizar criptografia de dados para protege-los.
MMTOOR2003