ADOLISP在64位系统上读取数据库的解决办法

第一步：确认64位系统上安装了64位的access驱动。安装office2010的64位版本或者去微软平台下载Access 2010的64位驱动（AccessDatabaseEngine_X64.exe）。这个驱动可以从下面的地址下载：(由于不能发链接，大家去百度找吧)
有些电脑上可能先装了32位的office，这样安装这个64位驱动时会提示报错，要求先卸载32位office后再安装。这样有两个做法，一种是先卸载office，安装64位驱动，再重装32位的office；另外一个做法，修改64位的驱动包，跳过检测了直接安装，更改方法：
先用7zip把AccessDatabaseEngine_X64.exe接压缩，里面会有一个AceRedist.msi安装文件，然后用Orca（下载地址：(由于不能发链接，大家去百度找吧)）打开这个MSI，找到LaunchCondition里面的BLOCKINSTALLATION，删掉，保存。现在在运行AceRedist.msi，成功。
第二步：修改connectstring语句
具体代码我放在下面，这样更好理解些。具体修改的就是connectstring语句的组成。考虑到在64位系统下可以安装32位CAD和64位CAD，故结合平台判断语句一起控制。

[pcode=lisp,true]

;;;函数名:MECAD_ADOLib_ConnectString1
;;;输入变量:dbFile(打开数据库的路径名)
;;;输出值:ConnectString
;;;注释:使用ODBC(不需要DSN)连接MS-Access数据库，
;;;     示例： (MECAD_ADOLib_ConnectString1 "d:/dbfiles/products.mdb")
;;;设计者:
;;;设计日期:2013年8月
;;;修改者:
;;;修改日期:
(defun MECAD_ADOLib_ConnectString1 (dbFile / ConnectString proc_arch)
(if (and
(setq proc_arch (getenv "PROCESSOR_ARCHITECTURE"))
(< 1 (strlen proc_arch))
(eq "64" (substr proc_arch (1- (strlen proc_arch))))
      )
    (progn
      (setq ConnectString
      (STRCAT
        "Provider=MSDASQL;"
        "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
        "DBQ="
        dbFile
      )
      )     ;对于64位系统的数据库引擎连接
    )
    (progn
      (setq ConnectString
      (strcat
        "Provider=MSDASQL;"
        "Driver={Microsoft Access Driver (*.mdb)};"
        "DBQ="
        dbFile
      )
      )     ;对于32位系统的数据库引擎连接
    )
)     ;end if
ConnectString
)
;;;end if

;;;函数名:MECAD_ADOLib_ConnectString2
;;;输入变量:dbFile(打开数据库的路径名)
;;;输出值:ConnectString
;;;注释:使用JET4.0连接MS-Access数据库,64位系统上，JET引擎已不支持,需改用ACE引擎
;;;     示例： (MECAD_ADOLib_ConnectString2 "d:/dbfiles/products.mdb")
;;;设计者:
;;;设计日期:2013年8月
;;;修改者:
;;;修改日期:
(defun MECAD_ADOLib_ConnectString2 (dbFile / ConnectString proc_arch)
(if (and
(setq proc_arch (getenv "PROCESSOR_ARCHITECTURE"))
(< 1 (strlen proc_arch))
(eq "64" (substr proc_arch (1- (strlen proc_arch))))
      )
    (progn
      (setq ConnectString
      (strcat "Provider=Microsoft.ACE.OLEDB.12.0;"
       "Data Source="
       dbFile
       ";Persist Security Info=False"
      )
      )     ;对于64位系统的数据库引擎连接
    )
    (progn
      (setq ConnectString
      (strcat "Provider=Microsoft.JET.OLEDB.4.0;"
       "Data Source="
       dbFile
       ";Persist Security Info=False"
      )
      )     ;对于32位系统的数据库引擎连接
    )
)     ;end if
ConnectString
)
;;;end if
;;;;测试函数的代码如下
(defun c:adotest (/ dbfile *ConnectionObject* result SQLStatement)
(setq dbfile (getfiled "" "C:\\" "mdb" 4))
(if dbfile
    (progn
      ;;打开MDB数据库
      (setq *ConnectionObject* (ADOLISP_ConnectToDB (MECAD_ADOLib_ConnectString1 dbfile) "" ""))
      ;(setq *ConnectionObject* (ADOLISP_ConnectToDB (MECAD_ADOLib_ConnectString2 dbfile) "" ""))
      (if *ConnectionObject*
(progn
   ;;数据库查询
   (setq result (ADOLISP_GetTablesAndViews *ConnectionObject*))
   ;;显示查询结果
   (print result)
   ;;关闭数据库
   (ADOLISP_DisconnectFromDB *ConnectionObject*)
)
      )
    )
)
(princ)
)

[/pcode]

ADOLISP在64位系统上读取数据库的解决办法相关推荐

32位系统上开发的Access为数据库的程序在64位机器上运行出错的解决办法
64位平台下解决方法为在VS2010开发环境下进行以下操作:生成->配置管理器->平台->点击Any Cpu选项卡->新建->新建平台->X86
【转】将 Linux 应用程序移植到 64 位系统上
原文网址:http://www.ibm.com/developerworks/cn/linux/l-port64.html 随着 64 位体系结构的普及,针对 64 位系统准备好您的 Linux® 软 ...
64位系统使用Access 数据库文件的彻底解决方法
最近,有PDF.NET用户问我怎么在64位系统下无法访问Access数据库的问题,我第一反应是我怎么没有遇到呢?今天一看自己的VS和Office都是32位版本的,所以在VS里面调试访问Access是没 ...
64位系统使用Access数据库文件的彻底解决方法
64位系统使用Access数据库文件的彻底解决方法最近,有PDF.NET用户问我怎么在64位系统下无法访问Access数据库的问题,我第一反应是我怎么没有遇到呢?今天一看自己的VS和Office都是 ...
关于在64位系统上，使用APlayer，运行报错“找不到指定的模块”
使用APlayer开发了一个C#程序,原先开发电脑是32位的,安装电脑也是32位,只需要将相应的文件打包,然后在system32文件夹中放入atl71.dll和D3DX9_43.dll,项目运转正常. ...
64位系统上安装apache
查看系统是多少位: # getconf LONG_BIT 显示: # 64 如果在64位系统上安装apache 正常情况下会报一下错误 /usr/lib/libexpat.so: could no ...
win10 64位系统上注册wincc的ocx插件问题
win10 64位系统上注册wincc的ocx插件问题今天下载一个anigif动态图控件,注册时死活注册不了在win10操作系统下注册OCX控件,主要有以下几个步骤: 1.以管理员的身份打开命令提 ...
修改32位的AutoCAD2012，使其能在64位系统上安装
修改32位的AutoCAD2012,使其能在64位系统上安装我们只需要下载AutoCAD2012的32位版,通过下面的修改就可以同时兼容32位和64位操作系统,二合一可以节省很多的硬盘开销. 1. ...
hp1015驱动64位_在win10/win7 64位系统上安装 hp laserjet 1015对应的打印机驱动
在win10/win7 64位系统上安装 hp laserjet 1015对应的打印机驱动在win10/win7 64位系统上安装 hp laserjet 1015对应的打印机驱动打印机是2005 ...

ADOLISP在64位系统上读取数据库的解决办法

ADOLISP在64位系统上读取数据库的解决办法相关推荐

最新文章

热门文章