vba连接oracle数据库

yulijin608

oracle数据库安装在局域网的服务器上,我的机子上没有安装oracle客户端，用vba代码如何实现访问服务器上的数据库？

yulijin608

Sub test()
' 连接Oracle数据库
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=MSDAORA.1;Data Source=cgd;User ID=cgdassword=jordanersist Security Info=True"
' 通过表或者查询创建数据集
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "ROOM", cn, Read, adLockOptimistic
MsgBox rs.RecordCount
rs.Close
rs.Open "Select * From ROOM ", cn, Read, adLockOptimistic
MsgBox rs.RecordCount ' 关闭数据集和数据连接
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub 我按上面的方法试了一下,但连不上