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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

应用代码示例:

;;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
;;设置查询字串
(setq SQLStatement
"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)
)

;;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 
    ;;设置查询字串 
    (setq  SQLStatement 
     "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) 
  )

示例数据库:

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:db.rar
下载次数:395 文件大小:65.8 KB
下载权限: 学生以上 [免费赚D豆]

数据库处理Lisp源码:

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:ADO.rar
下载次数:321 文件大小:10.93 KB 售价:5D豆 [记录]
下载权限: 学生以上 [免费赚D豆]

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

请问楼主数据库密码多少啊？

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

本帖被以下淘专辑推荐:

相关帖子

点评

点评

账号		自动登录	找回密码
密码			立即注册