Autocad VBA调用excel,rst.RecordCount=-1???

Question

conn As New ADODB.Connection 连接3R02.xls,rst数据集通过rst.Open "Select * From [sheet1$]", conn连接为什么debug.print rst.RecordCount 的结果是-1  程序如下  Dim rst As New ADODB.Recordset
  Dim conn As New ADODB.Connection  conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1;';data source=" & XlsName
  Dim rst As New ADODB.Recordset
  Dim conn As New ADODB.Connection
  '
  XlsName = "3R02.xls"
  conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1;';data source=" & XlsName
  
  rst.Open "Select * From [sheet1$]", conn
  Debug.Print rst.RecordCount
  Debug.Print rst.Fields(0).Value, rst.Fields(1).Value, rst.Fields(2).Value, rst.Fields(3).Value, rst.Fields(4).Value, rst.Fields(5).Value
debug.print结果-1  'debug.print rst.RecordCount
3R-02         3R-02-3-5     -250          -90            0            Anchor_Poit

Answer 1

上面提的问题已经解决关键是在 CursorType取值上.adOpenStatic,adOpenKeysetadOpenForwardOnly   0  缺省值，启动一个只能向前移动的游标（Forward Only）。 
adOpenKeyset        1  启动一个Keyset类型的游标。 
adOpenDynamic       2  启动一个Dynamic类型的游标。 
adOpenStatic        3  启动一个Static类型的游标。