Определение версии MySQL ODBC Connector

01.02.16

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

Автоматическое определение установленной версии ODBC Connector MySQL из реестра Windows

При написании фоновых заданий на сервере x64 частенько сталкивался с тем, что трудно каждый раз подбирать название строки драйвера для MySQL, в результате родился вот такой незамысловатый кусочек кода:

    Список=ПолучитьСписокУстановленныхODBC();
    СтрокаДрайверов=СтроковыеФункцииКлиентСервер.ПолучитьСтрокуИзМассиваПодстрок(Список);
    СтрокаДрайвера=Неопределено;
    Если не Найти(нрег(СтрокаДрайверов), "mysql") Тогда
        //Нет драйвера, устанавливаем на клиенте
        #Если Клиент Тогда
        ВерсияWin=WindowsInfo();
        МакетКомпоненты=ПолучитьМакет("mySql"+Лев(ВерсияWin,3));
        ИмяФайлаУстановки=КаталогВременныхФайлов()+"driverMySQL.exe";
        МакетКомпоненты.Записать(ИмяФайлаУстановки);
        КомандаСистемы(ИмяФайлаУстановки);
        Сообщить("Пытаемся установить драйвер MySQL",СтатусСообщения.Важное);
        #Иначе
        ВызватьИсключение "На севере не установлен драйвер MySQL";
        #КонецЕсли
    Иначе
        МассивДрайверов=Новый СписокЗначений;
        МассивДрайверов.ЗагрузитьЗначения(Список);
        //Сортируем для использования старшей версии драйвера, если их установлено несколько
        МассивДрайверов.СортироватьПоЗначению(НаправлениеСортировки.Убыв);
        Для Каждого СтрДрайвер из МассивДрайверов Цикл
            Если Найти(нрег(СтрДрайвер.Значение), "mysql") Тогда
                Прервать;
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;

Функцию ПолучитьСтрокуИзМассиваПодстрок можно взять из БСП. При работе на клиенте, при отсутсвии драйвера, будем ставить его автоматически из макета. Макет создаем из скачанного exe или msi файла с официального сайта. Для корректной установки на сервере, соответсвенно запускаем клиента с сервера, где выполняются фоновые задания 1С.

Далее обычное создание объекта:

    Соединение=Новый COMОбъект("ADODB.Connection");
    Порт = ?(ЗначениеЗаполнено(СтруктураПараметровСайта.Порт), СтруктураПараметровСайта.Порт, 3306);
    СтрокаСоединения= "
        |DRIVER={"+СокрЛП(СтрДрайвер)+"};
        |SERVER="+Сервер+";
        |DATABASE="+ИмяБазы+";
        |UID="+ИмяПользователя+";
        |PWD="+Пароль+"";

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

Функция ПолучитьСписокУстановленныхODBC()

    Перем ODBCDrivers,Значения;
    
    WinMGMT = ПолучитьCOMОбъект("winmgmts:\\.\root\default:StdRegProv");
    HKLM = 2147483650;
    HKPath= "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers\";
    WinMGMT.EnumValues(HKLM, HKPath, ODBCDrivers, Значения);
    Рез=Новый Массив;
    Для Каждого Драйвер из ODBCDrivers Цикл
        Рез.Добавить(Драйвер);
    КонецЦикла;
    Возврат Рез;

КонецФункции
Ну и элементарное определение через MSScriptControl версии windows, из-под которой мы работаем:
Функция WindowsInfo()
    
    ScrptCtrl=Новый COMОбъект("MSScriptControl.ScriptControl");
    ScrptCtrl.Language="vbscript";
    ScrptCtrl.AddCode("
    |Function GetOSVersion()
    |    strInfo=vbNullString
    |    For Each objOStype in GetObject(""winmgmts:"").InstancesOf (""Win32_ComputerSystem"")
    |       'WScript.Echo ""PC type = "" & objOStype.SystemType
    |       strInfo = strInfo & objOStype.SystemType & vbCrLf
    |    Next
    |    
    |    GetOSVersion=strInfo
    |End Function
    |");
    Возврат ScrptCtrl.Run("GetOSVersion");
КонецФункции

MySQL

См. также

Автоподбор ролей для профилей и групп доступа в любых типовых базах 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    2969    13    1    

34

SALE! 20%

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

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

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

10000 8000 руб.

10.11.2023    3512    11    1    

33

SALE! 30%

PowerTools

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

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

3600 2520 руб.

14.01.2013    177729    1073    0    

849

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

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

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

14400 руб.

29.04.2020    27373    79    146    

59

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

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

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

4200 руб.

10.11.2015    61312    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. cool.vlad4 2 01.02.16 20:55 Сейчас в теме
Версию винды ЕМНИП через Новый СистемнаяИнформация (ВерсияОС , ТипПлатформы) можно получить.
2. spawn_a 53 02.02.16 09:30 Сейчас в теме
(1) cool.vlad4, Да всё верно, но в клиентском контексте это будет x32. В серверном будет - x64. Но если разные сервера для клиентского сеанса и фоновых заданий, то опять таки не то. Плюс сервер обслуживающий клиентов, вообще может под линухом крутиться.
cool.vlad4; +1 Ответить
Оставьте свое сообщение