[firebase-br] Backup e Restore usando IBO

Suporte TORUS suporte em torusinfo.com.br
Qui Jan 8 10:33:19 -03 2009


Salve-a por cima da outra e tente desta forma.

Att.

JH
----- Original Message ----- 
From: "Cleidson" <cleidson em zmed.com.br>
To: <lista em firebase.com.br>
Sent: Thursday, January 08, 2009 10:07 AM
Subject: Re: [firebase-br] Backup e Restore usando IBO


Tentei sim, claro.

Mas quando clico no botão já acusa o problema com a GDS32.DLL.
Voce sabe se dá pra substituir ela em alguma parte do codigo pela
FBCLIENT2.DLL ?? Ou uma outra coisa que solucione o problema ?



Magno System escreveu:
> Você tentou com o código que eu passei ???
>
>
> ----- Original Message ----- From: "Cleidson" <cleidson em zmed.com.br>
> To: <lista em firebase.com.br>
> Sent: Wednesday, January 07, 2009 1:17 PM
> Subject: Re: [firebase-br] Backup e Restore usando IBO
>
>
> Fala Marcelo,
>
> Kara, vi post seu pra tudo quando é lado sobre esse IBOADMIN. rsrsrsrs
>
> Mas ainda to com o problema da GDS32.DLL que ele insiste em dizer que
> precisa ser instalada.
>
> Alguma idéia ?
>
>
> Magno System escreveu:
>> Backup:
>>
>> procedure TFrmBackup.BitBtn1Click(Sender: TObject);
>> var
>> origem, servidor, caminho, destino: string;
>> arquivo: tinifile;
>> lBackupService: TIBOBackupService;
>> begin
>> Arquivo := TInifile.Create(Extractfilepath(Application.ExeName) + 
>> 'sisgemp.ini');
>> Servidor := Arquivo.ReadString('Sisgemp', 'Servidor', '');
>> Caminho := Arquivo.ReadString('Sisgemp', 'Caminho', 
>> Extractfilepath(Application.ExeName) + 'sisgemp.fdb');
>> Origem := Caminho;
>> if copy(Directorylistbox1.Directory, length(Directorylistbox1.Directory), 
>> 1) = '\' then
>>   Destino := Directorylistbox1.Directory + 'BackupSNGPC_' + 
>> formatdatetime('DDMMYYYY', Date) + '_' + formatdatetime('HHmm', time) + 
>> '.fbk'
>> else
>>   Destino := Directorylistbox1.Directory + '\BackupSNGPC_' + 
>> formatdatetime('DDMMYYYY', Date) + '_' + formatdatetime('HHmm', time) + 
>> '.fbk';
>> lBackupService := TIBOBackupService.Create(nil);
>> if Servidor <> '' then
>> Begin
>>   lBackupService.ServerName := Servidor;
>>   lBackupService.Protocol := cptcp_ip;
>> end
>> else
>> Begin
>>   lBackupService.Protocol := cplocal;
>>   Origem := Caminho;
>> end;
>> lBackupService.Params.Add('user_name=SYSDBA');
>> lBackupService.Params.Add('password=masterkey');
>> lBackupService.LoginPrompt := false;
>> lBackupService.Attach;
>> if lBackupService.Active = true then
>> begin
>>   Bitbtn1.Enabled := false;
>>   lBackupService.Verbose := true;
>>   lBackupService.DatabaseName := origem;
>>   lBackupService.BackupFile.Text := destino;
>>   lBackupService.ServiceStart;
>>   Memo1.Lines.Clear;
>>   while not lBackupService.eof do
>>   Begin
>>      Memo1.Lines.add( lBackupService.getNextline);
>>      Application.ProcessMessages;
>>   end;
>>   while (lBackupService.IsServiceRunning) do
>>      Application.ProcessMessages;
>>   if lBackupService.Active then
>>      lBackupService.Detach();
>>   Bitbtn1.Enabled := true;
>>   Application.ProcessMessages;
>>   Showmessage('Backup realizado com sucesso!!!');
>> end;
>> end;
>>
>> Restore:
>>
>> procedure TFrmRestauracao.BitBtn1Click(Sender: TObject);
>> var
>> origem, destino: string;
>> arquivo: tinifile;
>> lBackupService: TIBORestoreService;
>> begin
>> Case Messagedlg('A T E N Ç Ã O !!! Após a restauração o banco de dados 
>> restaurado substituirá o banco de dados atual!!! Confirma a 
>> restauração?', mtconfirmation, [mbyes,mbno], 0) of
>>   id_no: exit;
>> end;
>> Arquivo := TInifile.Create(Extractfilepath(Application.ExeName) + 
>> 'sisgemp.ini');
>> Origem := FileListbox1.FileName;
>> Destino := Extractfilepath(Arquivo.ReadString('Sisgemp', 'Caminho', 
>> Extractfilepath(Application.ExeName) + 'SISGEMP.FDB')) + 'SISGEMP.TMP';
>> lBackupService := TIBORestoreService.Create(nil);
>> lBackupService.Params.Add('user_name=SYSDBA');
>> lBackupService.Params.Add('password=masterkey');
>> lBackupService.LoginPrompt := false;
>> lBackupService.Protocol := cpLocal;
>> //lBackupService.Options := [Replace];
>> lBackupService.Attach;
>> if lBackupService.Active = true then
>> begin
>>   Bitbtn1.Enabled := false;
>>   lBackupService.Verbose := true;
>>   lBackupService.DatabaseName.Add(destino);
>>   lBackupService.BackupFile.Text := origem;
>>   lBackupService.ServiceStart;
>>   Memo1.Lines.Clear;
>>   while not lBackupService.eof do
>>   Begin
>>      Memo1.Lines.add( lBackupService.getNextline);
>>      Application.ProcessMessages;
>>   end;
>>   while (lBackupService.IsServiceRunning) do
>>      Application.ProcessMessages;
>>   if lBackupService.Active then
>>      lBackupService.Detach();
>>   Application.ProcessMessages;
>>   if fileexists(Extractfilepath(Application.ExeName) + 
>> 'SISGEMP_ANTIGO.FDB') then
>>      DeleteFile(Extractfilepath(Application.ExeName) + 
>> 'SISGEMP_ANTIGO.FDB');
>>   Try
>>      Datacliente.IBSisgemp.Disconnect;
>>   Finally
>>      Begin
>>         RenameFile(Extractfilepath(Application.ExeName) + 'SISGEMP.FDB', 
>> Extractfilepath(Application.ExeName) + 'SISGEMP_ANTIGO.FDB');
>>         RenameFile(Extractfilepath(Application.ExeName) + 'SISGEMP.TMP', 
>> Extractfilepath(Application.ExeName) + 'SISGEMP.FDB');
>>         Bitbtn1.Enabled := true;
>>         Showmessage('Restauração efetuada com sucesso!!! O programa 
>> deverá ser reiniciado');
>>         Application.MainForm.Close;
>>      end;
>>   end;
>> end;
>> end;
>>
>>
>> ----- Original Message ----- From: "Cleidson" <cleidson em zmed.com.br>
>> To: <lista em firebase.com.br>
>> Sent: Wednesday, January 07, 2009 12:42 PM
>> Subject: Re: [firebase-br] Backup e Restore usando IBO
>>
>>
>> Fiz isso, mas ainda não estou conseguindo fazer o backup. Está havendo
>> dois erros: está acusando a falta da GDS32.DLL mesmo eu tendo colocado a
>> tal em todos os diretorios possíveis, e o outro erro é que quando dou um
>> ServiceStart dá o erro: "service is not attached".
>>
>> Tem algum exemplo de uso do IBOADMIN por ai ?
>>
>> Carlos H. Cantu escreveu:
>>> Vc tem que baixar e instalar os componentes IBOAdmin, que contem os
>>> componentes de backup, restore, etc.
>>>
>>> []s
>>> Carlos H. Cantu
>>> www.FireBase.com.br - www.firebirdnews.org
>>> www.warmboot.com.br - blog.firebase.com.br
>>>
>>> C> Alguém sabe me dizer como realizar essas operacoes de banco usando o 
>>> IBO ?
>>>
>>>
>>>
>>> ______________________________________________
>>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>>> Para saber como gerenciar/excluir seu cadastro na lista, use: 
>>> http://www.firebase.com.br/fb/artigo.php?id=1107
>>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>>
>>
>>
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>> Para saber como gerenciar/excluir seu cadastro na lista, use: 
>> http://www.firebase.com.br/fb/artigo.php?id=1107
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>> Para saber como gerenciar/excluir seu cadastro na lista, use: 
>> http://www.firebase.com.br/fb/artigo.php?id=1107
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: 
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: 
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa





Mais detalhes sobre a lista de discussão lista