Office中国论坛/Access中国论坛

标题: 请问在64位系统上安装的32位Access如何才能打开32位的ODBC [打印本页]

作者: itso 时间: 2017-12-4 12:02
标题: 请问在64位系统上安装的32位Access如何才能打开32位的ODBC
我一个系统，原来是在32位的win7上运行的，通过ODBC连接外问数据表，现在在64位的系统上，我一点ODBC数据，就只打开64位的数据源，请问有什么方法可以调用32位的ODBC ？[attach]62275[/attach]

作者: leonshi 时间: 2017-12-4 14:29
链接表重新链接了吗？如果没有的话可以重新链接试一下

作者: itso 时间: 2017-12-4 14:32

leonshi 发表于 2017-12-4 14:29
链接表重新链接了吗？如果没有的话可以重新链接试一下

就是无法重新链接，打开就是64位的，根本没按键让我选32位的，苦脑！~

作者: leonshi 时间: 2017-12-4 14:36

itso 发表于 2017-12-4 14:32
就是无法重新链接，打开就是64位的，根本没按键让我选32位的，苦脑！~

你在你32位的电脑上是否建立了odbc数据源文件，后缀为 .DSN的文件，你把他复制过来然后重新配置下，在进行链接表的操作，如果不想麻烦的话你可以选择使用代码来操作

作者: leonshi 时间: 2017-12-4 14:40
http://www.office-cn.net/forum.php?mod=viewthread&tid=95750，下载这个附件然后把这个附件的窗体导入到你的程序中，然后点击运行这个窗体，对你当前数据库的表进行刷新链接

作者: itso 时间: 2017-12-4 16:12

leonshi 发表于 2017-12-4 14:36
你在你32位的电脑上是否建立了odbc数据源文件，后缀为 .DSN的文件，你把他复制过来然后重新配置下，在进 ...

用代码实现如何可以可以指定32位的ODBC，我在网上找过相关的，只是32位操作系统上的代码

作者: itso 时间: 2017-12-4 16:12

leonshi 发表于 2017-12-4 14:40
http://www.office-cn.net/forum.php?mod=viewthread&tid=95750，下载这个附件然后把这个附件的窗体导入到 ...

我看了一下，这个刷新链接表的是SQL，我用的ODBC 是Progress，

作者: access新新新手 时间: 2017-12-4 17:56

itso 发表于 2017-12-4 16:12
我看了一下，这个刷新链接表的是SQL，我用的ODBC 是Progress，

用代码链接
Sub 链接SQLServer表()
Dim cnn As String
Dim dbs As Object
Dim tdf As Object
Dim strConnect As String
Dim arr As Variant
Dim ar As String
Dim i As Integer
On Error GoTo errmsg
ar = ("表1,表2,表3,表n") '要链接的SQL Server数据库表名
arr = Split(ar, ",")
For i = LBound(arr) To UBound(arr)
Set dbs = CurrentDb
strConnect = "ODBC;DRIVER=SQL Server;SERVER=IP地址,1433;DATABASE=数据库名;UID=sa

WD=密码"
      Set tdf = dbs.CreateTableDef(arr(i))  '创建链接表,命名为arr(i)
      tdf.Connect = strConnect
      tdf.SourceTableName = arr(i) 'SQL源表
      dbs.TableDefs.Append tdf
      Set dbs = Nothing
      Set tdf = Nothing
      Application.RefreshDatabaseWindow  '刷新
Next
MsgBox "创建成功，请查看表"
Exit Sub
errmsg:
Set dbs = Nothing
Set tdf = Nothing
MsgBox Err.Description
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)