用VLISP如何引用DAO,并创建一数据库MYDB.MDB?

南子

如何引用DAO,并创建一数据库MYDB.MDB?

zjlszw

;新建mdb文件
;(setq ffid "D:\\test.mdb") (zw-mdb-NewFile ffid)
(defun zw-mdb-NewFile (ffid / mdbobject)
        (setq mdbobject
                (Vlax-Invoke
                        (Vlax-Get-Or-Create-Object "ADOX.Catalog" )
                        'Create
                        (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ffid)
                )               
        )
        ;;关闭文件
        (vlax-Invoke mdbobject "Close")
)