急求~~高手进~~

gifttang66

如何将VBA（cad）连接上access啊 ~~
高手进~~
小弟新手~~
急~~
谢谢
万分感谢~~~

zhihaoli_bj

不妨参考如下代码：
    Dim Cn As New Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\XRCAD\DB\XRCAD.mdb" & "ersist Security Info=False;Jet OLEDB:Database Password="123"

    ...

jsf1117

你可以用DAO

gifttang66

请问下~~dao的具体方法是怎么用的啊

azjmjsj

Private Sub CommandButton1_Click()
Dim i As Integer
Dim lineobj As Object
Dim startpoint(0 To 2) As Double
Dim endpoint(0 To 2) As Double
Dim wk As DAO.Workspace
Dim db As DAO.Database
Dim rec As DAO.Recordset

Set wk = CreateWorkspace("wk", "Admin", "", dbUseJet)
Set db = wk.OpenDatabase(ThisDrawing.Application.Path & "\1.mdb", , ",")
Dim strsql As String
strsql = "select * from points"
Set rec = db.OpenRecordset(strsql)

rec.MoveFirst
Do While Not rec.EOF
        startpoint(0) = rec.Fields("x1")
        startpoint(1) = rec.Fields("y1")
        startpoint(2) = 0
        endpoint(0) = rec.Fields("x2")
        endpoint(1) = rec.Fields("y2")
        endpoint(2) = 0      
        Set lineobj = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint)
        rec.MoveNext
Loop
rec.Close
db.Close
wk.Close
Unload Me
End Sub