dyancai 发表于 2005-5-20 10:32:00

怎样通过Autocad的VBA编程启动Access程序

怎样在AutoCAD的VBA编辑器中编程启动Access程序,并打开一个已经存在的Access文件,将其中的一个表设置为当前的表

O:-)ZN):-* 发表于 2005-5-20 13:06:00

我刚做了个东西，就是用Access做数据库，有没有原程序，看看。

丹雪 发表于 2005-5-20 17:26:00

不知道你说的用启动access 是什么意思,如果说是动态连接access 数据库的话,请尝试一下以下代码:


<BR>dim        strPath As String<BR>Dim adoCon As Connection                       '连接对象               


dim adors as recordset


        '必须首先获得当前的工程路径<BR>                       strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName<BR>                       <BR>                       '连接数据库<BR>                       Set adoCon = New Connection<BR>                       adoCon.CursorLocation = adUseClient<BR>                       adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; _<BR>                                                       Left(strPath, Len(strPath) - 8) &amp; "road.mdb;"<BR>                                                       <BR>                       <BR>                       Set adors= New Recordset<BR>                       adors.Open "Preferences", adoCon, adOpenDynamic, adLockOptimistic
页: [1]
查看完整版本: 怎样通过Autocad的VBA编程启动Access程序