|
|
如果将光盘中的数据记录和实体的对应.dvb文件，换个目录和mdb文件出现如下问题。
tnlgdqa4ihe.jpg
我分析出现的问题是VBE的问题。
翻译VBE的特性
This property allows you to access the VBA IDE object model from AutoCAD's object model. The property will throw an exception if the VBAIDE is not available. For example, the VBAIDE is not available if the acvba.arx app has not been loaded.
这个特性允许存取VBA IDE实体模式从AuotCAD实体模型中，.....，如果VBAID没有装载acvba.arx app, VBAIDE不可用。
因此，我认为出现图示问题是VBAID没有装载acvba.arx，如何解？
Public Function OpenDB() As Boolean
OpenDB = True
' 如果数据库已打开，不执行任何操作
If adoCon.State 0 Then Exit Function
adoCon.CursorLocation = adUseClient
' 获得数据库文件的位置
Dim strDbName As String
Dim strProject As String
'出问题的语句
strProject = Left(ThisDrawing.Application.VBE.activevbProject.FileName, _
Len(ThisDrawing.Application.VBE.activevbProject.FileName) - 21)
strDbName = strProject & "sample.mdb"
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
strDbName & ";"
End Function
|
|
置顶卡
