Rs.Open能用For Next, Cn.Execute只能用GetRows()

ning84

        Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
        Rs.RecordCount>1
       数据集可以用for next 语法
       '''

        Set Rs1 = Cn.Execute(Str)
        Rs.RecordCount = -1
        只能用Rs1.GetRows()语句,不能用For Next语句.

1.     Dim Str, sStr, oAddress
   
2.     Dim Cn As ADODB.Connection
   
3.     Dim Rs As ADODB.Recordset, Rs1 As ADODB.Recordset
   
4.         Set Cn = New ADODB.Connection
   
5.         Set Rs = New ADODB.Recordset
   
6.         Set Rs1 = New ADODB.Recordset
   
7.         Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
8.         
   
9.         Str = "Select Distinct F1 From [Sheet2$A1:A6000] Where F1 <> Null"
   
10.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
    
11.         Debug.Print Rs.RecordCount
    
12.         Rs.MoveFirst
    
13.         For ii = 0 To Rs.RecordCount - 1
    
14.              Debug.Print Rs.Fields(0)
    
15.              Rs.MoveNext
    
16.         Next ii
    
17.         ''
    
18.         Set Rs1 = Cn.Execute(Str)
    
19.         Debug.Print Rs.RecordCount
    
20.         aa = Rs1.GetRows()
    
21.         Stop
    
22.         For ii = 0 To 12
    
23.              Debug.Print aa(0, ii)
    
24.         Next ii
    
25.         Stop
    
26. End Sub

复制代码