请问在64位系统上安装的32位Access如何才能打开32位的ODBC

itso

我一个系统，原来是在32位的win7上运行的，通过ODBC连接外问数据表，现在在64位的系统上，我一点ODBC数据，就只打开64位的数据源，请问有什么方法可以调用32位的ODBC ？

leonshi

链接表重新链接了吗？如果没有的话可以重新链接试一下

itso

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

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

leonshi

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

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

leonshi

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

itso

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

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

itso

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

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

access新新新手

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=saWD=密码"
        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