БэкАп MsSQL из Делфи

[ins813]

Здравствуйте, подскажите как реализовать Сохранение и восстановление бекапа БД СКУЛ на Делфе, т.е. соотвтет. есть клиентское приложение написанное на delphi и подконекченое к ниму БД. Хотелось бы сделать в отдельной кнопке - как я понимаю запрос, но вот что в нем прописать хз.

[Аватар]

Именно из дельфей? Это зачем еще? На это есть админ базы и соответсвующие полномочия. А вообще смотрим синтаксис команд RESTORE DATABASE и BACKUP DATABASE. С дельфей не пробовал, есть строка соединения если через ADO, и там фигурирует имя базы. Хотя не важно - и в любом другом способе обращения к базе оно тоже есть. Возможны нюансы

[ins813]

ок, спасибо, просто хотел реализовать через возможность выбора пути сохранения БД (наверное через treeview), в общем как происходит обычное сохранение, например резервное копирование в Firefox.

[ins813]

Если делаю просто Бэкап

ADOConnection1.Execute('BACKUP DATABASE Base TO DISK = ''D:\BackUP.bak'' ');

то все нормально сохраняет, а вот если через Savedialog

procedure TFormMain.N11Click(Sender: TObject);
var dir:string;
begin
    SaveDialog1.Execute;
    dir:= GetCurrentDir;
    ADOConnection1.Execute('BACKUP DATABASE Base TO DISK ='+chr(39)+dir+chr(39));
end;

выдает ошибку: "Невозможно открыть устройство резервного копирования 'C:\Program Files\Microsoft SQL Server\MSSQL10_50.SQLEXPRESS\MSSQL\ Backup'. Ошибка операционной системы 5(Отказано в доступе.)"

[Аватар]

  if SaveDialog1.Execute then begin
    dir:=SaveDialog1.FileName;
    ADOConnection1.Execute('BACKUP DATABASE Base TO DISK ='+chr(39)+dir+chr(39));
  end;

[ins813]

Спасибо, как всегда выручил!