找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 11028|回复: 53

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

  [复制链接]

已领礼包: 344个

财富等级: 日进斗金

发表于 2013-5-20 16:16:35 | 显示全部楼层 |阅读模式

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

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

×
应用代码示例:
  1. ;;ADO应用示例 By Gu_xl
  2. (defun c:adotest (/ dbfile *ConnectionObject* result SQLStatement)
  3.   (setq dbfile (getfiled "" "E:\\lisp\\一些Lisp函数\\ADO\\" "mdb" 4))
  4.   (if dbfile
  5.     (progn
  6.       ;;打开MDB数据库
  7.       (setq *ConnectionObject*
  8.        (ADO_ConnectToDB
  9.          (strcat
  10.      "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ="
  11.      dbfile)
  12.          "admin"
  13.          "123456")
  14.       )
  15.       (if *ConnectionObject*
  16.   (progn
  17.     ;;设置查询字串
  18.     (setq  SQLStatement
  19.      "SELECT estName, estNameAlias, estAddrNo, estMapNo, estRoad, estDoorNo, estDiNo, estArea, PreEstAddress, remarks FROM Archives"
  20.     )
  21.     ;;数据库查询
  22.         (setq result (ADO_DoSQL *ConnectionObject* SQLStatement))
  23.     ;;显示查询结果
  24.     (print result)
  25.     ;;返回:
  26.     ;; (("estName" "estNameAlias" "estAddrNo" "estMapNo" "estRoad" "estDoorNo" "estDiNo" "estArea" "PreEstAddress" "remarks")
  27.     ;;  ("配套公建" "无" "朝阳区" "" "慈云寺1号院" "8号楼" "" 0.0 "无" ""))
  28.     ;;修改数据库 estName 为 "配套公建1"
  29.     (ADO_DoSQL *ConnectionObject* (strcat  "UPDATE Archives SET estName = '配套公建1'"))
  30.     ;;数据库查询
  31.     (setq result (ADO_DoSQL *ConnectionObject* SQLStatement))
  32.     ;;打印修改后结果
  33.     (print result)
  34.     ;;关闭数据库
  35.     (ADO_DisconnectFromDB *ConnectionObject*)
  36.     )
  37.   )
  38.       )
  39.     )
  40.   (princ)
  41.   )

示例数据库:
请点击此处下载

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

您的用户组是:游客

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


数据库处理Lisp源码:
请点击此处下载

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

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

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



评分

参与人数 2D豆 +15 贡献 +1 收起 理由
XDSoft + 10 + 1 很给力!经验;技术要点;资料分享奖!
Lispboy + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

本帖被以下淘专辑推荐:

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 3394个

财富等级: 富可敌国

发表于 2013-5-20 18:12:17 | 显示全部楼层
不错的代码,谢谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 32个

财富等级: 招财进宝

发表于 2013-5-22 08:36:56 | 显示全部楼层
支持         
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8866个

财富等级: 富甲天下

发表于 2013-5-22 11:19:54 | 显示全部楼层
Lisp源代码+示例的确不错,以前要的时候找不着,现在留着备用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-22 16:53:37 | 显示全部楼层
虽然看不懂,但还是支持LZ的奉献精神
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3255个

财富等级: 富可敌国

发表于 2013-5-25 14:19:23 | 显示全部楼层
水平不行  目前看不懂哦,哎  菜鸟啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-27 17:03:53 | 显示全部楼层
牢固版主就是给力,先收藏着,慢慢研究
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3701个

财富等级: 富可敌国

发表于 2013-5-30 20:24:54 | 显示全部楼层
谢谢分享,下来学习学习!:lol:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-31 15:44:32 | 显示全部楼层
下了好像不可以用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-20 18:48:57 | 显示全部楼层
不知道怎么用,数据库又加了密码,无从下手
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 35个

财富等级: 招财进宝

发表于 2013-6-21 22:23:44 | 显示全部楼层
牢固版主太给力了,先收藏,慢慢学习:lol:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-28 08:52:19 | 显示全部楼层
路过学习的,好久不弄了:)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-7-9 11:52:14 | 显示全部楼层
牢固版主,用了一下,出现下面提示:
Command: adotest
; error: ActiveX Server returned an error: 无效的参数数目。
是什么原因呀。
说明一下:
我用的CAD是2004版;office是2003版

点评

自己顶一下,期待高手出来解决  详情 回复 发表于 2013-7-16 10:44
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-7-16 10:44:33 | 显示全部楼层
GTJ116600 发表于 2013-7-9 11:52
牢固版主,用了一下,出现下面提示:
Command: adotest
; error: ActiveX Server returned an error: 无 ...

自己顶一下,期待高手出来解决
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-6-18 09:08:04 | 显示全部楼层
请问楼主数据库密码多少啊?

点评

源码里写着呢!‘123456’  详情 回复 发表于 2014-6-18 13:11
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 16:00 , Processed in 0.463437 second(s), 73 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表