Bom pesquisei muito sobre como fazer backup do mysql e o restore cheguei no seguinte c�digo:[code=delphi]procedure TfrmBackup.ExecutarBackup;var aa,mm,dd, hh, mmm, ss, sss: word; aux : string;...

BACKUP AND RESTORE

29/03/2018

Bom pesquisei muito sobre como fazer backup do mysql e o restore cheguei no seguinte c�digo:

procedure TfrmBackup.ExecutarBackup;
var aa,mm,dd, hh, mmm, ss, sss: word;
   aux : string;
begin
   aux := 'cmd.exe /c "C:\\wamp64\\bin\\mysql\\mysql5.7.19\\bin\\mysqldump --opt --flush-logs --triggers --port=3306 ';
   aux := aux + '--user=admin --password=admin --result-file=backup.sql --databases comercio"';
   lblMensagem.Caption := 'Aguarde. Efetuando Backup';
   lblMensagem.Refresh;
   if not createProcessSimple(aux) then
      lblMensagem.Caption := 'BACKUP N�O FOI PROCESSADO!'
   else
   begin
      decodedate(date, aa, mm, dd);
      decodetime(time, hh, mmm, ss, sss);
      if FileExists('BACKUP.SQL') then
      begin
         aux := inttostr(aa) + '-';
         if mm < 10 then
            aux := aux + '0' + inttostr(mm) + '-'
         else
            aux := aux + inttostr(mm);
         if dd < 10 then
            aux := aux + '0' + inttostr(dd) + '-'
         else
            aux := aux + inttostr(dd) + '-';
         if hh < 10 then
            aux := aux + '0'+ inttostr(hh) + '.'
         else
            aux := aux + inttostr(hh) + '.';
         if mmm < 10 then
            aux := aux + '0' + inttostr(mmm)
         else
            aux := aux + inttostr(mmm);
         aux := aux + '.sql';
         RenameFile('BACKUP.SQL', aux);
         lblMensagem.Caption := 'Backup Realizado!';
      end;
   end;
end;

Ele faz o backup perfeito o problema � que eu n�o consigo mudar o diret�rio de sa�da do arquivo backup.sql eu at� consigo gera-lo em outra pasta com:

--result-file=C:\\BACKUP\\backup.sql

s� que ele salva no Directory do meu programa tamb�m e n�o salva com o nome data e hora no C:\\BACKUP\\. ele s� salva com o nome data e hora no Directory do meu programa, algu�m sabe porque ?

-----------------

Michel

Curtir t�pico + 0

Responder

Post mais votado

10/04/2018

Ol� Michel,

Eu fa�o da seguinte maneira:
No DataModule (DMDados), na se��o PUBLIC crio uma vari�vel que vai pegar o diret�rio da aplica��o:

public
DiretorioAtual : String;

Ainda na DMDados, no evento OnCreate fa�o:

DiretorioAtual := ExtractFilePath(Application.ExeName);

Depois, numa Unit global, implemento a fun��o:

function CriarArquivoBat(pDiretorio : String) : String;
{
Cria um arquivo BAT que faz o backup do banco MySQL
}
Var
  vlDia, vlData, vlBase : String;
begin
  vlDia:=IntToStr(DayOfWeek(Now()));
  vlData:=FormatDateTime('dddd', Now());
  If Trim(DMDados.pBase) = '' Then vlBase:=DMDados.DADOS.Database Else vlBase:=DMDados.pBase;
  
  DMDados.Lista.Clear;
  DMDados.Lista.Add('mysqldump.exe -B -c --single-transaction ' +
                    '--default-character-set=latin1 ' + vlBase +
                    ' -u ' + DMDados.DADOS.User + ' --password="' + DMDados.DADOS.Password +
                    '" --port=' + IntToStr(DMDados.DADOS.Port) +
                    ' -h ' + DMDados.DADOS.HostName + ' > ' + vlDia + '_BKP_' + vlBase + '_' + vlData + '.sql');
  DMDados.Lista.SaveToFile(pDiretorio + 'backupMySQL.bat');

end;

No evento OnClick do bot�o, por exemplo, crio o seguinte comando:

procedure TFrmMenuPrincipal.BtnBackupClick(Sender: TObject);
Var
  pDiretorio : String;
begin
  pDiretorio:=DMDados.DiretorioAtual + 'backupMySQL.bat';

  If Not FileExists(pDiretorio) Then
  CriarArquivoBat(DMDados.DiretorioAtual);

  If FileExists(DMDados.DiretorioAtual + 'mysqldump.exe') Then
  Begin
    ShellExecute(Handle, 'open',PChar(pDiretorio) , nil, nil, SW_HIDE); //SW_MINIMIZE);
  End
  Else
    If Not FileExists(DMDados.DiretorioAtual + 'mysqldump.exe') Then
    Begin
      ShowMessage('N�o foi encontrado o arquivo mysqldump.exe' + #13 + #13 +
                                 'Favor entrar em contato com seu desenvolvedor..');
    End;
end;

A estrutura do bat dever� ficar:

mysqldump.exe -B -c --single-transaction --default-character-set=latin1 SUBA_TABELA -u USUARIO_DO_BANCO --password="SENHA_DO_BANCO" --port=PORTA_DO_BANCO -h SERVIDOR_DO_BANCO > NOME_DO_ARQUIVO.sql

Espero ter ajudado.

Ilano Frota

Responder

Gostei + 1

Mais Posts

10/04/2018

Ilano Frota

Opa! Ia me esquecendo. L� na fun��o CriarArquivoBat tem as linhas contendo DMDados.Lista. � que l� no DMDados, tamb�m inclui na cl�usula PUBLIC a linha:

Lista : TStringList;

E no OnCreate do DataModule, tamb�m adicionei a linha

Lista:=TStringList.Create;

Acho que n�o esqueci mais nada rrrssss...

Responder

Gostei + 1