AutoCAD_LISP操作数据库方法.doc_vlispsqlite - CSDN文库

需积分: 43 62 浏览量更新于2023-03-16 评论 1 收藏 67KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

LISP 操作数据库

数据库, LISP

(defun DbInitADO ( / ADO_DLLPath)

(if (null adom-Append)

(progn

(setq ADO_DLLPath

(strcat (getenv "systemdrive")

"\Program Files\Common Files\System\Ado\")

)

;; 如果查找到类型库 ...

(if (findfile (strcat ADO_DLLPath "msado15.dll")) ;; 将其输入

(vlax-Import-Type-Library

:tlb-filename (strcat ADO_DLLPath "msado15.dll")

:methods-prefix "adom-"

:properties-prefix "adop-"

:constants-prefix "adok-"

)

;; 找不到时，则通知操作者

(alert (strcat "不能找到以下文件" ADO_DLLPath "msado15.dll"))

)

)

)

)

;生成 MS-Access 或 MS-SQL Server 数据库的连接字符串

;;;******************************************************************

;;; 使用 ODBC(不需要 DSN)连接 MS-Access 数据库

;;; 示例： (DbConnect_MSAccess1 "d:/dbfiles/products.mdb")

;;;******************************************************************

(defun DbConnect_MSAccess1 (dbFile)

(strcat

"Provider=MSDASQL;"

"Driver={Microsoft Access Driver (*.mdb)};"

"DBQ=" dbFile

)

)

;从内存中释放 VLA 对象

(defun MxRelease (xObject)

vlax-object-released-p

(if (not (vlax-object-released-p xObject))

(vlax-Release-Object xObject)

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余8页未读，立即下载

评论0

kkkic

粉丝: 0
资源: 8

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈