lisp连接mysql_lisp语句操作ACCESS数据库的例子

lisp语句操作ACCESS数据库的例子

;(setq con (tls-ado-opencon (strcat (vla-get-path

(vlax-get-acad-object)) "/tlscad/bin/house.mdb")))

;(tls-ado-runtrans con "insert into houseinfo

values(´1´,´2´,´0001´,67,´zh´,23,´lzh´,4,´´)")

;(setq rs (tls-ado-openrs con "select * from houseinfo order by

place,name,hid"))

;(tls-ado-fields->list rs)

;(tls-ado-movefirst rs)

;(tls-ado-movenext rs)

;(vla-close rs)

;(vla-close con)

(defun tls-ado-opencon(filename / con connectionstring)

(setq con (vlax-create-object "ADODB.Connection"))

(setq

connectionstring

(strcat

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

filename

";Persist Security Info=False"

)

)

(vla-open con connectionstring "" "" -1)

con<