Fórum Alguém Sabe??? #155217

Encontrei esta dica em um site, pois desejo fazer backup no meu sistema, onde possuo 5 tabelas, um alias chamado boletim que está ligado a uma dessas tabelas, uso o BDE com Paradox. Não entendi esse código abaixo,
Alguém tem alguma sugestão pra que eu fizesse meu Backup???

Valeu Galera!!!



Dica:::::
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.