ReadSQL with a/vlisp

iLisp

2. 
   
3. ;;____________________________________________________;;
   
4. (defun C:SQ (/ adocmd ADOConn adorst data field fields n sqlQuery tmp)
   
5.   (vl-load-com)
   
6.   (setq        ADOConn        (vlax-create-object "ADODB.Connection")
   
7.         ADORst        (vlax-create-object "ADODB.Recordset")
   
8.   )
   
9.   (vlax-invoke-method
   
10.     ADOConn
    
11.     'Open ;|SqlAutoCAD is database name|;
    
12.     ;; may use Data Source=ServerName\\SQLEXPRESS; instead :
    
13.     "Provider=SQLOLEDB.1;Data Source=.\\SQLEXPRESS;Initial Catalog=SqlAutoCAD;Integrated Security=SSPI"
    
14.     nil
    
15.     ""
    
16.     -1
    
17.    )
    
18.   ;|Blocks is table name|;
    
19.   ;; enclose table name and field name in squared brakets:
    
20.   (setq sqlQuery "SELECT * FROM [Blocks] WHERE [Hdl] IS NOT NULL")
    
21.   ;;[Hdl] is primary key, string (handle of block), see picture
    
22.   (setq ADOcmd (vlax-create-object "ADODB.command"))
    
23.   (vlax-put-property ADOcmd "ActiveConnection" ADOConn)
    
24.   ;; (vlax-put-property cmd2 "CommandTimeout" 30); optional
    
25.   (vlax-put-property ADOcmd "CommandText" sqlQuery)
    
26.   (vlax-put-property ADOcmd "CommandType" 1)
    
27. 
    
28.   (setq        ADORst (vl-catch-all-apply
    
29.                  'vlax-invoke-method
    
30.                  (list ADOcmd 'Execute nil 2 1)
    
31.                )
    
32.   )                                        ;OK
    
33. 
    
34.   (setq fields (vlax-get-property ADORst 'Fields))
    
35.   (vl-catch-all-apply
    
36.     'vlax-invoke-method
    
37.     (list ADORst 'movefirst)
    
38.   )
    
39.   (while (not (equal :vlax-true (vlax-get-property ADORst 'eof)))
    
40.     (setq tmp nil
    
41.           n   0
    
42.     )
    
43.     (while (not        (vl-catch-all-error-p
    
44.                   (vl-catch-all-apply
    
45.                     'vlax-get-property
    
46.                     (list fields 'item n)
    
47.                   )
    
48.                 )
    
49.            )
    
50. 
    
51.       (setq field (vlax-variant-value
    
52.                     (vlax-get-property
    
53.                       (vlax-get-property fields 'item n)
    
54.                       'value
    
55.                     )
    
56.                   )
    
57.       )
    
58.       (setq tmp (cons field tmp))
    
59.       (setq n (1+ n))
    
60.     )
    
61.     (setq data (append data (list (reverse tmp))))
    
62.     (vl-catch-all-apply
    
63.       'vlax-invoke-method
    
64.       (list ADORst 'movenext)
    
65.     )
    
66.   )
    
67.   ;; use garbage cleaner before of the closing connection:
    
68.   (gc)
    
69. 
    
70.   (vlax-invoke-method ADOConn 'Close)
    
71.   (vlax-release-object ADORst)
    
72.   (vlax-release-object ADOcmd)
    
73.   (vlax-release-object ADOConn)
    
74.   (alert (vl-princ-to-string data))
    
75.   ;; must use (vl-string-trim " " strvalue) for string values within the data list
    
76.   ;; ---   next your job here   ---  ;;
    
77.   (princ)
    
78. )

<br /> ;;____________________________________________________;;<br /> (defun C:SQ (/ adocmd ADOConn adorst data field fields n sqlQuery tmp)<br />   (vl-load-com)<br />   (setq        ADOConn        (vlax-create-object "ADODB.Connection")<br />         ADORst        (vlax-create-object "ADODB.Recordset")<br />   )<br />   (vlax-invoke-method<br />     ADOConn<br />     'Open ;|SqlAutoCAD is database name|;<br />     ;; may use Data Source=ServerName\\SQLEXPRESS; instead :<br />     "Provider=SQLOLEDB.1;Data Source=.\\SQLEXPRESS;Initial Catalog=SqlAutoCAD;Integrated Security=SSPI"<br />     nil<br />     ""<br />     -1<br />    )<br />   ;|Blocks is table name|;<br />   ;; enclose table name and field name in squared brakets: <br />   (setq sqlQuery "SELECT * FROM [Blocks] WHERE [Hdl] IS NOT NULL")<br />   ;;[Hdl] is primary key, string (handle of block), see picture<br />   (setq ADOcmd (vlax-create-object "ADODB.command"))<br />   (vlax-put-property ADOcmd "ActiveConnection" ADOConn)<br />   ;; (vlax-put-property cmd2 "CommandTimeout" 30); optional<br />   (vlax-put-property ADOcmd "CommandText" sqlQuery)<br />   (vlax-put-property ADOcmd "CommandType" 1)<br /> <br />   (setq        ADORst (vl-catch-all-apply<br />                  'vlax-invoke-method<br />                  (list ADOcmd 'Execute nil 2 1)<br />                )<br />   )                                        ;OK<br /> <br />   (setq fields (vlax-get-property ADORst 'Fields))<br />   (vl-catch-all-apply<br />     'vlax-invoke-method<br />     (list ADORst 'movefirst)<br />   )<br />   (while (not (equal :vlax-true (vlax-get-property ADORst 'eof)))<br />     (setq tmp nil<br />           n   0<br />     )<br />     (while (not        (vl-catch-all-error-p<br />                   (vl-catch-all-apply<br />                     'vlax-get-property<br />                     (list fields 'item n)<br />                   )<br />                 )<br />            )<br /> <br />       (setq field (vlax-variant-value<br />                     (vlax-get-property<br />                       (vlax-get-property fields 'item n)<br />                       'value<br />                     )<br />                   )<br />       )<br />       (setq tmp (cons field tmp))<br />       (setq n (1+ n))<br />     )<br />     (setq data (append data (list (reverse tmp))))<br />     (vl-catch-all-apply<br />       'vlax-invoke-method<br />       (list ADORst 'movenext)<br />     )<br />   )<br />   ;; use garbage cleaner before of the closing connection: <br />   (gc)<br /> <br />   (vlax-invoke-method ADOConn 'Close)<br />   (vlax-release-object ADORst)<br />   (vlax-release-object ADOcmd)<br />   (vlax-release-object ADOConn)<br />   (alert (vl-princ-to-string data))<br />   ;; must use (vl-string-trim " " strvalue) for string values within the data list<br />   ;; ---   next your job here   ---  ;;<br />   (princ)<br /> )

dnbcgrass

回复学学习

HLCAD

百度了一下SQL,但不得要领，楼主能简单介绍一下吗

WhoCanSay

这个不错，值得收藏

kqqt6236

建议加精  

8142556

堪称经典，不错