 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
thaine
Membro Junior
Registrado: Segunda-Feira, 4 de Junho de 2012
Mensagens: 352
|
 Enviada: Ter Jun 24, 2014 1:52 pm Assunto: Fazer Backup - [RESOLVIDO] |
 |
|
Boa tarde
gostaria de saber se é possível fazer backup de um banco de dados em rede usando o componente IBBackupService1?
eu so consigo fazer backup de um banco de dados local.
Alguém por favor pode me ajudar?
Editado pela última vez por thaine em Qua Jun 25, 2014 11:32 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
rique_neves
Mestre
Registrado: Sexta-Feira, 17 de Fevereiro de 2012
Mensagens: 873
|
| Enviada: Ter Jun 24, 2014 9:02 pm Assunto: Re: Fazer Backup |
|
|
tente assim:
backup:
| Código: | procedure TfrmBackup.Button1Click(Sender: TObject);
begin
if Edit1.text = '' then
begin
Application.MessageBox('Atenção, arquivo para backup não encontrado','Seleção do Backup.:',MB_APPLMODAL + MB_OK + MB_ICONWARNING);
exit;
end;
if Edit3.text = '' then
begin
Application.MessageBox('Atenção, nome do arquivo não definido',' Nome do Backup.:',MB_APPLMODAL + MB_OK + MB_ICONWARNING);
exit;
end;
try
Screen.Cursor := crHourGlass;
with IBBackupService1 do
begin
ServerName :='Local Server';
LoginPrompt:=true;
//Params.Add('user_name=SYSDBA');
//Params.Add('password=masterkey');
Active:=true;
Verbose:=true;
DatabaseName :=Edit1.Text;
BackupFile.Add(DirectoryListBox1.Directory+'\'+Edit3.Text);
//IBBackupService1.Options := [];
if cb_IgnoreChecksums.Checked then
Options := options + [IgnoreChecksums];
if cb_IgnoreLimbo.Checked then
Options := Options + [IgnoreLimbo];
if cb_NoGarbageCollection.Checked then
Options := Options + [NoGarbageCollection];
If cb_NonTransportable.Checked then
Options := Options + [NonTransportable];
ServiceStart;
while not eof do
Memo1.Lines.Add(GetNextLine);
end;
finally
ShowMessage('backup efetuado com sucesso');
Screen.Cursor :=crDefault;
end;
Application.ProcessMessages;
end; |
restore:
| Código: | Procedure TfrmBackup.SpeedButton5Click(Sender: TObject);
begin
if Edit2.text = '' then
begin
Application.MessageBox('Atenção, arquivo a ser restaurado não selecionado','Seleção do Backup.:',MB_APPLMODAL + MB_OK + MB_ICONWARNING);
exit;
end;
if Edit4.text = '' then
begin
Application.MessageBox('Atenção, Local para restauração definido',' Local do Backup.:',MB_APPLMODAL + MB_OK + MB_ICONWARNING);
exit;
end;
Screen.Cursor := crHourGlass;
if Application.MessageBox('.:: CUIDADO AO EFETUAR RESTAURAÇÃO!::. Confirma restauração?',' Atenção.:', MB_APPLMODAL + MB_ICONQUESTION+MB_YESNO) = mrYes THEN
SpeedBSair.Enabled:=false
else
SpeedBSair.Enabled:=true;
begin
with IBRestoreService1 do
begin
ServerName :='Local Server';
LoginPrompt:=true;
//Params.Add('user_name=SYSDBA');
//Params.Add('password=masterkey');
Active:=true;
Verbose:=true;
DatabaseName.Add(Edit4.Text);
BackupFile.Add(Edit2.Text);
Options :=[];
if cb_replace.checked then
Options := Options + [replace];
if cb_NoValiditycheck.checked then
Options :=Options + [NoValiditycheck];
pageSize :=2048;
ServiceStart;
while not eof do
Memo1.Lines.Add(GetNextLine);
end;
try
finally
ShowMessage('restauração efetuada com sucesso');
Screen.Cursor :=crDefault;
SpeedBSair.Enabled:=true;
end;
Application.ProcessMessages;
end;
end; |
_________________
Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/ |
|
| Voltar ao Topo |
|
|
thaine
Membro Junior
Registrado: Segunda-Feira, 4 de Junho de 2012
Mensagens: 352
|
| Enviada: Qua Jun 25, 2014 11:31 am Assunto: |
|
|
Obrigada pela atenção rique_neves
meu código esta dessa forma, mais não funciona em rede..
Consegui fazer backup usando o gbak
Até a proxima (; |
|
| Voltar ao Topo |
|
|
rique_neves
Mestre
Registrado: Sexta-Feira, 17 de Fevereiro de 2012
Mensagens: 873
|
| Enviada: Qua Jun 25, 2014 11:59 am Assunto: |
|
|
por nada, mais que estranho né! Este procedimento faz o Gbak.
Você está com permissão na rede e/ou banco nao está em uso?
Mas que bom que deu tudo certo, até a proxima
_________________
Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/ |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
