社区 › AutoLISP/Visual LISP 编程技术 › [求助]lisp打开access文件

cjs 发表于 2008-7-12 21:55:00

[求助]lisp打开access文件

本帖最后由 作者 于 2008-7-14 11:31:32 编辑 <br /><br /> <p>大家帮我看看，为什么这句 (vlax-invoke-method&nbsp;&nbsp; acapp 'openCurrentDatabase "F:\\kkp.mdb" )</p><p>老是出错，</p><p>(if (equal nil ac-acadd)<br/>&nbsp;&nbsp;&nbsp; (vlax-import-type-library<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :tlb-filename&nbsp;tlbfile&nbsp;&nbsp;&nbsp; :methods-prefix&nbsp;&nbsp; "am-"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :properties-prefix&nbsp;&nbsp;&nbsp; "ap-"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :constants-prefix<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "ac-"<br/>&nbsp;&nbsp;&nbsp;&nbsp; ) ;_ 结束vlax-import-type-library<br/>&nbsp;;_ 结束vlax-import-type-library<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) ;_ 结束if</p><p>(setq acapp&nbsp;nil&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) ;_ 结束setq</p><p>(setq acapp (vlax-get-or-create-object "Access.Application")<br/>&nbsp;)<br/>&nbsp; (vla-put-visible acapp 1)</p><p>(vlax-invoke-method&nbsp;&nbsp; acapp 'openCurrentDatabase "F:\\kkp.mdb" )</p><p>;;(am-openCurrentDatabase acapp&nbsp;"F:\\kkp.mdb" )</p><p>用(am-openCurrentDatabase acapp&nbsp;"F:\\kkp.mdb" )会提示没有此函数</p><p></p><p></p>

cjs 发表于 2008-7-14 08:24:00

[求助]有没有支持cad2008的ObjectDCL？

在access vba里opencurrentdatabase就是直接在application下调用的，我觉得这么写不应该出错啊，调用其它的方法是可以的，唯独opencurrentdatabase和newcurrentdatabase不行，大家帮忙看看

查看完整版本: [求助]lisp打开access文件