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

vba连接oracle数据库

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
我按上面的方法试了一下,但连不上
页: [1]
查看完整版本: vba连接oracle数据库