Buscar por:

Como criar backup de dados com um arquivo externo .bat

Código

{Esta dica é muito simples e prática para quem está se iniciando em programação. Quando eu estava no meu curso, eu desenvolvi um sistema de controle de qualidade de lanoratório como projeto disciplinar e fiz o backup 

das tabelas paradoxx para diskette desta forma. Primeiro você irá criar o arquivo .BAT no bloco de notas. Basta editar um texto com os códigos seguintes e salvar com a extensão .BAT  : }

cd

C:

cd corretivos_Analises      //diretório banco - Tem que direcionar pasta a pasta

cd base_dados                                                   // Aqui seleciona o diretório do seu banco

title Backup de Dados                                         // Aqui é o titulo do programa em lotes

cls

copy *.* a:                                            // copia todos os dados para A:

a:                                                                   // Entra no diskette

echo Último Backup: > data_backup.txt                // Cria um arquivo texto com a data e hora do último backup  

date /t >> data_backup.txt                                // Cria um arquivo texto com a data e hora do último backup  

time /t >> data_backup.txt                                 // Cria um arquivo texto com a data e hora do último backup  

echo ============================ >> data_backup.txt

exit             

{OBS : Depois quando for colocar no bloco de notas, retirem estes comentários para não haver complicações.

 Agora no Delphi, criem uma tela chamada: Backup de Dados. Nela coloquem um botão com o caption : Iniciar.

No evento on click do botão, coloque a seguinte função:  }

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

  if messagedlg('Insira um diskette para iniciar cópia dos dados!', MTINFORMATION, [MBOK, MBCANCEL] , 0) =  MROK then begin

  winexec('C:Corretivos_Análisesbackup.bat', SW_HIDE);

  end;

end;

{Pronto, você também pode incrementar seu backup com uma barra de progressão e um campo para selecionar o diretório para buscar o banco na função! }

{Dica: Marcio Antônio - Uberaba -MG}