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