helpf.pro
Регистрация
 +1 
Распечатать

Как посмотреть список баз, зарегистрированных в выбранном кластере?

Код 1C v 8.х
 // В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. 
// Для этого кластера получается список информационных баз, который затем обходится в цикле.

Соединитель = Новый COMObject("V81.COMConnector");

ИмяМашины = "SERVANT";
Порт = "1540"; 
СтрокаСоединения = "TCP://" + ИмяМашины + ":" + Порт;

СоединениеСАгентом = Соединитель.ConnectAgent(СтрокаСоединения);
МассивКластеров = СоединениеСАгентом.GetClusters();

// получается первый массив кластера.
ОписаниеКластера = МассивКластеров.GetValue(МассивКластеров.GetLowerBound());

// в случае если определены администраторы кластера, должны быть указаны данные о логине.
СоединениеСАгентом.authenticate(ОписаниеКластера, " ", " ");
	
МассивБаз = СоединениеСАгентом.GetInfoBases(ОписаниеКластера);
МаксимальныйИндекс = МассивБаз.GetUpperBound();

Для ТекущийИндекс = МассивБаз.GetLowerBound() По МаксимальныйИндекс Цикл
	ОписаниеБазы = МассивБаз.GetValue(ТекущийИндекс);
	
	Сообщить(ОписаниеБазы.Descr);
	Сообщить(ОписаниеБазы.Name);
	
КонецЦикла;    
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 20025
 +1 
Распечатать
Возможно, вас также заинтересует
Автоматическое резервное копирование 1С:Предприятия в облако с помощью ПО Effector Saver 4
Всем известно, для большей гарантии восстановления важных данных, необходимо копировать архивы в несколько мест хранения. Отдельный диск может помочь в случае порчи основного, но в случае если устройство будет потеряно или украдено, он будет так же
Автоматическое резервное копирование 1С:Предприятия в облако с помощью ПО Effector Saver 1
Всем известно, для большей гарантии восстановления важных данных, необходимо копировать архивы в несколько мест хранения. Отдельный диск может помочь в случае порчи основного, но в случае если устройство будет потеряно или украдено, он будет так же
Как в ЗУПе выбрать всех сотрудников, когда-либо работавших в выбранном подразделении? 3
Как в ЗУПе выбрать всех сотрудников, когда-либо работавших в выбранном подразделении и изменить у них значение указанного реквизита. Запрос=Новый Запрос; Запрос.Текст=" |ВЫБРАТЬ РАЗЛИЧНЫЕ | РаботникиОрганизаций.Сотрудник, | РаботникиОрганизаций
Как вывести все расчеты, относящиеся к выбранному Документу 0
док = СоздатьОбъект(" Документ.Премия" ); // Метод Выбрать вызывает диалог для выбора документа // Если документ не выбран если док.Выбрать(" Выберите документ" ) = 0 тогда Предупреждение(" Документ не выбран." ); возврат; конецЕсли; жз = Соз
Как вывести все расчеты, относящиеся к выбранному Сотруднику 0
сСотр_2 = СоздатьОбъект(" Справочник.Сотрудники" ); // Метод Выбрать вызывает диалог для выбора элемента справочника // Если сотрудник не выбран если сСотр_2.Выбрать(" Выберите сотрудника" , " ФормаСписка" ) = 0 тогда Предупреждение(" Сотрудник
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Загрузка... Дождитесь завершения!