DB Restore mit Fibplus

[manfred_h]

Hallo esten dank für Eure Hilfe

Das Problem war das ich die Userdaten nicht übergeben habe:

Delphi-Quellcode:

procedure Tfrm_backup_restore.btn_restoreClick(Sender: TObject);
begin
  with DM.Restore_Service do
  begin
    Params.Add ('user_name=sysdba');
    Params.Add ('password=masterkey');
    Options := [Replace, CreateNewDB];
    DatabaseName.Clear;                 // Database Paramameter Clear
    BackupFile.Clear;                   // BackupFile Paramameter Clear
   DatabaseName.Add (IncludeTrailingPathDelimiter(GetCurrentDir)+('GIDEONS_DB.FDB'));
   BackupFile.Add (IncludeTrailingPathDelimiter(GetCurrentDir)+('gideons_db_backup__01.11.2006.gbk'));
    memo_log.Lines.Add(
    '==================== Restore started ====================');
    Active := True;                     // FIBPlus Backup Service Active
    btn_backup.Enabled := False;        // Backupbutton diabled
    btn_restore.Enabled := False;       // Restorebutton diabled
    ServiceStart;                       // FIBPlus Backup Service Start
    while not (Eof) do                  // Logoutput to memo_log
      memo_log.Lines.Add(GetNextLine);
    Active := False;                    // FIBPlus Backup Service Active
    btn_backup.Enabled := True;         // Backupbutton enabled
    btn_restore.Enabled := True;        // Restorebutton enabled
    memo_log.Lines.Add(
    '==================== Restore ended ====================');
  end;
end;

Danke Euch beiden.
Shalom
Manfred