hhg4 发表于 2005-3-30 17:35:00

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

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

xqyhome 发表于 2005-3-31 08:27:00

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