Программное заполнение списка SQL-баз для 1С-сервера

26.04.16

База данных - Инструменты администратора БД

Когда на сервере 1С:Предприятия появляется много SQL-баз, хотя бы 10 штук, добавлять их вручную становится проблематичным.
Сервер 1С иногда сбоит и требуется его переустановка, при этом список баз нужно заново прописывать вручную.
Также список баз требуется прописать заново при переезде на новый сервер.
В общем, неплохо иметь код, который будет заполнять список баз автоматически.

Скачать файлы

Наименование Файл Версия Размер
down.zip
.zip 2,18Kb
6
.zip 2,18Kb 6 Скачать

Я реализовал код на языке 1С. Это не совсем удобно, т.к. для запуска нужно создать пустую базу.

В приложении образец обработки без формы, работать будет на обычных формах, на управляемых не тестировал, но переписать не сложно.

Скрипт предполагает, что рабочий процесс работает на стандартном порту 1561. Если у Вас несколько рабочих процессов и кластеров, нужно прописать код для каждого порта.

 

Вот код на языке 1С:

 

Перем ЛогинСКЛ, ПарольСКЛ, ТипСУБД;
 
Функция СоздатьБазу(СоединениеСПроцессом, ИмяСервера, ЛогинСКЛ, ПарольСКЛ, ИмяБазы1С, ИмяБазыСКЛ = Неопределено) Экспорт
       Если ИмяБазыСКЛ = Неопределено Тогда ИмяБазыСКЛ = ИмяБазы1С; КонецЕсли;
      
       ИнформационнаяБаза = СоединениеСПроцессом.CreateInfoBaseInfo();
       ИнформационнаяБаза.DBMS = ТипСУБД;
       ИнформационнаяБаза.Name = ИмяБазы1С;
       ИнформационнаяБаза.dbServerName = ИмяСервера;
       ИнформационнаяБаза.dbName = ИмяБазыСКЛ;
       ИнформационнаяБаза.dbUser = ЛогинСКЛ;
       ИнформационнаяБаза.dbPassword = ПарольСКЛ;
       ИнформационнаяБаза.Locale = "ru_RU";
       ИнформационнаяБаза.DateOffset = 0;
      
       Попытка
             //0 - обозначает базу данных не создавать
             СоединениеСПроцессом.CreateInfoBase(ИнформационнаяБаза, 0);
             Сообщить("База " + ИмяБазы1С +  " успешно создана");
       Исключение
             Сообщить("База " + ИмяБазы1С +  " не создана. Ошибка: " + ОписаниеОшибки());
       КонецПопытки;
КонецФункции
 
Соединитель = Новый COMОбъект("V83.COMConnector");
ИмяСервера = "localhost";
ПортПроцесса = "1561";
СтрокаСоединения = "TCP://" + ИмяСервера + ":" + ПортПроцесса; //TCP://localhost:1540;
ТипСУБД = "MSSQLServer";
 
//==== ЭТА ЧАСТЬ ПРИВАТНА, ТУТ ПАРОЛИ +++
ЛогинСКЛ = "sa";
ПарольСКЛ = "******";
//==== ЭТА ЧАСТЬ ПРИВАТНА, ТУТ ПАРОЛИ ---
 
СоединениеСПроцессом = Соединитель.ConnectWorkingProcess("" + ИмяСервера + ":" + ПортПроцесса);
//==== ТУТ СПИСОК БАЗ +++
СоздатьБазу(СоединениеСПроцессом, ИмяСервера, ЛогинСКЛ, ПарольСКЛ, "base1", );
СоздатьБазу(СоединениеСПроцессом, ИмяСервера, ЛогинСКЛ, ПарольСКЛ, "base2", );
...
СоздатьБазу(СоединениеСПроцессом, ИмяСервера, ЛогинСКЛ, ПарольСКЛ, "baseN", );
//==== ТУТ СПИСОК БАЗ ---

 

Код можно прогонять многократно. Если база уже существует, будет выдано об ошибке и выполнение перейдет к следующей добавляемой базе.

Код легко можно переписать на VBS или любой другой скриптовый язык.

 

Существует еще метод добавления базы через запуск 1с-предприятия через командную строку. Найдено здесь, пример, который выполняется в командной строке CMD:

 

c:
cd "%ProgramFiles(x86)%\1cv82\8.2.19.130\bin\"
1cv8.exe createinfobase Srvr=sql:1641;DBMS=MSSQLServer;DBSrvr=sql;DBUID=sa_ЛогинАдминаSQL;DBPwd=ПарольАдминаSQL;SQLYOffs=2000;CrSQLDB=n;DB=db_sql_name;Ref=db_sql_name /AddInList "Basa 1"

 

сервер 1с sql-базы

См. также

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С УТ 11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

Инструменты администратора БД Роли и права 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 15.12.2023, версия 1.1.

12000 руб.

06.12.2023    2967    13    1    

34

SALE! 20%

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 8000 руб.

10.11.2023    3507    11    1    

33

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177728    1073    0    

849

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27372    79    146    

59

Система хранения присоединенных файлов в томах на диске

Инструменты администратора БД Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием Платные (руб)

Конфигурация Комплексная автоматизация 1.1 (и УПП 1.3 тоже) хранит файлы и изображения в справочнике Хранилище дополнительной информации в реквизите Хранилище типа ХранилищеЗначений. Та же история с ВложениямиЭлектроннойПочты. Но при этом присоединенные файлы в Электронном документообороте хранит в томах на диске. Эта доработка позволяет использовать стандартный механизм хранения файлов, изображений и вложений электронных писем в томах на диске. При этом можно разделить тома хранения по объектам конфигурации.

4200 руб.

10.11.2015    61311    88    59    

73

"Менеджер потоков 2.1": УПП: "Восстановление партий"

Инструменты администратора БД Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Управленческий учет Платные (руб)

Как оптимизировать то, что, считалось, не поддается оптимизации? Как повысить доступность базы данных? Как проводить самую «времяемкую» операцию не по паре раз в неделю, а по несколько раз в день*? Ответ есть!

20000 руб.

12.09.2019    11744    5    9    

7

Брандмауэр для сервера 1С Предприятие 8 - внешнее управление сеансами

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Управление возможностью начала и возобновления сеансов пользователей по различным условиям, ограничение общего числа возможных сеансов для работы с информационной базой, резервирование возможности работы с информационной базой определенных польззователей, запрет запуска нескольких сеансов для пользователя, журнализация событий начала (возобновления) и завершения (гибернации) сеансов, ведение списка активных сеансов для информационных баз кластера серверов

3600 руб.

06.02.2017    31106    31    18    

47

Хранилище файлов на SQL

Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Управленческий учет Платные (руб)

Привязка файлов / сканов к объектам 1С с сохранением их на SQL-сервере

12000 руб.

09.10.2019    10978    5    8    

9
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Fragster 1138 26.04.16 17:10 Сейчас в теме
Достаточно скопировать (и при переносе на другой сервер или другой релиз платформы в случае, если надо иметь параллельно два работающих релиза, немного поправить) файлы *.lst из папки агента сервера (как правило C:\Program Files\1cv8\srvinfo)
ivankuruchenko; awk; +2 Ответить
2. fixin 4252 26.04.16 20:59 Сейчас в теме
(1) хохохохо, а вам не встречались случаи, когда файл lst бьется и сервер 1с не стартует. Теоретически можно сделать бэкап lst-файла, но скрипт, прописывающий список баз, имхо, технологичнее, т.к. работает на более высоком уровне и требует меньше геморроя.
3. Fragster 1138 27.04.16 11:29 Сейчас в теме
(2) бэкапы для трусов? или вы конфиги не бэкапите?
4. fixin 4252 27.04.16 13:43 Сейчас в теме
(3) конфиги не бэкапим. теперь особенно не имеет смысла. зачем. если можно скриптом прописать. Хоть на этом сервере, хоть на любом новом, без этого геморроя с заменой GUID сервера.
И потом, уважаемые, вы забыли что пароль SA шифруется в конфигах и при переезде на новый сервер все пойдет лесом.
Оставьте свое сообщение