Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2008, 12:08   #1
dron-s
Форумчанин
 
Регистрация: 04.03.2007
Сообщений: 615
По умолчанию Архивация БД

Привет всем!
СУБД: FireBird
делаю архивацию БД через IBBackupService..
вот как это выглядит
Код:
  with IBBackup do
    begin
      btnBackup.Enabled := False;
      btnClose.Enabled := False;
      Screen.Cursor := crSQLWait;
      lblStat.Caption := 'Проверяем директорию...';
      CreateDir(ExtractFilePath(Application.ExeName)+'Backup');
      if FileExists(BackupName) then
        DeleteFile(BackupName);
      BackupFile.Clear;
      BackupFile.Add(BackupName);
      Params.Clear;
      lblStat.Caption := 'Настраиваем параметры...';
      Application.ProcessMessages;
      Params.Clear;
      Params.Add('user_name=SYSDBA');
      Params.Add('password=masterkey');
      DatabaseName := BaseName;
      ServerName := LocalServer;
       try
         Active := True;
         lblStat.Caption := 'Соединяемся с БД...';
         Application.ProcessMessages;
       except
         ShowMessage('Невозможно установить соединение с БД!');
         lblStat.Caption := 'Соединение не удалось!!!';
         Active := False;
         Exit;
       end;
       lblStat.Caption := 'Идёт архивация...';
       Application.ProcessMessages;
       ServiceStart;
       while IsServiceRunning do
         Application.ProcessMessages;
       Active := False;
       lblStat.Caption := 'Архивация закончена!';
       Screen.Cursor := crDefault;
       btnClose.Enabled := True;
    end;
вылетает ошибка: password parameter missing
создаю обсолютно новый проект
копирую код туда: всё работает
в чём косяк не пойму...
dron-s вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Архивация БД ADO Alexsandr БД в Delphi 1 07.04.2008 18:42
Архивация в программе FaTaL Общие вопросы Delphi 13 04.03.2008 19:37
Архивация Mitron Общие вопросы Delphi 10 14.02.2008 16:00
Архивация данных ZYRGiX Win Api 6 05.09.2007 20:58