Tiptoe 发表于 2003-5-24 12:53:00

[求助]请版主给一段代码

我想从acess中的数据库中调出数据来绘图，请版主给一个代码来学习

efan2000 发表于 2003-5-24 23:09:00

使用AD读取数据库的数据，然后使用AutoCAD的VBA绘制图形。

本帖最后由 efan2000 于 2003-5-24 23:09:28 编辑

Public Sub Example_ADO()
    Dim cnn As ADODB.Connection
    Set cnn = New ADODB.Connection

' 打开连接
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\MyDb.mdb;"
    cnn.Open

    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

' 打开表
    rst.Open "employee", cnn, adOpenKeyset, adLockOptimistic, adCmdTable

    Dim plineObj As AcadLWPolyline
    Dim points(0 To 5) As Double
   
    Do While Not rst.EOF
' 定义二维多段线的点
      points(0) = rst.Fields(0).Value: points(1) = rst.Fields(1).Value
      points(2) = rst.Fields(2).Value: points(3) = rst.Fields(3).Value
      points(4) = rst.Fields(4).Value: points(5) = rst.Fields(5).Value
   
' 在模型空间中创建一个优化多段线对象
      Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    Loop
    rst.Close
    cnn.Close
End Sub

Tiptoe 发表于 2003-5-25 01:16:00

谢谢efan2k

我今天可以说一直在网上等你的消息阿，万分感谢！不知道怎么感谢！
页: [1]
查看完整版本: [求助]请版主给一段代码