vba连接Oracle问题

[petercow]

vba连接Oracle10g后执行SQL语句，没有数据！代码如下：
Private conConnection As ADODB.Connection
Public rct As New ADODB.Recordset
Set conConnection = New ADODB.Connection
conConnection.ConnectionString = "ODBC;DRIVER={Oracle in OraDb10g_home1};UID=FAIR;PWD=fair;Data Source=fair;Persist Security Info=True"
conConnection.ConnectionTimeout = 30
conConnection.Open
Set rct = conConnection.Execute("SELECT levelID,levelName FROM abilitylevel")
MsgBox "Records:" & rct.RecordCount

执行后，显示的RecordCount为-1，但是用Oracle客户端查询表里是有记录的！该怎么解决阿？？请指教，谢谢！

[沐NeMo]

显示的RecordCount为-1 表示rct里有记录数据。我也遇到过你这样的问题。
-------
你在select出记录后要先把记录移到最后，再显示记录数，如:
Set rct = conConnection.Execute("SELECT levelID,levelName FROM abilitylevel")
rct.MoveLast
MsgBox "Records:" & rct.RecordCount
就正常。试试。
-------
一般要先判断有没有记录用:
If Not(rct.Eof and rct.Bof) then MsgBox "有记录"

[shan1119]

忘了,学习

[李迎春82]

在conConnection.Open之前加上如下代码:
conConnection.CursorLocation = adUseClient

这个问题我在数据库开发的时候碰到过千百次,敢以性命担保.

楼主不给分就太过份了.