求助oracle访问问题！！！！！！

Question

我查记录的时候不管怎么查都查不到，但是更新和插入都好用代码如下：
Dim con As ADODB.Connection
Dim rs As ADODB.Recordsetcon.ConnectionString = "Provider=MSDAORA.1;Password=UKEOI;User ID=UKEOI;Data Source=UKEOI"
con.OpenCall rs.Open("select sysdate from dual", con, adOpenKeyset, adLockReadOnly)
MsgBox rs.RecordCount '此处总为-1
rs.Close
con.Close
Set con = Nothing

Answer 1

Dim con As ADODB.Connection
Dim rs As ADODB.Recordsetcon.ConnectionString = "Provider=MSDAORA.1;Password=UKEOI;User ID=UKEOI;Data Source=UKEOI"
con.Open
rs.CursorLocation = 3 '加上这句
Call rs.Open("select sysdate from dual", con, adOpenKeyset, adLockReadOnly)
MsgBox rs.RecordCount '此处总为-1
rs.Close
con.Close
Set con = Nothing

Answer 2

Dim con As ADODB.Connection
Dim rs As ADODB.Recordsetcon.ConnectionString = "Provider=MSDAORA.1;Password=UKEOI;User ID=UKEOI;Data Source=UKEOI"
con.Open
rs.CursorLocation = 3 '加上这句
Call rs.Open("select sysdate from dual", con, adOpenKeyset, adLockReadOnly)
MsgBox rs.RecordCount '此处总为-1
rs.Close
con.Close
Set con = Nothing

Answer 3

搞定了，我把连接字符串Provider=MSDAORA.1;改为Provider=OraOLEDB.Oracle.1;就好了
谢谢