Backup na rede com IBBACKUP
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
Curtidas 0
Respostas
Charles Polac
02/05/2011
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;
GOSTEI 0
Charles Polac
02/05/2011
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)"
GOSTEI 0