Код VBA для линковки (установлении связи) по двум или более драйверам ODBC

@ankan · Регистрация: 28.09.2012

Author24 — интернет-сервис помощи студентам

Форумчане, дорого времени суток!
Есть код VBA, который производит линковку Аксесс 2003 с таблицами SQL (в данном случае MySQL). Используется драйвер ODBC для 32 разрядной ОС.

Есть компьютеры и с 64 разрядной ОС, для них ДРУГОЙ драйвер ODBC.
Прошу помочь составить код VBA, который мог бы связывать с таблицами использую драйвер или для 32 или для 64 разрядной ОС в зависимости от разрядности ОС конкретной машины..
Исходный кусочек кода прилагаю

Кликните здесь для просмотра всего текста

Visual Basic

Public Sub LinkTablesMySQL_ADOX()
'Создание общей строки подключения и подлинковка таблиц MySQL
'--------------------------------------------------------------------------
Dim sDriver As String
Dim sServerAdr As String
Dim sCharset As String
Dim sServPort As String
Dim sDbName As String
Dim sUser As String
Dim sPassWord As String
Dim sConnect As String
Dim l&
'--------------------------------------------------------------------------
On Error GoTo LinkTablesMySQL_ADOX_Err
'Внимание - проверь версию драйвера! - Может уже... 5.5 или даже 6.2!?
    'sDriver = "{MySQL ODBC 5.2 ANSI Driver}"    'ANSI Driver
    sDriver = "{MySQL ODBC 3.51 Driver}"  'UNICODE Driver
    
    'sServerAdr = "localhost"
    sServerAdr = "111.111.1.111"   ' Адрес (Имя) сервера
    sServPort = "3306"         ' Порт соединения = 3306 (Обычно так и есть)
    sDbName = "base" ' Название базы
    sUser = "sistema"             ' Имя пользователя
    sPassWord = "999999"    ' Пароль
 
 
'Создаю строку подключения:
 sConnect = "ODBC;DRIVER=" & sDriver & _
        ";SERVER=" & sServerAdr & _
        ";Port=" & sServPort & _
        ";DATABASE=" & sDbName & _
        ";USER=" & sUser & _
        ";PASSWORD=" & sPassWord & _
        ";OPTION=3" & _
        ";stmt=set names cp1251"
        'Debug.Print sConnect
 
'--------------------------------------------------------------------
'Подключаем несколько таблиц по ADOX
        
l = LinkTable_ADOX("Afigenno", sConnect)
    If l > 0 Then Err.Raise l

Добавлено через 29 минут
Драйвер ODBC для 64 разрядной ОС для простоты назовем "Драйвер_64_ОС"

mobile · 21.04.2017, 12:45

С помощью условной компиляции

Visual Basic

#If Win64 then
   Const sDriver = "Строка Драйвер_64_ОС"
#else
   Const sDriver = "Строка Драйвер_32_ОС"
#end if

@ankan · 24.04.2017, 12:32 **[ТС]**

mobile, Этот код нужно вставить в модуль-

Сообщение от ankan

Исходный кусочек кода прилагаю
Кликните здесь для просмотра всего текста

см. пост 21.04.2017, 14:03 ? Да ?
Можно подробнее?

mobile · 24.04.2017, 13:14

ankan, для версии 3.51 не нашел 64-битного драйвера в https://www.connectionstrings.com/mysql/. Теперь не уверен, что такой вообще существует. Для более новых версий есть.

Насколько я знаю в connectionstrings.com самое полное и актуальное собрание драйверов. Где еще искать не знаю. Может быть на официальном сайте мускула?

@ankan · 24.04.2017, 13:32 **[ТС]**

mobile, Для 64 разрядной ОС есть драйверы, найти их не проблема.
Вопрос в другом- как составить код который может использовать несколько драйверов (повторюсь, их найти не проблема)
Код, использующий один драйвер есть в первом посте.
Как в него вставить дополнение, для использования нескольких драйверов?
Вы написали

Visual Basic

1
2
3

If Win64 then Const sDriver = "Строка Драйвер_64_ОС" 
else Const sDriver = "Строка Драйвер_32_ОС" 
end if

В какое место модуля вставить этот код?

Добавлено через 2 минуты
например, есть (mysql-connector-odbc-5.3.7-winx64.msi)
https://dev.mysql.com/downloads/connector/odbc/

Добавлено через 1 минуту
есть и для 32 разрядной ОС (mysql-connector-odbc-5.3.7-win32.msi)
https://dev.mysql.com/downloads/connector/odbc/, но он требует установки доп программ. Доп программы не на все компы легко устанавливаются.

Добавлено через 1 минуту
Поэтому в строках кода

Visual Basic

1
2
3

If Win64 then Const sDriver = "Строка Драйвер_64_ОС" 
else Const sDriver = "Строка Драйвер_32_ОС" 
end if

нужно , минимум три драйвера, два -для 32 разр. ОС , 1 -для 64 разрядной ОС.

mobile · 24.04.2017, 15:49

Сообщение от ankan

нужно , минимум три драйвера, два -для 32 разр. ОС , 1 -для 64 разрядной ОС.

ankan, вставлять надо прямо в процедуру конекшена

Visual Basic

Public Sub LinkTablesMySQL_ADOX()
................................
Dim vers
#If Win64 then
   vers=64
#else
   vers=32
 #end if
 
If vers=64 then
   sDriver = "Строка Драйвер_64_ОС" 
ElseIf <Условие> Then
   sDriver = "Строка Драйвер_32_ОС Версия 1"
Else
   sDriver = "Строка Драйвер_32_ОС Версия 2" 
End if

@ankan · 24.04.2017, 16:09 **[ТС]**

mobile, заругался на

Сообщение от mobile

ElseIf <Условие> Then

mobile · 24.04.2017, 16:13

ankan, покажите строку с ошибкой. И имейте в виду, что угловые скобки не являются частью синтаксиса. Поставлены только чтобы как-то оттенить условие.

@ankan · 24.04.2017, 16:22 **[ТС]**

mobile, Прикладываю скрин

mobile · 24.04.2017, 16:36

ankan, ну откуда же я знаю в каком случае нужна строка с 3.51 драйвером, а в каком 5.3.7 ? Это условие должны задать Вы сами. Каким оно будет не знаю.

Добавлено через 1 минуту
Вместо <Условие> надо написать настоящее условие, то которое влияет на выбор драйвера

@ankan · 24.04.2017, 17:01 **[ТС]**

mobile, Драйвер ODBC, устанавливается на компьютер (обычно) в директорию
C:\Program Files\MySQL
и в этой папке может находится:
Connector ODBC 5.3
или
Connector ODBC 3.51
или другой

т.е вместо <Условие> нужно написать
"C:\Program Files\MySQL\Connector ODBC 3.51"

Так?

Добавлено через 18 минут
т.е должно учитываться 2 критерия
1. разрядность ОС
2. Какая папка (имя папки) лежит в директории C:\Program Files\MySQL

может так:

Visual Basic

If vers = 64 And "C:\Program Files\MySQL\Connector ODBC 5.3" Then
sDriver = "mysql-connector-odbc-5.3.7-winx64.msi" 
ElseIf  vers = 32 And "C:\Program Files\MySQL\Connector ODBC 3.51" Then
sDriver = "mysql odbc 3.51 Driver" 
If vers = 32 And "C:\Program Files\MySQL\Connector ODBC 5.3" Then
sDriver = "mysql-connector-odbc-5.3.7-winx32.msi" 
End If

......

mobile · 24.04.2017, 17:01

Надо проверить есть ли файл или папка с определенным названием?
Проверка на папку

Visual Basic

If vers=64 then
   sDriver = "Строка Драйвер_64_ОС" 
ElseIf Dir("C:\Program Files\MySQL\Connector ODBC 3.51", vbdirectiry)<>"" Then
   sDriver = "Строка Драйвер_32_ОС Версия 1" 'Папка Connector ODBC 3.51 существует
ElseIf Dir("C:\Program Files\MySQL\Connector ODBC 5.3", vbdirectiry)<>"" Then 
   sDriver = "Строка Драйвер_32_ОС Версия 2" 'Папка Connector ODBC 5.3 существует 
Else
   msgbox "нет драйвера MySQL"
   Exit Sub
End if

@ankan · 24.04.2017, 17:26 **[ТС]**

mobile, ругается, "нет драйвера MySQL"

mobile · 24.04.2017, 17:36

Извиняюсь, неправильно написал имя константы, надо vbdirectory или числом 16

@ankan · 24.04.2017, 18:00 **[ТС]**

mobile, ПО mysql odbc 3.51 Driver", подключился.
По другим двум драйверам:
"mysql-connector-odbc-5.3.7-winx64.msi"
"mysql-connector-odbc-5.3.7-winx32.msi"

пока не подключился "Ошибка ODBC"
,буду далее тестировать.

@ankan · 24.04.2017, 18:03 **[ТС]**

mobile,

@ankan · 24.04.2017, 20:50 **[ТС]**

проверил работу драйверов ODBC
"mysql-connector-odbc-5.3.7-winx64.msi"
"mysql-connector-odbc-5.3.7-winx32.msi"
по отдельности (не в составе кода,предложенного mobile, а исходного-см. первый пост данной темы

Кликните здесь для просмотра всего текста

Visual Basic

--------------------------------------------------------------------------
On Error GoTo LinkTablesMySQL_ADOX_Err
'Внимание - проверь версию драйвера! - Может уже... 5.5 или даже 6.2!?
    'sDriver = "{MySQL ODBC 5.2 ANSI Driver}"    'ANSI Driver
    sDriver = "{MySQL ODBC 3.51 Driver}"  'UNICODE Driver
    
    'sServerAdr = "localhost"
    sServerAdr = "111.111.1.111"   ' Адрес (Имя) сервера
    sServPort = "3306"         ' Порт соединения = 3306 (Обычно так и есть)
    sDbName = "base" ' Название базы
    sUser = "sistema"             ' Имя пользователя
    sPassWord = "999999"    ' Пароль

т.е. при использовании "mysql-connector-odbc-5.3.7-winx32.msi"
код выглядит как:

Кликните здесь для просмотра всего текста

Visual Basic

--------------------------------------------------------------------------
On Error GoTo LinkTablesMySQL_ADOX_Err
'Внимание - проверь версию драйвера! - Может уже... 5.5 или даже 6.2!?
    'sDriver = "{MySQL ODBC 5.2 ANSI Driver}"    'ANSI Driver
    sDriver = "[B]mysql-connector-odbc-5.3.7-winx32.msi[/B]"  'UNICODE Driver
    
    'sServerAdr = "localhost"
    sServerAdr = "111.111.1.111"   ' Адрес (Имя) сервера
    sServPort = "3306"         ' Порт соединения = 3306 (Обычно так и есть)
    sDbName = "base" ' Название базы
    sUser = "sistema"             ' Имя пользователя
    sPassWord = "999999"    ' Пароль

НЕ работает т.е проблема не в коде mobile, а в чем-то другом.

mobile · 24.04.2017, 20:59

ankan, файлы с расширением *.msi не могут быть драйвером по-моему. *.msi это установочный, инсталяционный пакет для Windows. Его надо запустить и только тогда появится драйвер в какой-то папке.

@ankan · 24.04.2017, 21:02 **[ТС]**

т.е имя Драйвера, на самом деле, может быть другим? У меня то же эта мысль проскальзывала. Надо поискать правильное имя.

@Eugene-LS · 25.04.2017, 11:32

Сообщение от ankan

Надо поискать правильное имя.

Так и указывайте, типа:

Visual Basic

1	sDriver = "{MySQL ODBC 3.51 Driver}"

Visual Basic

If vers=64 then
   sDriver = "Строка Драйвер_64_ОС" 
ElseIf Dir("C:\Program Files\MySQL\Connector ODBC 3.51", vbdirectiry)<>"" Then
   'sDriver = "Строка Драйвер_32_ОС Версия 1" 'Папка Connector ODBC 3.51 существует
   sDriver = "{MySQL ODBC 3.51 Driver}"
ElseIf Dir("C:\Program Files\MySQL\Connector ODBC 5.3", vbdirectiry)<>"" Then 
   'sDriver = "Строка Драйвер_32_ОС Версия 2" 'Папка Connector ODBC 5.3 существует 
   sDriver = "{MySQL ODBC 5.3 Unicode Driver}"
Else
   msgbox "нет драйвера MySQL"
   Exit Sub
End if

Achtung!
Разрядность MySQL ODBC драйвера - должна совпадать с разрядностью MSO (а не СИСТЕМЫ).
Т.Е. Если система x64,а MSO=x32 (что довольно обычно), то - ставим драйвер - x32.

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	24.04.2017, 16:36	10
	ankan, ну откуда же я знаю в каком случае нужна строка с 3.51 драйвером, а в каком 5.3.7 ? Это условие должны задать Вы сами. Каким оно будет не знаю. Добавлено через 1 минуту Вместо <Условие> надо написать настоящее условие, то которое влияет на выбор драйвера 1

@ankan 45 / 30 / 1 Регистрация: 28.09.2012 Сообщений: 972
	24.04.2017, 21:02 [ТС]	19
	т.е имя Драйвера, на самом деле, может быть другим? У меня то же эта мысль проскальзывала. Надо поискать правильное имя. 0

@ankan 45 / 30 / 1 Регистрация: 28.09.2012 Сообщений: 972
	24.04.2017, 12:32 [ТС]	3
	mobile, Этот код нужно вставить в модуль- Сообщение от ankan Исходный кусочек кода прилагаю Кликните здесь для просмотра всего текста см. пост 21.04.2017, 14:03 ? Да ? Можно подробнее? 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	24.04.2017, 13:14	4
	ankan, для версии 3.51 не нашел 64-битного драйвера в https://www.connectionstrings.com/mysql/. Теперь не уверен, что такой вообще существует. Для более новых версий есть. Насколько я знаю в connectionstrings.com самое полное и актуальное собрание драйверов. Где еще искать не знаю. Может быть на официальном сайте мускула? 1

@ankan 45 / 30 / 1 Регистрация: 28.09.2012 Сообщений: 972
	24.04.2017, 16:09 [ТС]	7
	mobile, заругался на Сообщение от mobile ElseIf <Условие> Then 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	24.04.2017, 16:13	8
	ankan, покажите строку с ошибкой. И имейте в виду, что угловые скобки не являются частью синтаксиса. Поставлены только чтобы как-то оттенить условие. 0

@ankan 45 / 30 / 1 Регистрация: 28.09.2012 Сообщений: 972
	24.04.2017, 16:22 [ТС]	9
	mobile, Прикладываю скрин Миниатюры 0

@ankan 45 / 30 / 1 Регистрация: 28.09.2012 Сообщений: 972
	24.04.2017, 17:26 [ТС]	13
	mobile, ругается, "нет драйвера MySQL" 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	24.04.2017, 17:36	14
	Извиняюсь, неправильно написал имя константы, надо vbdirectory или числом 16 1

@ankan 45 / 30 / 1 Регистрация: 28.09.2012 Сообщений: 972
	24.04.2017, 18:00 [ТС]	15
	mobile, ПО mysql odbc 3.51 Driver", подключился. По другим двум драйверам: "mysql-connector-odbc-5.3.7-winx64.msi" "mysql-connector-odbc-5.3.7-winx32.msi" пока не подключился "Ошибка ODBC" ,буду далее тестировать. 0

@ankan 45 / 30 / 1 Регистрация: 28.09.2012 Сообщений: 972
	24.04.2017, 18:03 [ТС]	16
	mobile, Миниатюры 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	24.04.2017, 20:59	18
	ankan, файлы с расширением .msi не могут быть драйвером по-моему. .msi это установочный, инсталяционный пакет для Windows. Его надо запустить и только тогда появится драйвер в какой-то папке. 1