[求助]：ＶＢ与ＣＡＤ的二次开发

hhg4

我现在做一些关于ＣＡＤ的二次开发的问题，对于数据库的建立和与ＣＡＤ的接口方面有一些困难，打算用ＶＢ６．０进行建库，还没有具体的方按，对于ＶＢ是否可行，是否很方便也不是很清楚．能否就这方面的问题给一些建议．

xqyhome

'Access数据库名---lcjh.mdb
'数据表名----cp1
'在字段xh中查找序号0100，找到后读取第2列的字符赋给变量jian
Dim c As New ADODB.Connection
Dim R As ADODB.Recordset
Dim jian As String
c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\lcjh.mdbersist Security Info=False"
c.CursorLocation = adUseClient
c.Open
Set R = c.Execute("Select * from cp1 where xh='" & "0100" & "'")
If R.RecordCount > 0 Then
jian = R.Fields(1).Value
End If
R.Close
c.Close
Set c = Nothing
Set R = Nothing
End Sub
'我用VB6.0开发了几个AutoCAD参数化绘图的程序，还有从Excel中读取数据画图的程序，如需要帮忙或合作的话，请联系。lqh0601@jy-bearing.com