lisp通过调用arx实现sqlite数据库的操作方法

dcl1214

sqlite是一个非常强大的数据库单文件，lisp通过读写sqlite可以让lisp的运行效率提升300%--600%不等，由于很多朋友不知道如何以最简单的方法快速入门，在此，我整理相关方法说明分享给大家

附件是2007cad的专用arx，我提供从2007--2020的所有版本arx，如果有需要可以私聊我

1. (SETQ DB "C:\\Changli_harness_software\\SERVER\\ZXCAD.DB")
   
2. (DSQL_OPEN DB)                                ;开启数据库
   
3. (DSQL_QUERY
   
4.   DB
   
5.   "SELECT * FROM 连接器 where `编码` like '%28208%';"
   
6. )                                        ;矩阵模式返回
   
7. (DSQL_ASSOCQUERY
   
8.   DB
   
9.   "SELECT * FROM 连接器 where `编码` like '%28208%';"
   
10. )                                        ;点表模式返回
    
11. 
    
12. (DSQL_DML
    
13.   DB
    
14.   "insert into 连接器 (`名称`,`编码`,`供方编码`,`供应商`,`规格`,`间距`,`孔位数`)VALUES('连接器','282080-1a','','秦始皇','五大三粗','心广体胖','有眼睛和鼻子')"
    
15. )                                        ;往数据库写入数据
    
16. (DSQL_DML
    
17.   DB
    
18.   "create table 秦始皇(No int, Num1 int, Num2 float, Name char(64));"
    
19. )                                        ;往数据库添加一个新的表单
    
20. 
    
21. (DSQL_SCALAR DB "select count(*) from 连接器;")
    
22.                                         ;查询指定表单里面有多少条数据
    
23. (DSQL_SCALARSTR DB "select count(*) from 连接器;")
    
24.                                         ;以字串的返回模式查询数据库指定表单有多少条数据
    
25. (progn
    
26.   (setq I 0)
    
27.   (DSQL_DML
    
28.     DB
    
29.     "create table Test2(No int, Num1 int, Num2 float, Name char(64));"
    
30.   )
    
31.   (DSQL_DML DB "begin transaction;")        ;开始
    
32.   (DSQL_CMPSTMT DB "insert into Test2 values (?, ?, ?, ?);") ;事务
    
33.   (REPEAT 100
    
34.     (DSQL_STMTBIND (SETQ I (1+ I)) 87 12.012 "有你真好！")
    
35.   )
    
36.   (DSQL_DML DB "commit transaction;")        ;事务提交
    
37.   (DSQL_STMTFNL)                        ;清除编译
    
38. )
    
39.                                         ;事务法提交数据（速度很快）
    
40. 
    
41. 
    
42. (DSQL_LASTERR)                                ;查看错误
    
43. 
    
44. (DSQL_CLOSEALL t)                        ;关闭所有数据库链接，传入T清除缓存
    
45. 
    
46. (DSQL_VER)                                ;版本号
    
47. (DSQL_SQLITEVER)                        ;已经开启的sqlite数据库版本号
    
48. 
    
49. (DSQL_PRINTF "-%X-" 16777215)                ;似乎用的很少
    
50. (DSQL_PRINTFX "(%d,%X)" 16777215)        ;似乎用的很少
    
51. (DSQL_GETFORMAT 1 3.14 "Hello")                ;DSQL_GETFORMAT函数主要是构建DSQL_PRINTF函数需要的字串
    
52. (DSQL_GETFORMATX (ENTGET (CAR (ENTSEL))))
    
53.                                         ;DSQL_GETFORMATX函数主要是构建DSQL_PRINTFX函数需要的字串
    
54. (DSQL_LOADEXT "c:\\MySQLite.ext")        ;扩展文件，没有用过
    
55. (DSQL_DUMPERR)                                ;列出所有错误
    
56. (DSQL_KEYWORDS)                                ;列出sqlite数据库支持了哪些函数
    
57. (DSQL_FUNCLIST)                                ;本人提供的arx支持了哪些函数
    
58. 
    

(SETQ DB "C:\\Changli_harness_software\\SERVER\\ZXCAD.DB")<br /> (DSQL_OPEN DB)                                ;开启数据库<br /> (DSQL_QUERY<br />   DB<br />   "SELECT * FROM 连接器 where `编码` like '%28208%';"<br /> )                                        ;矩阵模式返回<br /> (DSQL_ASSOCQUERY<br />   DB<br />   "SELECT * FROM 连接器 where `编码` like '%28208%';"<br /> )                                        ;点表模式返回<br /> <br /> (DSQL_DML<br />   DB<br />   "insert into 连接器 (`名称`,`编码`,`供方编码`,`供应商`,`规格`,`间距`,`孔位数`)VALUES('连接器','282080-1a','','秦始皇','五大三粗','心广体胖','有眼睛和鼻子')"<br /> )                                        ;往数据库写入数据<br /> (DSQL_DML<br />   DB<br />   "create table 秦始皇(No int, Num1 int, Num2 float, Name char(64));"<br /> )                                        ;往数据库添加一个新的表单<br /> <br /> (DSQL_SCALAR DB "select count(*) from 连接器;")<br />                                         ;查询指定表单里面有多少条数据<br /> (DSQL_SCALARSTR DB "select count(*) from 连接器;")<br />                                         ;以字串的返回模式查询数据库指定表单有多少条数据<br /> (progn<br />   (setq I 0)<br />   (DSQL_DML<br />     DB<br />     "create table Test2(No int, Num1 int, Num2 float, Name char(64));"<br />   )<br />   (DSQL_DML DB "begin transaction;")        ;开始<br />   (DSQL_CMPSTMT DB "insert into Test2 values (?, ?, ?, ?);") ;事务<br />   (REPEAT 100<br />     (DSQL_STMTBIND (SETQ I (1+ I)) 87 12.012 "有你真好！")<br />   )<br />   (DSQL_DML DB "commit transaction;")        ;事务提交<br />   (DSQL_STMTFNL)                        ;清除编译<br /> )<br />                                         ;事务法提交数据（速度很快）<br /> <br /> <br /> (DSQL_LASTERR)                                ;查看错误<br /> <br /> (DSQL_CLOSEALL t)                        ;关闭所有数据库链接，传入T清除缓存<br /> <br /> (DSQL_VER)                                ;版本号<br /> (DSQL_SQLITEVER)                        ;已经开启的sqlite数据库版本号<br /> <br /> (DSQL_PRINTF "-%X-" 16777215)                ;似乎用的很少<br /> (DSQL_PRINTFX "(%d,%X)" 16777215)        ;似乎用的很少<br /> (DSQL_GETFORMAT 1 3.14 "Hello")                ;DSQL_GETFORMAT函数主要是构建DSQL_PRINTF函数需要的字串<br /> (DSQL_GETFORMATX (ENTGET (CAR (ENTSEL))))<br />                                         ;DSQL_GETFORMATX函数主要是构建DSQL_PRINTFX函数需要的字串<br /> (DSQL_LOADEXT "c:\\MySQLite.ext")        ;扩展文件，没有用过<br /> (DSQL_DUMPERR)                                ;列出所有错误<br /> (DSQL_KEYWORDS)                                ;列出sqlite数据库支持了哪些函数<br /> (DSQL_FUNCLIST)                                ;本人提供的arx支持了哪些函数<br /> <br />

huangpc27

好资料，非常感谢！

老仓测绘上班记

好资料，非常感谢

xx69as

我需要，想研究哈，怎么联系你，我邮箱10902926@QQ.COM

dcl1214

xx69as 发表于 2021-3-14 11:31
我需要，想研究哈，怎么联系你，我邮箱

发你邮箱了

收到法国大使馆

您好！杜总，最近也在看sqlite希望分享一下！邮箱52616493@qq.com

279491611

感谢分享，学习一下怎么提高lisp运行效率！

dcl1214

收到法国大使馆 发表于 2021-6-16 10:56
您好！杜总，最近也在看sqlite希望分享一下！邮箱

已经发送到您的邮箱了，建议看go的帖子，arx版本 太多了

csy0415

您好！最近也在研究sqlite希望分享一下！邮箱394098832@qq.com

zteykmgscqh

好东西，先收藏一下，以后有机会再研究

yingwuluo

好！最近也在研究sqlite希望分享一下！邮箱147747301@qq.com

dcl1214

csy0415 发表于 2021-7-17 16:31
您好！最近也在研究sqlite希望分享一下！邮箱

已经发您邮箱了

dcl1214

yingwuluo 发表于 2021-9-9 17:15
好！最近也在研究sqlite希望分享一下！邮箱

已经发送到您邮箱了

mengxiehua

可以发我一份吗？邮箱123534190@qq.com。
（DSQL_DML  DB   "insert into ……这个我试了不成功。