牢固 发表于 2013-5-20 16:16:35

一整套数据库处理解决方案的Lisp源代码+示例

应用代码示例:
;;ADO应用示例 By Gu_xl
(defun c:adotest (/ dbfile *ConnectionObject* result SQLStatement)
(setq dbfile (getfiled "" "E:\\lisp\\一些Lisp函数\\ADO\\" "mdb" 4))
(if dbfile
    (progn
      ;;打开MDB数据库
      (setq *ConnectionObject*
       (ADO_ConnectToDB
         (strcat
   "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ="
   dbfile)
         "admin"
         "123456")
      )
      (if *ConnectionObject*
(progn
    ;;设置查询字串
    (setqSQLStatement
   "SELECT estName, estNameAlias, estAddrNo, estMapNo, estRoad, estDoorNo, estDiNo, estArea, PreEstAddress, remarks FROM Archives"
    )
    ;;数据库查询
      (setq result (ADO_DoSQL *ConnectionObject* SQLStatement))
    ;;显示查询结果
    (print result)
    ;;返回:
    ;; (("estName" "estNameAlias" "estAddrNo" "estMapNo" "estRoad" "estDoorNo" "estDiNo" "estArea" "PreEstAddress" "remarks")
    ;;("配套公建" "无" "朝阳区" "" "慈云寺1号院" "8号楼" "" 0.0 "无" ""))
    ;;修改数据库 estName 为 "配套公建1"
    (ADO_DoSQL *ConnectionObject* (strcat"UPDATE Archives SET estName = '配套公建1'"))
    ;;数据库查询
    (setq result (ADO_DoSQL *ConnectionObject* SQLStatement))
    ;;打印修改后结果
    (print result)
    ;;关闭数据库
    (ADO_DisconnectFromDB *ConnectionObject*)
    )
)
      )
    )
(princ)
)

示例数据库:
数据库处理Lisp源码:

liuyun242 发表于 2013-5-20 18:12:17

不错的代码，谢谢楼主分享

davide888 发表于 2013-5-22 08:36:56

支持         

huwb111 发表于 2013-5-22 11:19:54

Lisp源代码+示例的确不错，以前要的时候找不着，现在留着备用。

黑叶子 发表于 2013-5-22 16:53:37

虽然看不懂，但还是支持LZ的奉献精神

pengfei2010 发表于 2013-5-25 14:19:23

水平不行目前看不懂哦，哎菜鸟啊

GTJ116600 发表于 2013-5-27 17:03:53

牢固版主就是给力，先收藏着，慢慢研究

dnbcgrass 发表于 2013-5-30 20:24:54

谢谢分享，下来学习学习!:lol:lol

maiqi816 发表于 2013-5-31 15:44:32

下了好像不可以用

清风明月10 发表于 2013-6-20 18:48:57

不知道怎么用，数据库又加了密码，无从下手

lgttblue 发表于 2013-6-21 22:23:44

牢固版主太给力了，先收藏，慢慢学习:lol:lol

hzwwrrbb 发表于 2013-6-28 08:52:19

路过学习的，好久不弄了:)

GTJ116600 发表于 2013-7-9 11:52:14

牢固版主，用了一下，出现下面提示：
Command: adotest
; error: ActiveX Server returned an error: 无效的参数数目。
是什么原因呀。
说明一下：
我用的CAD是2004版；office是2003版

GTJ116600 发表于 2013-7-16 10:44:33

GTJ116600 发表于 2013-7-9 11:52
牢固版主，用了一下，出现下面提示：
Command: adotest
; error: ActiveX Server returned an error: 无 ...

自己顶一下，期待高手出来解决

lqynise 发表于 2014-6-18 09:08:04

请问楼主数据库密码多少啊？
页: [1] 2 3 4
查看完整版本: 一整套数据库处理解决方案的Lisp源代码+示例