[LISP]请教如何用LISP读写Access数据库

xxsheng

http://www.mjtd.com/a2/list.asp?id=349

tangsong33

(setq SqlString "select 点号,横坐标,纵坐标,井盖高 from pspoint")
在这里还有没有其它的方法啊，我们的老师叫我不要用这种方法，用另一种。

wpj1973

thks,顶

gufeng

找这个Vlisp连接MDB的找了很久了

qin

我还是不知道如何向数据库中指定表格写入数据啊？能否指点？我很想交这方面的朋友，如何联系?

clh521

求助：lisp如何读取excel表格的最后一行的第一列的数据，读取之后进行修改，然后又如何将其追加到excel表格的尾部？

bridgewind

感谢感谢，是不是读写excel类似？

aicr317

我还是不知道如何向数据库中指定表格写入数据啊？能否指点？我很想交这方面的朋友，如何联系?

aicr317

_{请教，如何在SQL中使用LISP指定的变量}

_{(setq ss (itoa (fix(getvar "cdate"))))
(setq a (substr ss 1 4))
(setq b (substr ss 5 2))
(setq c (substr ss 7))
(SETQ XXX (strcat a b c));;;;;;; 如指定了变量为：XXX}

_{在使用(setq SqlString "insert into aaa(项目,时间,任务) VALUES(xxx,66,77)")出错，请教这句应该如何实现！如何在此处使用变量XXX}

hanyanyu2007

定了，牛贴，精华啊；我也上传个

;;;程序设计：杜存良
;;;设计日期：2009年03月28日夜
;;;批量打印程序，图面图框是A3，A4,A6 的图块。能够一次打印
;;;全部图面，

(defun C:Apt
       (/ asnap os obj n nu c0 tb ty x1 t1 p1 x y y1 na va ch ch1)
  (setvar "CMDECHO" 0)
  (command "ucs" "w")
  (setq asnap (getvar "autosnap")
 os    (getvar "osmode")
  )
  (setvar "autosnap" 5)
  (setvar "osmode" 0)
  (prompt "PLEASE SELECT NEED PRINT DRAWING:")
     ;选择需要打印的图框【可以复选】
  (SETQ obj (ssget '(
       (-4 . "<or")
       (2 . "A3")
       (2 . "A4")
       (2 . "A6")
       (-4 . "or>")
      )
     )
  )     ;用关系选择你要打印的图面
  (setq n  0    ;计数指针
 nu (sslength obj)
  )     ;选择的图面的个数
  (setq ch1 (itoa nu))
  (setq ch1 (strcat "\n Are you sure Print " ch1 " page?<Y/N>"))
  (print ch1)
  (setq ch (strcase (getstring)))
  (if (= ch "")
    (setq ch "Y")
  )
  (if (= ch "N")
    (progn
      (princ "作业被取消!!!谢谢!!!")
    )
  )
  (if (= ch "Y")
    (progn
      (while (< n nu)
 (setq c0 (ssname obj n)
       n  (+ n 1)
       tb (entget c0)
       ty (cdr (assoc 0 tb)) ;get the type of the object
       x1 (cdr (assoc 41 tb)) ;get the scale of block
       t1 (strcase (cdr (assoc 2 tb))) ;get the name of block
       p1 (cdr (assoc 10 tb))
 )    ;end setq
 (if (or (= t1 "A3") (= t1 "A4") (= t1 "A6"))
   (progn
     (setq x  (+ (car p1) (* x1 405))
    y  (+ (cadr p1) (* x1 287))
    p2 (list x y)
     )    ;下面是打印程序，如果是网络打印机则为"\\\\zbyrdftp\\print name"
     (command "plot"    "y"  "model"   "HP 2500C Series PS3"
       ;;
       "A4"      "M"  "L"    "N"      "w"
       p1        p2  "F"    ""      "Y"
       "acad.ctb"   "Y"    "N"      "N"
       "N"       "Y"
      )
   )    ;end progn
   (princ "Error in select object!!!,please select the object!"
   )
 )    ;end if
      )     ;end while
      (princ "\n")
      (setq count (itoa nu))
      (setq count (strcat "\n 共" count "张图面打印ok!!!谢谢使用!"))
    )     ;end progn
  )     ;end if
  (setvar "cmdecho" 1)
  (setvar "autosnap" asnap)
  (setvar "osmode" os)
  (princ)
)
有些地方可以根据具体情况更改为自己的程序