Ir para conteúdo
Fórum Script Brasil

ademilson pires

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que ademilson pires postou

  1. Olá estou tentando fazer uma procedure para restaurar o banco de dados a partir de um arquivo .sql gerado em um backup feito com mysqldump, mais não estou sabendo usar o mysqlimport, estou deixando o trecho do fonte aqui,se alguém souber agradeço, a primeira procedure é a do backup está funcionando normal, é a segunda que não funciona eu fiz ela baseada na procedure do backup eu sou meio novato com programação. // procedure TFrmMenu.BackupdeDados1Click(Sender: TObject); var caminhoBD, caminhoDUMP, nome : string; begin nome := FormatDateTime('dd-mm-yyyy', now); caminhoBD := GetCurrentDir + '\BD\'; caminhoBD := caminhoBD + nome +'.sql'; caminhoDUMP := GetCurrentDir + '\BD\mysqldump.exe'; ShellExecute(handle,'open', 'cmd.exe',Pchar('/c ' + caminhoDUMP + ' pdv -u root -hlocalhost -p --opt -v>' + caminhoBD),nil, SW_SHOW ); backupDados := true; end; PROCEDURE DE RESTAURAÇÃO DE DADOS procedure TFrmMenu.RestaurarBackup1Click(Sender: TObject); var caminhoBD, caminhoIMPORT, nome : string; begin nome := FormatDateTime('dd-mm-yyyy', now); caminhoBD := GetCurrentDir + '\BD\'; caminhoBD := caminhoBD + nome +'.sql'; caminhoIMPORT := GetCurrentDir + '\BD\mysqlimport.exe'; ShellExecute(handle,'open', 'cmd.exe',Pchar('/c ' + caminhoIMPORT + ' -u root -p --hlocalhost pdv ' + caminhoBD),nil, SW_SHOW );
×
×
  • Criar Novo...