迁移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驱动程序管理器]指定的DSN包含驱动程序和应用程序之间的体系结构不匹配

错误源：用于ODBC驱动程序的Microsoft OLE DB提供程序

我应该如何更改代码才能使其正常工作？我是否需要添加对任何库的引用并修改我的代码？

感谢。

Answer 1

您无需更改代码。你需要问他们＆＃34;他们＆＃34;创建32位ODBC DSN。 VB6需要这个才能连接。

有关this Microsoft page的更多信息。

从页面中提取

  

管理连接到64位下的32位驱动程序的数据源   平台，使用c：\​​ windows \ sysWOW64 \ odbcad32.exe。