用VLISP如何引用DAO,并创建一数据库MYDB.MDB?
如何引用DAO,并创建一数据库MYDB.MDB? ;新建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")
)
页:
[1]