vba 怎么才能连接数据库

[didoleo]

对vba不熟悉.
临时要做一个东西,但不行,说用户未定义的类型"ADODB.Connection"
他不认ADODB.Connection
怎么把ADO引入一个VBA工程呢,还是我思路就根本不对.


Private strCnn As String

Sub 查询()

Dim strSQL As String
Dim Cnn as new ADODB.Connection
Dim rs as new ADODB.ResultSet
Dim i As Integer, j As Integer, sht As Worksheet


strSQL = "select e.code ,e.name from employee e" 串
strCnn = "Provider=OraOLEDB.Oracle.1;Password=ubss_db7;Persist Security Info=True;User ID=ubss_db7;Data Source=TEST3"
Cnn.Open strCnn rs.Open strSQL, Cnn

Set sht = ThisWorkbook.Worksheets("sheet1")
i = 1
Do While Not rs.EOF
sht.Cells(i, 1) = rs("code")
sht.Cells(i, 2) = rs("name")
rs.MoveNext
i = i + 1
Loop
rs.Close
Cnn.Close
End Sub

[didoleo]

哪位给个完整的例子

[seawolflover]

工具-引用 Microsoft activeX Data Object 2.8
Microsoft activeX Data Object Recordset 2.8 Library

[shan1119]

按楼上的参照就好了，你写的应该没什么问题

[didoleo]

谢谢seawolflover()
以后还会多请教.