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

dyancai

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

O:-)ZN):-*

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

丹雪

不知道你说的用启动access 是什么意思,如果说是动态连接access 数据库的话,请尝试一下以下代码:
dim strPath As String
Dim adoCon As Connection '连接对象 dim adors as recordset '必须首先获得当前的工程路径
strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName

'连接数据库
Set adoCon = New Connection
adoCon.CursorLocation = adUseClient
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Left(strPath, Len(strPath) - 8) & "road.mdb;"


Set adors= New Recordset
adors.Open "Preferences", adoCon, adOpenDynamic, adLockOptimistic