Перенос кода VB6 на использование 64-разрядного ODBC DSN

Question

У меня есть устаревшее приложение VB6, которое делает подключения ODBC к собственной сторонней базе данных с использованием ODBC.

Dim con As Object ' New ADODB.Connection 
Set con = CreateObject("ADODB.Connection") 
con.Open ("DB64bitDSN") 

Раньше это работало до сих пор. Недавно они установили 64-разрядную версию базы данных сторонних разработчиков. База данных сторонних разработчиков автоматически создает 64-разрядный ODBC DSN во время установки, и то же самое работает при подключении с помощью мастера подключения к данным Excel и использовании ODBC DSN в качестве источника данных.

Но мой код дает ошибку:

Ошибка Описание: [Microsoft] [ODBC Driver Manager] Указанный DSN содержит Несоответствие архитектуры между драйвером и применением

Источник ошибки: Microsoft OLE DB Provider для Водители ODBC

Как мне изменить свой код, чтобы он работал? Нужно ли добавлять ссылку на любую библиотеку и изменять код?

Спасибо.

Answer 1

Вам не нужно менять код. Вам нужно попросить «их» создать 32-разрядный DSN-код ODBC. VB6 требует этого для подключения.

Дополнительную информацию о this Microsoft page.

Извлечение из страницы

To manage a data source that connects to a 32-bit driver under 64-bit platform, use c:\windows\sysWOW64\odbcad32.exe.