[LISP程序]：一个困扰多日的问题。。。

lsjjm

一个困扰多日的问题。。。哪位能指点以下如何使用vlisp在Ms Access中添加新的记录？谢谢了！

xy2041103

cad2000以上直接可以联接数据库，直接可填加新记录，无需用vlisp填加

ahlzl

最初由 xy2041103 发布
[B]cad2000以上直接可以联接数据库，直接可填加新记录，无需用vlisp填加 [/B]

能否细说一下。谢谢！！！

eachy

工具－》数据库链接

xy2041103

字段不可填加，记录可以

lsjjm

谢谢楼上诸位, 请看清我的题目. 我当然知道可直接连接数据库, 但现在的问题是
如何用vlisp在Ms Access中添加新的记录?

灯火

1.如果要在Access打开的MDB文件中添加记录，使用Automation方法。

2.如果要对未打开的MDB文件进行数据库添加记录操作，使用ADO方法。

lsjjm

灯火先生,能否给个例子?

灯火

没有现成的例子。两种添加记录的方法有本质的不同，涉及到的问题比较多，最好先看看数据库方面资料，然后能够把VB/VBA/ASP的样例移植到Vlisp中。

lsjjm

灯火先生, 不客气得讲, 你这等于没说. 不过还是谢谢你两次恢复.

eachy

2. 
   
3. (defun c:CreateLT ()
   
4.   (vl-load-com)
   
5.   (setq pDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
6.   ;;get the DBConnect
   
7.   (setq        pDBObj (vla-GetInterfaceObject
   
8.                  (vlax-get-acad-object)
   
9.                  "CAO.dbConnect"
   
10.                )
    
11.   )
    
12.   (if (null pDBObj)
    
13.     (progn
    
14.       (alert "Cannot create CAO Automation server.")
    
15.       (exit)
    
16.     )
    
17.   )
    
18.   ;;get the linktemplates
    
19.   (setq pLTs (vlax-invoke-method pDBObj "GetLinkTemplates" pDoc))
    
20.   ;;prepare the keydescriptions
    
21.   (setq        pKeyDescs (vla-GetInterfaceObject
    
22.                     (vlax-get-acad-object)
    
23.                     "CAO.KeyDescriptions"
    
24.                   )
    
25.   )
    
26.   (vlax-invoke-method pKeyDescs "ADD" "TAG_NUMBER" 3 nil nil)
    
27.   (vlax-invoke-method
    
28.     pKeyDescs "ADD" "Manufacturer" 1 nil nil)
    
29.   ;;create two link templates
    
30.   (vlax-invoke-method
    
31.     pLTs            "ADD"            "jet_dbsamples" nil
    
32.     nil                    "COMPUTER"            "LTCreatedByVLispCAO"
    
33.     pKeyDescs
    
34.    )
    
35.   (vlax-invoke-method
    
36.     pLTs           "ADD"          "jet_dbsamples"
    
37.     nil                   nil                  "COMPUTER"         "LTtobeDeleted"
    
38.     pKeyDescs
    
39.    )
    
40.   ;;sample code to show how to delete the link template
    
41.   (vlax-invoke-method pLTs "delete" "LTtobeDeleted")
    
42. )
    

<br /> (defun c:CreateLT ()<br />   (vl-load-com)<br />   (setq pDoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   ;;get the DBConnect<br />   (setq        pDBObj (vla-GetInterfaceObject<br />                  (vlax-get-acad-object)<br />                  "CAO.dbConnect"<br />                )<br />   )<br />   (if (null pDBObj)<br />     (progn<br />       (alert "Cannot create CAO Automation server.")<br />       (exit)<br />     )<br />   )<br />   ;;get the linktemplates<br />   (setq pLTs (vlax-invoke-method pDBObj "GetLinkTemplates" pDoc))<br />   ;;prepare the keydescriptions<br />   (setq        pKeyDescs (vla-GetInterfaceObject<br />                     (vlax-get-acad-object)<br />                     "CAO.KeyDescriptions"<br />                   )<br />   )<br />   (vlax-invoke-method pKeyDescs "ADD" "TAG_NUMBER" 3 nil nil)<br />   (vlax-invoke-method<br />     pKeyDescs "ADD" "Manufacturer" 1 nil nil)<br />   ;;create two link templates<br />   (vlax-invoke-method<br />     pLTs            "ADD"            "jet_dbsamples" nil<br />     nil                    "COMPUTER"            "LTCreatedByVLispCAO"<br />     pKeyDescs<br />    )<br />   (vlax-invoke-method<br />     pLTs           "ADD"          "jet_dbsamples"<br />     nil                   nil                  "COMPUTER"         "LTtobeDeleted"<br />     pKeyDescs<br />    )<br />   ;;sample code to show how to delete the link template<br />   (vlax-invoke-method pLTs "delete" "LTtobeDeleted")<br /> )<br />

萧山

我还是有点麻木