F�rum Problemas com sistema de backup #598562

12/11/2018

Ol�, amigos, tenho um sistema em delphi 7 com access.
Estou montando um sisteminha de backup do banco de dados, e gostaria de fazer isso com o programa aberto.

Fiz assim:

 procedure Tfrmcopia.EfetuaClick(Sender: TObject);
var
arquivo_original: string;
begin
 arquivo_original := 'C:\\SGE\\BDRIB.mdb';
 If Savedialog1.Execute then
 begin
   if Copyfile(Pchar(arquivo_original),Pchar('backup_'+formatdatetime('DD.MM.YYYY_HH.mm',now)+'.mdb'),True) then
   Showmessage('Backup do banco de dados realizado com sucesso.')
   else
   Showmessage('Erro ao efetuar o Backup. Tente novamente.')
 end;
end;

Dessa forma ele copia o banco de dados para o local que eu selecionei no savedialog, com o nome de "backup+data+hora.mdb". Funciona.

A quest�o � quando quero restaurar o backup.

Fiz assim:

procedure Tfrmcopia.RestauraClick(Sender: TObject);
begin
  If opendialog1.Execute then
  begin
     datamodule1.ADOConexao.Connected := false;
\\\\muda o nome do atual banco de dados
     RenameFile('C:\\SGE\\BDRIB.mdb','C:\\SGE\\BDRIB_old.mdb'); 
\\\\restaura o backup
     if copyfile(Pchar(Opendialog1.FileName),Pchar('C:\\SGE\\BDRIB.mdb'),True) then
     begin
\\\\se copiou corretamente, apaga o banco de dados original que tinha mudado o nome
     deletefile('C:\\SGE\\BDRIB_old.mdb');
     datamodule1.ADOConexao.Connected := true;
     Showmessage('Backup restaurado com sucesso.');
     end
     else
     begin
\\\\se deu algo errado, restaura o nome do banco de dados original
     RenameFile('C:\\SGE - Sistema de Gest�o Eclesi�stica\\BDRIB_old.mdb','C:\\SGE - Sistema de Gest�o Eclesi�stica\\BDRIB.mdb');
     datamodule1.ADOConexao.Connected := true;
     Showmessage('Erro ao efetuar o Backup. Tente novamente.');
     end;
end;
end;

S� que n�o d� certo. Ele n�o restaura o bakcup. Sempre retorna erro. Acredito que seja porque o programa est� aberto, mas a conex�o estava fechada.

Algu�m pode ajudar?

Edilson Santiago

Curtir t�pico

+ 0

Responder

Post mais votado

13/11/2018

Bom dia!
Testei aqui.


procedure TFrmcopia.EfetuaClick(Sender: TObject);
var
Origem  : string;
Destino : string;
begin
Origem := 'C:\\SGE\\BDRIB.mdb';

 SaveDialog1.FileName:='BK_'+formatdatetime('DD_MM_YYYY_HH_mm',now)+'.mdb';
 If Savedialog1.Execute then
 begin
 Destino :=ExtractFilePath(SaveDialog1.FileName)+'BK_'+formatdatetime('DD_MM_YYYY_HH_mm',now)+'.mdb'  ;
 CopyFile(PChar(Origem), PChar(Destino), true);
   if FileExists(Destino) then
   Showmessage('Backup do banco de dados realizado com sucesso.')
   else
   Showmessage('Erro ao efetuar o Backup. Tente novamente.')
   end;
end;

var Arquivo_Selecionado:string;
begin

  If opendialog1.Execute then
  begin
     // 0
     datamodule1.ADOConexao.Connected := false;
     Arquivo_Selecionado:=OpenDialog1.FileName;
     //1� Exclui OLD
     deletefile('C:\\SGE\\BDRIB_old.mdb');
     Sleep(500);

     //2� Renomea o Atual para OLD
     RenameFile('C:\\SGE\\BDRIB.mdb','C:\\SGE\\BDRIB_old.mdb');
     Sleep(500);

     //3� restaura o backup
     if copyfile(Pchar(Arquivo_Selecionado),Pchar('C:\\SGE\\BDRIB.mdb'),True) then
     begin
     Sleep(500);

     //se copiou corretamente, apaga o banco de dados original que tinha mudado o nome
     deletefile('C:\\SGE\\BDRIB_old.mdb');
     datamodule1.ADOConexao.Connected := true;
     Showmessage('Backup restaurado com sucesso.');
     end
     else
     begin
    //se deu algo errado, restaura o nome do banco de dados original
     RenameFile('C:\\SGE\\BDRIB_old.mdb','C:\\SGE\\BDRIB.mdb');
     datamodule1.ADOConexao.Connected := true;
     Showmessage('Erro ao efetuar o Backup. Tente novamente.');
     end;
end;
end;


Espero que ajude!

Raimundo Pereira

Responder

Gostei + 1

Mais Posts

12/11/2018

Edilson Santiago

Obs. onde eu digitei SGE\\ o correto � SGE - Sistema de Gest�o Eclesi�stica. Foi erro de digita��o aqui no devmedia.

Responder

Gostei + 0