vba连接oracle数据库

yulijin608 · 发表于 2004-10-21 11:31:00

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

yulijin608 · 发表于 2004-10-21 11:57:00

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
我按上面的方法试了一下,但连不上

vba连接oracle数据库

发表回复

精选推荐