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

vba连接oracle数据库

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

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

Sub test()<BR>                       ' 连接Oracle数据库<BR>                       Dim cn As ADODB.Connection<BR>                       Set cn = New ADODB.Connection<BR>                       cn.Open "Provider=MSDAORA.1;Data Source=cgd;User ID=cgd;Password=jordan;Persist Security Info=True"<BR>                       ' 通过表或者查询创建数据集<BR>                       Dim rs As ADODB.Recordset<BR>                       Set rs = New ADODB.Recordset<BR>                       rs.Open "ROOM", cn, Read, adLockOptimistic<BR>                       MsgBox rs.RecordCount<BR>                       rs.Close<BR>                       rs.Open "Select * From ROOM ", cn, Read, adLockOptimistic<BR>                       MsgBox rs.RecordCount


                       ' 关闭数据集和数据连接<BR>                       rs.Close<BR>                       Set rs = Nothing<BR>                       cn.Close<BR>                       Set cn = Nothing<BR>End Sub


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