Fórum Backup na rede com IBBACKUP #400136
02/05/2011
0
Olá passoal, fiz uma pequena rotina de backup usando o componente IBBACKUP, usando ele no próprio PC, funciona bem, mas se coloco na rede ela não funciona, não dá mensagem de erro alguma, simplimente passa pela rotina como se tudo estivesse certo, mas ñ cria o arquivo de backup.
Configuei assim:
Nas propriedades do do IBBACKUP coloquei :
Connection: Remote e o IP onde está o Arquivo:
A rotina está assim:
Configuei assim:
Nas propriedades do do IBBACKUP coloquei :
Connection: Remote e o IP onde está o Arquivo:
A rotina está assim:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
origem, destino: String;
Begin
origem:= 'Z:\Projetos\Integração1\BD\ARQUIVO.FDB';
destino:= 'C:\teste3.gbk';
Label1.Visible := True;
with IBBackupService1 do
try
Begin
Attach;
DatabaseName := origem;
BackupFile.Add(destino);
Active := True;
ServiceStart;
ShowMessage('Backup realizado com Sucesso...');
end;
except
ShowMessage('Houve um erro, favor verificar...');
end;
Label1.Visible := False;
End;
Marcos Barbosa
Curtir tópico
+ 0
Responder
Posts
19/05/2011
Charles Polac
Bom dia, acho que isso pode ter ajudar..
with IBBackupService1 do begin LoginPrompt := False; Params.add('password=masterkey'); Params.add('user_name=SYSDBA'); Active :=True; Verbose :=True;
ServerName := 192.168.0.1; // aki você passa o Host ou IP DatabaseName := origem; BackupFile.Add(destino);
Options :=[IgnoreChecksums,IgnoreLimbo,NoGarbageCollection,NonTransportable];
ServiceStart; // inicia o serviço para backup while not eof do Memo1.Lines.Add(GetNextLine); // aki ele vai mostra todo o processo, passa a passa e apresenta o erro
Memo1.Lines.Add('Backup realizado com sucesso!'); end;
with IBBackupService1 do begin LoginPrompt := False; Params.add('password=masterkey'); Params.add('user_name=SYSDBA'); Active :=True; Verbose :=True;
ServerName := 192.168.0.1; // aki você passa o Host ou IP DatabaseName := origem; BackupFile.Add(destino);
Options :=[IgnoreChecksums,IgnoreLimbo,NoGarbageCollection,NonTransportable];
ServiceStart; // inicia o serviço para backup while not eof do Memo1.Lines.Add(GetNextLine); // aki ele vai mostra todo o processo, passa a passa e apresenta o erro
Memo1.Lines.Add('Backup realizado com sucesso!'); end;
Responder
Gostei + 0
19/05/2011
Charles Polac
Bom dia, acho que isso pode ter ajudar..
with IBBackupService1 do begin LoginPrompt := False; Params.add('password=masterkey'); Params.add('user_name=SYSDBA'); Active :=True; Verbose :=True;
ServerName := 192.168.0.1; // aki você passa o Host ou IP DatabaseName := origem; BackupFile.Add(destino);
Options :=[IgnoreChecksums,IgnoreLimbo,NoGarbageCollection,NonTransportable];
ServiceStart; // inicia o serviço para backup while not eof do Memo1.Lines.Add(GetNextLine); // aki ele vai mostra todo o processo, passa a passa e apresenta o erro
Memo1.Lines.Add('Backup realizado com sucesso!'); end;
------------------------------------------------------------------ass: Charles Polac. Charles Polac.Analista Desenvolvedor Junior.
msn: charlespolac@hotmail.comTel: +55(27)8148-9960
"Chame o sucesso para fazer parte de sua vida. Acredite no seu potencial criador, seja inovador, treine sua mente para vencer, estipule metas e, principalmente, lute por seus ideais. (Flávio Souza)"
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)