autolisp如何操作mdb文件

netdragon16888

这里有一个test.mdb文件

求写一个lsp文件读写test.mdb文件，如果有什么需要安装的驱动也一并告之

我的系统是win7 安装office2010
然后我在论坛里找了一些代码，但是好像都提示数据连接失败什么的，或者差了什么要安装。

lijiao

https://www.microsoft.com/zh-cn/download/details.aspx?id=13255

yhly555

据lisp操作数据库非常困难，如果想操作数据库最好选择其他语言。

wzg356

我以前等帖子有，有函数及读写增删字段示例

lijiao

我用的是office2016,需要安装一个数据搜索引擎,可以到微软官网下载,至于lisp代码,论坛里面有现存的

netdragon16888

lijiao 发表于 2023-9-10 19:33
我用的是office2016,需要安装一个数据搜索引擎,可以到微软官网下载,至于lisp代码,论坛里面有现存的

能帮我找你说的那个数据搜索引擎吗？

netdragon16888

wzg356 发表于 2023-9-10 18:19
我以前等帖子有，有函数及读写增删字段示例

;打开数据库
;(DSQL_OPEN (getdb) "密码")
(defun DSQL_OPEN (ff kg / ConnectString)
        (if ff
                (progn
                        (setq ConnectString
                                (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                                        ff "Persist Security Info=False")
                        )
                        (ADOLISP_ConnectToDB ConnectString "admin" kg);密码权限
                )
        )
);对象 or nil，每一次打开要与一次关闭对应




(DSQL_OPEN (getdb) "密码")
这上面的代码，试了N次，都是返回nil

nxchenjk

首先加载 ADOLISP_Library.lsp （论坛里有）
(setq mdbfile (getfiled "" "d:\\" "mdb" 8))  ;设置数据库名称并打开数据库
(setq ConnectString(strcat " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" mdbfile "; Persist Security Info=False"))
(setq MdbFile_Object(ADOLISP_ConnectToDB ConnectString "admin" ""))
;;取得指点条件的一行内容
(setq Line_1(cadr(ADOLISP_DoSQL MdbFile_Object(strcat "SELECT * FROM  [DX_LINE] Where 起点点号 = 'DX77' and 连接方向 ='DX70'"))))   
;表CJK中写入内容
(ADOLISP_DoSQL MdbFile_Object(strcat "INSERT INTO " "CJK"  " VALUES  (" (rtos NewId 2 0)  ",'2e',3)" ";"))
(ADOLISP_DisconnectFromDB MdbFile_Object)  ;关闭数据库
(setq MdbFile_Object nil)                  ;释放内存