Fórum Como fazer Backup? #176646

Separe seu aplicativo da Base de Dados e copie todo o diretório, use rotinas para controlar o Winzip ou TZipMaster, WinRar etc...

Escolha a melhor alternativa e poste as dúvidas.

Abraços,

Olá,


A base da dados já está separada do aplicativo, se eu optar pelo WinZip como ficaria a rotina?

Obrigado pela atenção!

O velhinho arj do DOS poderá dar uma ajuda.

==============================================================================================

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.

enho um programa feito em delphi que utilizo nos meus sistemas
ele faz backup em WinZIp
caso seja do seu enteresse mande-me um email ok?