读记录数问题？

Question

  SQL$ = "select * from AA"
  Set oraDS = g_oraDB.CreateDynaset(SQL$, 12&)
  If Not oraDS.EOF Then
  For i = 1 To oraDS.RecordCount '这句有问题错误信息为：“错误的参数号或无效属性赋值”

Answer 1

连的是oracle,写法是oo4o
主要目的是将记录集赋值给数组
SQL$ = "select aa,bb,cc,dd from AA"
  Set oraDS = g_oraDB.CreateDynaset(SQL$, 12&)
不知道该如何写，各位帮忙啊，谢谢了

Answer 2

  Dim SQL$
  Dim oraDS As Object  'OraDynaSet
  Dim Dw_array() as string
  SQL$ = "select a,b,c,d from AA"      
  Set oraDS = g_oraDB.CreateDynaset(SQL$, 12&)
   If Not oraDS.EOF Then
     j = oraDS.RecordCount
     ReDim Dw_array(1 To j, 1 To 4)
      For i = 1 To j
      Dw_array(j, 1) = oraDS.Fields("a").Value
      Dw_array(j, 2) = oraDS.Fields("b").Value
      Dw_array(j, 3) = oraDS.Fields("c").Value
      Dw_array(j, 4) = oraDS.Fields("d").Value
      oraDS.MoveNext
      Next i
   End If
这样写法问题在何处？？？

Answer 3

  For i = 1 To j
  Dw_array(j, 1) = oraDS.Fields("a").Value
之间加了msgbox oraDS.Fields("a").Value & i
结果第一次时没问题，i=2时，显示 oraDS.Fields("a").Value 为null(但此时数据库中肯定有值，没有取到)
不知道为什么，那位解释下呀

Answer 4

http://download.csdn.net/source/1627068

Answer 5

写法没问题，用Plsql验证了下，当i=1时，其实是读的最后一条记录，那位知道该如何修正这个问题？