SQLite数据库函数应用（一）对表任一列为索引排升（降）序

newer

1. (defun c:tt ()
   
2.   (defun chkerr        (cmd)
   
3.     (if        (not cmd)
   
4.       (progn
   
5.         (princ (xdrx-sqlite-lasterr))
   
6.         nil
   
7.       )
   
8.       t
   
9.     )
   
10.   )
    
11.   (setq lst nil)
    
12.   (repeat 10
    
13.     (setq r   (xdrx-math-rand 0 255)
    
14.           r1  (xdrx-math-rand 1.0 255.0)
    
15.           s   (xdrx-string-rand 3)
    
16.           lst (cons (list r s r1) lst)
    
17.     )
    
18.   )
    
19.   (xdrx-prompt "lst=" (vl-prin1-to-string lst))
    
20.   (setq db "d:\\test.db")
    
21.   (if (findfile db)
    
22.     (xdrx-file-delete db)
    
23.   )
    
24.   (chkerr (xdrx-sqlite-open db))
    
25.   (chkerr
    
26.     (xdrx-sqlite-dml
    
27.       db
    
28.       "create table mytable (num int, string char(64),float real);"
    
29.     )
    
30.   )
    
31.   (setq i 0)
    
32.   (mapcar '(lambda (x)
    
33.              (chkerr (xdrx-sqlite-dml
    
34.                        db
    
35.                        (setq lxd (strcat "insert into mytable values ("
    
36.                                          (itoa (car x))
    
37.                                          ",'"
    
38.                                          (cadr x)
    
39.                                          "',"
    
40.                                          (rtos (last x) 2 2)
    
41.                                          ");"
    
42.                                  )
    
43.                        )
    
44.                      )
    
45.              )
    
46.            )
    
47.           lst
    
48.   )
    
49.   (setq        lst1 (xdrx-sqlite-query
    
50.                db
    
51.                "select * from mytable order by string;"
    
52.              )
    
53.   )
    
54.   (xdrx-prompt "\nlst1=" (vl-prin1-to-string (cdr lst1)))
    
55.    (setq        lst2 (xdrx-sqlite-query
    
56.                db
    
57.                "select * from mytable order by float desc;"
    
58.              )
    
59.   )
    
60.   (xdrx-prompt "\nlst2=" (vl-prin1-to-string (cdr lst2)))
    
61.   (chkerr (xdrx-sqlite-close db))
    
62.   (princ)
    
63. )
    
64. 
    

(defun c:tt ()<br />   (defun chkerr        (cmd)<br />     (if        (not cmd)<br />       (progn<br />         (princ (xdrx-sqlite-lasterr))<br />         nil<br />       )<br />       t<br />     )<br />   )<br />   (setq lst nil)<br />   (repeat 10<br />     (setq r   (xdrx-math-rand 0 255)<br />           r1  (xdrx-math-rand 1.0 255.0)<br />           s   (xdrx-string-rand 3)<br />           lst (cons (list r s r1) lst)<br />     )<br />   )<br />   (xdrx-prompt "lst=" (vl-prin1-to-string lst))<br />   (setq db "d:\\test.db")<br />   (if (findfile db)<br />     (xdrx-file-delete db)<br />   )<br />   (chkerr (xdrx-sqlite-open db))<br />   (chkerr<br />     (xdrx-sqlite-dml<br />       db<br />       "create table mytable (num int, string char(64),float real);"<br />     )<br />   )<br />   (setq i 0)<br />   (mapcar '(lambda (x)<br />              (chkerr (xdrx-sqlite-dml<br />                        db<br />                        (setq lxd (strcat "insert into mytable values ("<br />                                          (itoa (car x))<br />                                          ",'"<br />                                          (cadr x)<br />                                          "',"<br />                                          (rtos (last x) 2 2)<br />                                          ");"<br />                                  )<br />                        )<br />                      )<br />              )<br />            )<br />           lst<br />   )<br />   (setq        lst1 (xdrx-sqlite-query<br />                db<br />                "select * from mytable order by string;"<br />              )<br />   )<br />   (xdrx-prompt "\nlst1=" (vl-prin1-to-string (cdr lst1)))<br />    (setq        lst2 (xdrx-sqlite-query<br />                db<br />                "select * from mytable order by float desc;"<br />              )<br />   )<br />   (xdrx-prompt "\nlst2=" (vl-prin1-to-string (cdr lst2)))<br />   (chkerr (xdrx-sqlite-close db))<br />   (princ)<br /> )<br /> <br />

原随机表：
lst=
((99 "DTU" 118.605) (148 "AVB" 250.888) (118 "15A" 6.60631) (181 "63Q" 4.60972) (205 "QUK" 65.0506) (221 "F7X" 84.9369) (15 "E6H" 56.9618) (241 "PBW" 196.656) (227 "ZU7" 208.845) (170 "9L0" 160.584))


对第二列字符串排升序

SQL查询语句："select * from mytable order by string;"

lst1=
((118 "15A" 6.61) (181 "63Q" 4.61) (170 "9L0" 160.58) (148 "AVB" 250.89) (99 "DTU" 118.6) (15 "E6H" 56.96) (221 "F7X" 84.94) (241 "PBW" 196.66) (205 "QUK" 65.05) (227 "ZU7" 208.85))

对第三列浮点数排降序


SQL查询语句： "select * from mytable order by float desc;"


lst2=
((148 "AVB" 250.89) (227 "ZU7" 208.85) (241 "PBW" 196.66) (170 "9L0" 160.58) (99 "DTU" 118.6) (221 "F7X" 84.94) (205 "QUK" 65.05) (15 "E6H" 56.96) (118 "15A" 6.61) (181 "63Q" 4.61))