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

Tiptoe

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

efan2000

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

' 打开连接
    cnn.ConnectionString = "rovider=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

我今天可以说一直在网上等你的消息阿，万分感谢！不知道怎么感谢！