Резервное копирование MS SQL SERVER 2014 EXPRESS и VBS скрипт
Формулировка задачи:
Добрый день.
Воспользовался статьей из Faq " Резервное копирование MS SQL SERVER 2005 EXPRESS " https://www.sql.ru/faq/faq_topic.aspx?fid=2050
Возникли некоторые ошибки, частично исправил, но некоторые остались. Подскажите как побороть Процедура или функция ожидает параметр который не был указан.
В MS SQL SERVER 2014 EXPRESS
Падает в ошибку:
строка conn_str="Provider=SQLNCLI.1; Password=xxx;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1,1433;"
Лечится conn_str="Provider=SQLNCLI11.1; Password=xxx;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1,1433;"
Но остается ошибка: Ожидается параметр "@StrSaveDir"
Если процедуру запустить в ручную и ввести параметры то работает.
Если значения строк
prmStrSaveDir.Value = bcp_dir
prmStrSaveDir.Name = "@StrSaveDir"
поменять местами . То тоже работает , только к имени Базы добавляется @StrSaveDir. Как полечить до конца . ?
Заранее Спасибо за помощь.
Воспользовался статьей из Faq " Резервное копирование MS SQL SERVER 2005 EXPRESS " https://www.sql.ru/faq/faq_topic.aspx?fid=2050
Возникли некоторые ошибки, частично исправил, но некоторые остались. Подскажите как побороть Процедура или функция ожидает параметр который не был указан.
В MS SQL SERVER 2014 EXPRESS
Падает в ошибку:
строка conn_str="Provider=SQLNCLI.1; Password=xxx;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1,1433;"
Лечится conn_str="Provider=SQLNCLI11.1; Password=xxx;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1,1433;"
Но остается ошибка: Ожидается параметр "@StrSaveDir"
Если процедуру запустить в ручную и ввести параметры то работает.
Если значения строк
prmStrSaveDir.Value = bcp_dir
prmStrSaveDir.Name = "@StrSaveDir"
поменять местами . То тоже работает , только к имени Базы добавляется @StrSaveDir. Как полечить до конца . ?
Заранее Спасибо за помощь.
Решение задачи: «Резервное копирование MS SQL SERVER 2014 EXPRESS и VBS скрипт»
textual
Листинг программы
Sub DeleteOldDir( folder, control_dir ) 'обработка директории - поиск и удаление старых папок с архивами
' все архивы разложены по папкам, а папки структурированы по датам - поэтому удаляем сразу всю папку..
on error resume next
dim file, subfolder,d,diff , del
del=0
if (UCase(folder.Path)&"\"<>UCase(control_dir)) then ' мы-же не будем удалять сам каталог для ведения архивов !!!
d = folder.DateCreated
diff = DateDiff("d",d,Now)
if diff>DelDiff Then
folder.Delete
if err.number then
log "ERROR DeleteOldDir - folder.Delete: " & err.description & " (" & err.Source & "), " & folder.Path
else
log("Deleted: " & folder.Path)
del=1
end if
end if
end if
if del=0 then
For Each subfolder in folder.SubFolders ' конечно, мало вероятно что найдется вложенная подпапка, которая была создана реньше... но всеравно проверим
DeleteOldDir subfolder, control_dir
Next
end if
End Sub