Subject | Re: [IBO] Re: TIBOBackupService and TIBORestoreService |
---|---|
Author | Michel LE CLEZIO |
Post date | 2018-05-14T09:53:02Z |
Hello Rob,
Big thank you for your sample code !
I've test it, and it should works…But it doesn't works with my database...
I presume I've got a problem in my Firebird 1.03 database… I want to migrate…
So the problem must'nt be a problem with IBO or Firebird, but with my gdb file...
I'm looking to solve this…
Big thank you for your help a your very good sample !
Best regards,
Mikey.
Le lundi 14 mai 2018 03:37:37 CEST, Robert Martin rob@... [IBObjects] <IBObjects@yahoogroups.com> a écrit :
Hi Mikey
The path listed looks like it is missing the server name at the staff yours shows ': c:\mysoft\dagdb\mybackup.gbk' I would have expected something like 'MYCOMPUTERNAME: c:\mysoft\dagdb\mybackup.gbk'. Are you sure you have correctly specified the server name?
Here is some of my old code that does a backup, note this displays the progress in a memo.
with IBOBackupService do begin
ServerName := DBServer;
LoginPrompt := False;
Params.Clear;
Params.Add('user_name=' + WS_DB_USERNAME);
Params.Add('password=' + WS_DB_PASSWORD);
Active := True;
try
try
Verbose := True;
Options := [IgnoreLimbo];
DatabaseName := SourceDatabase;
BackupFile.Clear;
BackupFile.Add(DestBackupName);
SQLMemo.Clear;
Application.ProcessMessages;
ServiceStart;
while (Eof = False) do begin
SQLMemo.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
except
on e : exception do begin
MessageDlg(ErrorMessageText + #13#13 + e.Message, mtInformation, [mbOk], 0);
Result := False;
end;
end;
finally
Active := False;
end;
end;
Cheers
Rob
The path listed looks like it is missing the server name at the staff yours shows ': c:\mysoft\dagdb\mybackup.gbk' I would have expected something like 'MYCOMPUTERNAME: c:\mysoft\dagdb\mybackup.gbk'. Are you sure you have correctly specified the server name?
Here is some of my old code that does a backup, note this displays the progress in a memo.
with IBOBackupService do begin
ServerName := DBServer;
LoginPrompt := False;
Params.Clear;
Params.Add('user_name=' + WS_DB_USERNAME);
Params.Add('password=' + WS_DB_PASSWORD);
Active := True;
try
try
Verbose := True;
Options := [IgnoreLimbo];
DatabaseName := SourceDatabase;
BackupFile.Clear;
BackupFile.Add(DestBackupName);
SQLMemo.Clear;
Application.ProcessMessages;
ServiceStart;
while (Eof = False) do begin
SQLMemo.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
except
on e : exception do begin
MessageDlg(ErrorMessageText + #13#13 + e.Message, mtInformation, [mbOk], 0);
Result := False;
end;
end;
finally
Active := False;
end;
end;
Cheers
Rob
On 12/05/2018 2:14 AM, mlcvista@... [IBObjects] wrote:
Hello Jason,
I've succeded at 80%...I've replaced in params my instructions by those ones :
user_name=SYSDBA
password=masterkey
Now I've got this message :"Size specification either missing or incorrect for file : c:\mysoft\dagdb\mybackup.gbk"
Where can I enter this size , please ?
With best regards,Mikey